Filling numbers in a column

[Bill C]

Hello,
Filling in numbers in a column can be done many ways but I have users of my worksheet that are not Excel proficient. I made a macro to make it easy to number down but I would like to use an input box to change the variables Rowcol:="xlColumns" or Rowcol:="xlRow" and STOP:=#
As is the code works great but fills down a column to STOP:=[number]

Here is the code:
<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!--[if !mso]>******** classid="clsid:38481807-CA0E-42D2-BF39-B33AF135CC4D" id=ieooui></object> <style> st1\:*{behavior:url(#ieooui) } </style> <![endif]--><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]-->
Sub Fill_Series()
'
' Fills_series with numbers

' 9/4/2011 by Bill Clarkson
'

'
Selection.FormulaR1C1 = "1"
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=10000, Trend:=False
End Sub


---------------------------------------------------------------------
Thanks,
Bill C

 

[bensonsearch]

Hi,
so if i understand you would like a input box to define what stop should be?

 

[Rick Rothstein]

If you can train your users to hit the Tab key before entering the ending number, you can use this simple code...

Sub FillNumbersDown()
  ActiveCell.Value = 1
  Application.Dialogs(xlDialogDataSeries).Show xlColumns, 1, 1, 1
End Sub

 

[Bill C]

I finally figured it out after searching around. I am new to Excel Programming so I did not know how to input to a macro.

New Code

<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!--[if !mso]>******** classid="clsid:38481807-CA0E-42D2-BF39-B33AF135CC4D" id=ieooui></object> <style> st1\:*{behavior:url(#ieooui) } </style> <![endif]--><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin:0in; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--> Sub Fill_Series()
'
' Macro4 Macro
' Macro recorded 9/4/2011 by Bill Clarkson
'
'
Dim VariableRows As Integer
VariableRows = InputBox("input VariableRows", "Enter number of rows", "")
Selection.FormulaR1C1 = "1"
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=VariableRows, Trend:=False
[FONT=&quot]End Sub[/FONT]

Bill C