Help adding formula to Macros (with relative reference)...

[bellis]

I have my Macros working well but need to make it paste a formula in the active cell. I've looked at several posts but have only become more confused. Still a newbie - I've mastered copy/paste and slight tweaks but this is confounding me.

My formula to include is: =IF(LEFT($I6,2)="17","CTRL+G","")

Here is my macros:

Sub MoveSession06_CTRL_g()​

'​

' MoveSession06_CTRL_g Macro​

'​

' Keyboard Shortcut: Ctrl+g​

'​

Range(ActiveCell.Offset(1, -30), ActiveCell.Offset(1, -25)).Activate​

Selection.Copy​

ActiveCell.Offset(-1, 30).Select​

ActiveSheet.Paste​

ActiveCell.Offset(1, 0).Select​

Selection.EntireRow.Delete​

ActiveCell.Offset(-1, 6).Select

​

---> I need the formula to go here <-----​

End Sub​

Thanks in advance for your help.
Bruce

 

[JoeMo]

Add this line where you need the formula:

activecell.Formula = "= IF(LEFT($I6,2)=""17"",""CTRL+G"","""")

 

[bellis]

You are AWESOME! You have made my day!

 

[JoeMo]

You are AWESOME! You have made my day!

You are welcome - thanks for the reply.

 

[bellis]

Since the cell reference isn't updating in the script (I naively thought it would), I need to make get the offset value. Here is what I think it should be but can't figure out what I have wrong:

ActiveCell.Formula = "= IF(LEFT(ActiveCell.Offset(1,-12).Value,2)=""17"",""CTRL+G"","""")"

How do I tweak it to work?

Thanks,
Bruce