Sequential Numbers

[mrpoo]

I have a userform with a starting serial number (textbox1) and another textbox with a quantity (textbox 2)
How can I insert a sequential range of numbers into column A, starting with that initial number in textbox 1 to the row quantity that is in textbox 2?

Many thanks,
Graham

 

[rpaulson]

Private Sub CommandButton1_Click()

[A1] = TextBox1.Value
For r = 2 To TextBox2.Value
    Cells(r, "A") = Cells(r - 1, "A") + 1
Next r

End Sub

 

[mrpoo]

Hi,

It works, ish. If I put 1 as the starting number for a quantity of 5, it only displays 1 - 4? Also, I'm struggling to make the sequence start on row 5 within the sheet instead of the top of row a?

Many thanks,
Graham

 

[rpaulson]

i'm confused on exactly what you are looking to do?

if the user enters a 7 for Textbox1 and a 19 for Textbox2.
what cells are you wanting populated with what values?

 

[mrpoo]

Apologies for late replay, I have a form where I need a starting serial number entered into textbox1, and the quantity required in textbox2:

Textbox1 - Starting serial = 1
Textbox2 - Quantity = 5

And the results starting from cell H5
1
2
3
4
5

Thanks,
Graham

 

[rpaulson]

Private Sub CommandButton1_Click()

For r = TextBox1.Value To TextBox2.Value
Cells(r-1+TextBox2.Value, "H") = r
Next r

End Sub