complie error: Expected: end of statement

[bradbeatDTD]

Hey guys

I'm simply trying to assign the following formula to a cell like this:

Range("P2") = "=IF(M2=100,"Complete",IF(J2<TODAY(),"Overdue",IF(J2-30<TODAY(),"Next Period","Future")))"

but I'm getting compile error: Expected: end of statement

Any help much appreciated

[austenr]

try this in P2 and copy down or wherever you need it to be.


=IF(M2=100,"Complete",IF(J2<TODAY(),"Overdue",IF(J2-30<TODAY(),"Next Period","Future")))

[mancubus]

Range("P2").Formula = "=IF(M2=100,""Complete"",IF(J2<TODAY(),""Overdue"",IF(J2-30<TODAY(),""Next Period"",""Future"")))"

double the quotes for strings in formulas.

write this worksheet formula in a cell
turn macro recorder on
select the cell
press F2 key then Enter
turn macro recorder off

open VBE window (Alt+F11) to see what macro recorder produced.

[bradbeatDTD]

Thanks mancubus, that did it.