Getting list of numbers from value of 2 cells

does your text is going to vary in length or is it limited to only one character like in between A-Z

Hi ,
you can run the code in attached sheet by clicking the button, it populates a list in col c given the nos. would always be in 1000s.

Sub listvalues()
Dim start As Integer, en As Integer, rw As Integer
Dim val As String

start = Right(Cells(1, 1).Value, 4)
en = Right(Cells(1, 2).Value, 4)

Columns("C:C").ClearContents

rw = 1
For Count = start To en
val = "F" & start

Cells(rw, 3).Value = val
start = start + 1
rw = rw + 1
Next Count

End Sub

Bhuvi ! That's a good approach but how do you know text is always going to be one character in length or numbers are going to be only 4 character in length

Originally Posted by Yahoho

Bhuvi, it is excactly as hemesh posted, first letter and number lenght is not always the same.
But we are on a right course, cause list is generated in a way I was looking for.

adjusted code for first letter and varying number length

Sub listvalues()
Dim start As Long, en As Long, rw As Long
Dim nosA As Integer, nosB As Integer
Dim val As String

nosA = Len(Cells(1, 1).Value) - 1
start = Right(Cells(1, 1).Value, nosA)

nosB = Len(Cells(1, 2).Value) - 1
en = Right(Cells(1, 2).Value, nosB)

Columns("C:C").ClearContents

rw = 1
For Count = start To en
val = "F" & start

Cells(rw, 3).Value = val
start = start + 1
rw = rw + 1
Next Count
MsgBox "List populated"
End Sub

find attached !

Hope this helps

alternative approach could be using VBA
though not too good in vba and still learning hope this could help

this works same way the formula was working and excepts text in the left and all numbers in right.

@Bhuvi ! Glad I could contribute a little bit !

One more thing to notice is that if the text is only between the columns i.e. A till XFD then even a simpler approach can be taken with formula
keep the formula only for text means keep formula below A1 then in c1 use
=IFERROR($A$2&SMALL(ROW(INDIRECT($A$1&":"&$B$1)),ROW($A1)),"") hold control and shift then hit enter. then drag down

Try Below

Sub listings()

Dim a1value As Integer
Dim b1value As Integer
Dim x As Long
Range("C:C").ClearContents
a1value = Len(Range("A1"))
b1value = Len(Range("b1"))
x = 0

Application.ScreenUpdating = False
Do While a1value <> 0
a1value = a1value - 1
x = x + 1
mytext = Mid(Range("A1"), x, 1)
If IsNumeric(mytext) = True Then
A = A + mytext
Else
B = B + mytext
End If
Loop
x = 0
Do While b1value <> 0
b1value = b1value - 1
x = x + 1
mytext1 = Mid(Range("b1"), x, 1)
If IsNumeric(mytext1) = True Then
c = c + mytext1
End If
Loop

For i = CInt(A) To CInt(c)
mynumber = mynumber + 1
If mynumber > (c - A) + 1 Then Exit Sub Else
i = Application.WorksheetFunction.Text(i, "0000")
Cells(mynumber, "C").Value = B & i

Next
Application.ScreenUpdating = True
End Sub

this will have four 0's before start