Convert formula into code

[RAJESH SHAH]

Hello code experts
I have this formula to be converted into code. I tried to compare a similar code and convert this formula but I am getting stuck at applying the "" in the right place.
This is the formula
=IF((COUNTIFS($B$2:$B2,$B2,$C$2:$C2,$C2,$G$2:$G2,">="&$G2-1,$G$2:$G2,"<="&$G2+1)+COUNTIFS($B$2:$B2,$B2,$C$2:$C2,$C2,$H$2:$H2,">="&$H2-1,$H$2:$H2,"<="&$H2+1))<=(COUNTIFS($B$2:$B$30000,IF($B2="BOOKS","PORTAL","BOOKS"),$C$2:$C$30000,$C2,$G$2:$G$30000,">="&$G2-1,$G$2:$G$30000,"<="&$G2+1)+COUNTIFS($B$2:$B$30000,IF($B2="BOOKS","PORTAL","BOOKS"),$C$2:$C$30000,$C2,$H$2:$H$30000,">="&$H2-1,$H$2:$H$30000,"<="&$H2+1)),"MATCHED","Not Found")
and the code to be replaced is as below.
Please note that the below code is running without error. It is only the formula in the code which needs to be changed.

Please Login or Register  to view this content.

[ByteMarks]

Please Login or Register  to view this content.

[RAJESH SHAH]

Thanks ByteMarks. I will check it out tonight and revert back.

[jolivanes]

For the future:
Enter the formula in a cell
Select the cell
Tools, Macro, Record
F2, Enter
The converted formula will be in a module where you saved it.

[RAJESH SHAH]

Like this

Please Login or Register  to view this content.

[RAJESH SHAH]

Wow!! This is something new I never knew. Thanks Jolivanes. Next time I will post it like this. I followed your steps and pasted the macro. Hope it is correct.

[ByteMarks]

It's a good tip. Not keen on the R1C1 notation though.

[RAJESH SHAH]

Please Login or Register  to view this content.

It works perfectly. Thank you very much ByteMarks.

[ByteMarks]

You're welcome.