=if(and(....

[Lift Off]

I have this formula in a spread sheet that works fine:

=IF(AND(J2=0,F2>0),"NO",IF(AND(J2=1,F2>0),"YES",''))

I'm trying to put it into a macro but it won't compile. I've written
the macro thus:

With Range ("H2")
Range(.Cells(0, 1), .End(xlDown)).Offset(0, 3).FormulaR1C1 = _
"=IF(AND(RC[-1]=0,RC[-5]>0),"NO",IF(AND(RC[-1]=1,RC[-5]>0),"YES",""))"
End With

What have I done wrong?

Thanks

 

[duane]

try this - seemed to work for me - note you need double "" everwhere

Sub macro1()
With Range("H2")
Range(.Cells(0, 1), .End(xlDown)).Offset(0, 3). _
FormulaR1C1 =
"=IF(AND(RC[-1]=0,RC[-5]>0),""NO"",IF(AND(RC[-1]=1,RC[-5]>0),""YES"",""""))"
End With
End Sub

 

[Lift Off]

Duane:

That's it! I NEVER would have found that solution. What's the rule on
this double quote thing?

Many thanks for taking the time.

Cliff