help with formular1c1 if statement

[bradyj7]

Hi all,

Could someone tell me what is wrong with this If statement

Dim Gearratio As Integer
Dim Gearboxefficiency As Integer
Gearratio = 6.066
Gearboxefficiency = 0.98

 Range("p1").Value = "Twheel/axle reqd"
 Range("p2").Select
    Do
    If (ActiveCell.Offset(0, -12) = ActiveCell.Offset(-1, -12)) Or ActiveCell.Offset(0, -9) > 0 Then
    ActiveCell.FormulaR1C1 = "=(rc[-1]* tireradius) / Wheelaxleefficiency"
    
    Else
    
ActiveCell.FormulaR1C1 = "=(rc[-1] * tireradius) * Wheelaxleefficiency"
    
End If

ActiveCell.Offset(1, 0).Select

Loop Until IsEmpty(ActiveCell.Offset(0, -1))

Thank you

 

[Mike Blackman]

Purely your syntax, you have a couple of random brackets over your first argument.

If ActiveCell.Offset(0, -12) = ActiveCell.Offset(-1, -12) Or ActiveCell.Offset(0, -9) > 0 Then

 

[bradyj7]

Thanks Mikey