Debug Error on Macro

Thanks Man Fai

Turns out I went back to ROUNDDOWN

Sub Enter_Formulas()

For r = 30 To 33
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

Above macro works but I get conflict from  cell Y18  indirectly conflicting with S30, U30 & V30. I'm wondering if there is a way to tell the macro to disregard the conflict. A value in the "NEXT r" will be modified when "this r" is processed which I believe is the indirect conflict.

---

Greg Bonaparte wrote:

I was able t fix the syntax with the following: But troubles remain. Cells are conflicting within the spreadsheet. So my issue is not with the macro. Ill need to investigate the issues outside of macro. Thanks again for you help.

Sub Enter_Formulas()

For r = 30 To 37
Range("$U" & r).Formula = "=SUM($Y$17-$Y$18)"

Next r

End Sub

 

---

I wonder why you use SUM-function but have the minus sign included. Moreover, if you want to sum two cells, it would be better to use "=Y17+Y18". If you want to sum more cells, SUM-function is useful (E.g. SUM(Y17:Y28)).

I was able t fix the syntax with the following: But troubles remain. Cells are conflicting within the spreadsheet. So my issue is not with the macro. Ill need to investigate the issues outside of macro. Thanks again for you help.

Sub Enter_Formulas()

For r = 30 To 37
Range("$U" & r).Formula = "=SUM($Y$17-$Y$18)"

Next r

End Sub

Thanks so much for your assistance Man Fai.  With your help I was able to come really close to the end of a 4 year project. I have removed ROUNDDOWN from the macro and moved it to within cells. I believe I can simplify the process by using SUM instead. However I get a syntax error. See macro below:

Sub Enter_Formulas()

For r = 30 To 37
SUM($Y$17-$Y$18)" & Chr(34) & Chr(34) & ")"
Next r

End Sub

Please see the attachment for the syntax of ROUNDDOWN

Hmm, Can you write the formula that rounds down to zero so I can see the full syntax.