How to write a worksheet function in vba

[Andries]

Hi there

How do I write this worksheet function in vba code?

IFERROR(IF(AND($B$47=data2!$H$1,data2!$I$1=1)*TRUE,VLOOKUP($A49,data2!$A$2:$O$4000,2,0),""),"NR")

Thank you

 

[VoG]

Hi. Try like this

ActiveCell.Formula = "IFERROR(IF(AND($B$47=data2!$H$1,data2!$I$1=1)*TRUE,VLOOKUP($A49,data2!$A$2:$O$4000,2,0),""""),""NR"")"