Using Data from Input Box

[danenorman13]

I need to be able to use the numeric data that is entered into a input box to number a column. I am trying to ask how many test runs were completed then sending that count 1-### to another sheet, I would like numbering to start at B3 if I could. I have the input box I believe:

Dim lNum As Long

On Error Resume Next
Application.DisplayAlerts = False
lNum = Application.InputBox _
(Prompt:="Please enter how many test were run.", _
Title:="Number of Tests Run", Type:=1)
On Error GoTo 0
Application.DisplayAlerts = True

If lNum = 0 Then
Exit Sub


Any help is greatly appreciated, thanks!

 

[Jon Peltier]

Quick and dirty, it goes like this:

If lNum = 0 Then
  Exit Sub
End If

For iNum = 1 to lNum
  Worksheets("Sheet 2").Range("B2").Offset(lNum).Value = lNum
Next

 

[danenorman13]

I get an error on statement
For iNum = 1 to 1Num

Compile error:
Expected: end of statement

 

[Jon Peltier]

That variable is lNum, the first character being a lower case "L", not a numeral one. You even declared it in your first bit o' code.