When typed directly in cell L11, this formula does what I want:
=IF(E11<0.25,"",E11-TIME(0,16,0))

When I go to the Immediate Window and type ? range ("L11").FormulaR1C1, the
following is returned: =IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))

So I tried to create a procedure using that -

Range("L11").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))"

.... and get the error "Run-time error '1004': Application-defined or
object-defined error"

Can anyone tell me what I am doing wrong?

TIA, Patti

Hi
try
ActiveCell.FormulaR1C1 = "=IF(RC[-7]<0.25,"""",RC[-7]-TIME(0,16,0))"

--
Regards
Frank Kabel
Frankfurt, Germany


Patti wrote:
When typed directly in cell L11, this formula does what I want:
=IF(E11<0.25,"",E11-TIME(0,16,0))

When I go to the Immediate Window and type ? range
("L11").FormulaR1C1, the following is returned:
=IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))

So I tried to create a procedure using that -

Range("L11").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))"

... and get the error "Run-time error '1004': Application-defined or
object-defined error"

Can anyone tell me what I am doing wrong?

TIA, Patti

Patti,

Try
ActiveCell.FormulaR1C1 =
"=IF(RC[-7]<0.25,"""",RC[-7]-TIME(0,16,0))"

Note that additional quotes inside the formula.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Patti" wrote in message
...
When typed directly in cell L11, this formula does what I want:
=IF(E11<0.25,"",E11-TIME(0,16,0))

When I go to the Immediate Window and type ? range
("L11").FormulaR1C1, the
following is returned: =IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))

So I tried to create a procedure using that -

Range("L11").Activate
ActiveCell.FormulaR1C1 =
"=IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))"

... and get the error "Run-time error '1004':
Application-defined or
object-defined error"

Can anyone tell me what I am doing wrong?

TIA, Patti

Frank, that extra set of quotes did the trick. Thank you very much - I
never would have come up with that on my own!

Patti


"Frank Kabel" wrote in message
...
Hi
try
ActiveCell.FormulaR1C1 = "=IF(RC[-7]<0.25,"""",RC[-7]-TIME(0,16,0))"

--
Regards
Frank Kabel
Frankfurt, Germany


Patti wrote:
When typed directly in cell L11, this formula does what I want:
=IF(E11<0.25,"",E11-TIME(0,16,0))

When I go to the Immediate Window and type ? range
("L11").FormulaR1C1, the following is returned:
=IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))

So I tried to create a procedure using that -

Range("L11").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-7]<0.25,"",RC[-7]-TIME(0,16,0))"

... and get the error "Run-time error '1004': Application-defined or
object-defined error"

Can anyone tell me what I am doing wrong?

TIA, Patti