VBA Error In Cell Formula If Statement

[emailcolink]

Hello,

I'm trying to apply an if statement with VBA to a cell, but it's not having it.

Dim iRow, ingredientRow As Integer


iRow = 151
ingredientRow = 60


Cells(iRow, 3).Formula = "=IF(C" & ingredientRow & ">0,C" & ingredientRow & ","")"

Running this I get an "Application-defined or object-defined error."

This is the last piece of a very large and lengthy project, which is probably why it won't work

Anyone see the problem?

 

[Fishboy]

Hello,

I'm trying to apply an if statement with VBA to a cell, but it's not having it.

Dim iRow, ingredientRow As Integer


iRow = 151
ingredientRow = 60


Cells(iRow, 3).Formula = "=IF(C" & ingredientRow & ">0,C" & ingredientRow & ","")"

Running this I get an "Application-defined or object-defined error."

This is the last piece of a very large and lengthy project, which is probably why it won't work

Anyone see the problem?

I think you need to double-up the quotation marks near the end. When using VBA to write a formula, and 'internal' quotation marks must be doubled, so you "" needs to be """"

Cells(iRow, 3).Formula = "=IF(C" & ingredientRow & ">0,C" & ingredientRow & ","""")"

 

[emailcolink]

Thank you Fishboy!!

I was trying it with three (""") based on a recorded macro--I didn't notice there were actually four! ("""")

 

[Fishboy]

Thank you Fishboy!!

I was trying it with three (""") based on a recorded macro--I didn't notice there were actually four! ("""")

Happy to help.