Debugged at the "Range("$V" & r).Formula". Can you see the syntax error?

Iron Contributor

Sub Enter_Formulas()

For r = 30 To 32
Range("$T" & r).Formula = "=($Y$17-$Y$18)"
Range("$S" & r).Formula = "=ROUNDDOWN(($Y$17-$Y$18)/$Q" & r & ",0)"
Range("$V" & r).Formula = "=(($U & r) * ($Q & r))"
Range("$U" & r).Formula = "=IF(($S" & r & " > 0)*($R" & r & " > 0.00001), ROUNDDOWN(($Y$17-$Y$18)/$Q" & r & ",0)," & Chr(34) & Chr(34) & ")"
Next r

End Sub

 

0 Replies