Selection AutoFill, Excel 2000 & 2003

J

James Cooper

Hello,

I have multiple worksheets that I need to add numbers to cells incrementing
them by 1 to multiple columns but I was wondering how you can get the
Selection.AutoFill to begin with 21 in A1 and stop at 3500. This is the code
i've got so far but you have to manually put the destination cell in I would
like to automatically stop?

Range("A1").Select
ActiveCell.FormulaR1C1 = "31"
Range("A2").Select
ActiveCell.FormulaR1C1 = "32"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A:A"), Type:=xlFillDefault

Thank you for your help,
jfcby
 
F

FSt1

hi,
Try this code....

Range("A1").FormulaR1C1 = "31"
Range("A2").FormulaR1C1 = "32"
Range("A3").FormulaR1C1 = "33"
Range("A1:A3500").Select 'Selects the range
Selection.DataSeries _
Rowcol:=xlColumns, _
Type:=xlLinear, _
Step:=1, _
Stop:=3500 'Where to stop

Regards
FSt1
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top