Auto Fill Cells with specific numbers.

[mattstopel]

Hi all,

A pretty simple one but in need of advice.

The quickest way to populate cells P1:P25 with values 1-25.

I recorded the following macro and am using that, but i am sure there is a quicker way to generate the numbers.

Sub record1_25()
'
' record25 Macro
'
'
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("P1:P2").Select
    Selection.AutoFill Destination:=Range("P1:P25"), Type:=xlFillDefault
    Range("P1:P25").Select


End Sub

Thanks in advanced.

 

[My Aswer Is This]

Try this:

[LEFT][COLOR=#222222][FONT=Tahoma]Sub record1_25()[/FONT][/COLOR]
[COLOR=#222222][FONT=Tahoma]'Modified 7/2/18 10:20 PM EDT[/FONT][/COLOR]
[COLOR=#222222][FONT=Tahoma]    Range("P1").Value = "1"[/FONT][/COLOR]
[COLOR=#222222][FONT=Tahoma]    Range("P2").Value = "2"[/FONT][/COLOR]
[COLOR=#222222][FONT=Tahoma]    Range("P1:P2").AutoFill Destination:=Range("P1:P25"), Type:=xlFillDefault[/FONT][/COLOR]
[COLOR=#222222][FONT=Tahoma]End Sub[/FONT][/COLOR][/LEFT]

 

[MickG]

Try:-

Range("P1:P25") = Evaluate("ROW(1:25)")

 

[Rick Rothstein]

Try:-

Range("P1:P25") = Evaluate("ROW(1:25)")

Since the ranges are fixed, you can also write the above line of code this way...

[P1:P25] = [ROW(1:25)]

 

[MickG]

Thanks Rick.

 

[mattstopel]

Thank you Mick and Rick, i knew there would be a much simpler way!