Error with IF/OR in VBA

Question

.Range(\"BS2:BS\" & NewLastRow).Formula = \"=IF((OR(BR2=\"\"FLAG\"\",BO2>0)),\"\"FLAG\"\",\"\"NOFLAG\"\" ))\"

I am using this formula in VBA but

Answer 1

In general, try the following:

• Make a workable formula in Excel
• Then select the cell with the workable formula
• Run the following code

---

Public Sub PrintMeUsefulFormula()

    Dim strFormula  As String
    Dim strParenth  As String

    strParenth = """"

    strFormula = Selection.Formula
    strFormula = Replace(strFormula, """", """""")

    strFormula = strParenth & strFormula & strParenth
    Debug.Print strFormula

End Sub

---

• In the immediate window something useful should be printed.

Source: Apply formula in VBA?

Answer 2

Too many ")"

.Range("BS2:BS" & NewLastRow).Formula = "=IF(OR(BR2=""FLAG"",BO2>0),""FLAG"",""NOFLAG"" )"