VBA to insert formula into cell

[EssKayKay]

I’m trying to insert a formula into a cell (or range of cells). The formula is =IF(R33<$T$28,1,"")
Then copy the formula down from T33 to some other cell that changes in that row but as example let’s use cell T100 (i.e., range "T33:T100").

Here’s my VBA code to insert the formula Range("T33").Formula = "=IF(R33<$T$28,1,"")"
but I receive a Run-time error 1004 Application-defined or object-defined error

Thanks for viewing,
Steve K.

 

[6StringJazzer]

First you need to use two quote marks when you are inside quotes:

"=IF(R33<$T$28,1,"""")"

But the way to do what you want to is

Range("T33:T100").FormulaR1C1 = "=IF(RC[-2]<R28C20,1,"""")"

Then you don't need to copy it down.

 

[EssKayKay]

First you need to use two quote marks when you are inside quotes:

"=IF(R33<$T$28,1,"""")"

But the way to do what you want to is

Range("T33:T100").FormulaR1C1 = "=IF(RC[-2]<R28C20,1,"""")"

Then you don't need to copy it down.

Excellent -thank you 6string for getting back to me - works perfect.
Again, much appreciated . . .