VBA For Next Loop macro

[Wildman50]

Hi there

I am trying to write a simple For Next loop macro and cant seem to get it right. Once i have entered the data into the first cell, i want to be able to run the macro to enable me to complete all the calculations for the next 99 rows. Is there anyone that can help me please.

This is what i have tried so far:

Sub Loopmacro()
Dim i = integer
For = i
count = 1 to 100
Range("O2").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-14]"
Range("P2").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-14]"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[17]"
Range("G3").Select
ActiveCell.FormulaR1C1 = "=R[1]C[13]"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=R[2]C[12]"
Next i
End Sub

Any help would be greatful and any explanation as to why i am not getting the results i need

Many thanks in advance

Steve

 

[Fluff]

Hiya
Try changing

[I]For = i
count = 1 to 100[/I]

to

For i= 1 To 100

 

[Michael M]

Hi Steve
Your Loop doesn't take into consideration for i
I needs to replace the number in the range, so instead of writing Range("O2"), it should be Range("O" & i)
But this, I think would be easier

Sub MM1()
Range("O2:O100").Formula = "=A3"
Range("P2:P100").Formula = "=B3"
Range("C3:C100").Formula = "=T3"
Range("G3:G100").Formula = "=T4"
Range("H3:H100").Formula = "=T5"
End Sub