Loop formula

[VbaHell]

Hello all

Can anyone help please on looping this formula, I need to populate every 4th column up to and including column "AW"


[With Range("E4:E" & LR)
.FormulaR1C1 = "=IF(RC[-2]<=0,"""",1-RC[-2]/RC[-3])"
.Value = .Value
End With]

Any help on this would be great please

 

[Fluff]

How about

For i = 5 To 49 Step 4
   With Range(Cells(4, i), Cells(lr, i))
      .FormulaR1C1 = "=IF(RC[-2]<=0,"""",1-RC[-2]/RC[-3])"
      .Value = .Value
   End With
Next i

 

[VbaHell]

How about

For i = 5 To 49 Step 4
   With Range(Cells(4, i), Cells(lr, i))
      .FormulaR1C1 = "=IF(RC[-2]<=0,"""",1-RC[-2]/RC[-3])"
      .Value = .Value
   End With
Next i

This is great, many thanks

 

[Fluff]

Glad to help & thanks for the feedback