Quick question, changing cell values with help of integer variable

[jonastjader]

Hi,
I would like to change the value of the cells A1:24 to the value of integer i, so that A1=1, A2=2 and so on until A24=24.
I want to do this with the help of an integer i and a for loop. This is how far I have got, how do I proceed now?

Sub ForLoop()
Dim i As Integer
For i = 1 To 24
Range("solar!Ai")=i
End Sub

 

[Kenneth Hobson]

Sub ForLoop()
  Dim i As Integer
  For i = 1 To 24
    Worksheets("Solar").Range("A" & i).Value2 = i
  Next i
End Sub


Sub ForLoop2()
  With Worksheets("Solar").Range("A1:A24")
    .Formula = "=Row()"
    .Value2 = .Value2
  End With
End Sub

 

[jonastjader]

Thank you so much!

 

[Rick Rothstein]

Sub ForLoop()
  Dim i As Integer
  For i = 1 To 24
    Worksheets("Solar").Range("A" & i).Value2 = i
  Next i
End Sub


Sub ForLoop2()
  With Worksheets("Solar").Range("A1:A24")
    .Formula = "=Row()"
    .Value2 = .Value2
  End With
End Sub

Or even....

Sub ForLoop3()
  Range("A1:A24") = Evaluate("ROW(1:24)")
End Sub