Tried the following formula with Absolute referencein VBA but get Application Defined Error

[SamDsouza]

Hello
I put the following formula in cell CE3

IF(BE3<$A$1,BF3,0)+IF(BJ3<$A$1,BK3,0)+IF(BQ3<$A$1,BR3,0)

how to replica in VBA. as i get Appln. Defined Error

with Ws
.Range("CE3").Formula = "=if(" & "BE3<(R[-2]C[-82]" & "," & "BF3" & "," & "0" & ")"
End with

i could not move further because of error
Regards
Samd

 

[Fluff]

Enter the formula into CE3, then turn on the macro recorder, select CE3 & press F2 then Enter.
Turn of the recorder & you have the code

 

[NimishK]

SamD

Try the following:

With ws
.Range("CE3").Formula = "=IF(" & "BE3<$A$1" & "," & "BF3" & "," & "0" & ")" & "+IF(" & "BJ3<$A$1" & "," & "BK3" & "," & "0" & ")" & _
 "+IF(" & "BO3<$A$1" & "," & "BP3" & "," & "0" & ")" & "+IF(" & "BT3<$A$1" & "," & "BU3" & "," & "0" & ")" & _
 "+IF(" & "BY3<$A$1" & "," & "BZ3" & "," & "0" & ")"
End With

NimishK

 

[Fluff]

Or just

Range("CE3").Formula = "=IF(BE3<$A$1,BF3,0)+IF(BJ3<$A$1,BK3,0)+IF(BQ3<$A$1,BR3,0)"

 

[SamDsouza]

NimishK and Fluff Thank you so much for the perfect syntax coding

By the way Macro Recording Steps were slightly difficult to digest.

Thanks Anyways

SamD

 

[Fluff]

You're welcome & thanks for the feedback