R1C1 code question

[MOB]

I have a line of code as follows;

ActiveCell.Offset(0, 58).FormulaR1C1 = "=If(MONTH($C$2)&YEAR($C$2)=MONTH(RC[-49])&YEAR(RC[-49]),""Y"","")"

Which should return a formula like this;

=IF(MONTH($C$2)&YEAR($C$2)=MONTH($F7)&YEAR($F7),"Y","")

But when I run the code, it does nothing.

I think its something to do with the R1C1 bits, but I don't know how to correct it!

What am I doing wrong?

TIA

 

[Andrew Poulsom]

$C$2 is an A1 style reference. It needs to be R2C3.

 

[MOB]

Thanks Andrew

I've amended it to the code below, but when I run the code it still enters nothing in the cell, is there something else I'm doing wrong?

ActiveCell.Offset(0, 58).FormulaR1C1 = "=If(MONTH(R2C3)&YEAR(R2C3)=MONTH(RC[-49])&YEAR(RC[-49]),""Y"","")"

 

[MOB]

ActiveCell.Offset(0, 58).FormulaR1C1 = "=If(MONTH(R2C3)&YEAR(R2C3)=MONTH(RC[-49])&YEAR(RC[-49]),""Y"","""")"

Adding two " near the end seems to fix it, weird

 

[RoryA]

You need to double up the last quotes:

ActiveCell.Offset(0, 58).FormulaR1C1 = "=If(MONTH(R2C3)&YEAR(R2C3)=MONTH(RC[-49])&YEAR(RC[-49]),""Y"","""")"