VBA Formula with Quotations

[EMcK01]

Hi,

I'm sure this is a silly one but I can't figure it out. I'm wanting to add the following formula using my macro:

=IF(OR(C8>=6,D8>=6),"Strength","")

When I convert that into my script it looks like this:

Cells(r, 6).Formula = ("=IF(OR(" & Cells(r, 3).Address & ">=6," & Cells(r, 4).Address & ">=6)," & ""Strength"," & """" & ")")

However its giving me an issue around the word strength. I'm sure its associated with the quotation marks but these are required for the formula to work and I can't seem to re-work it generate the formula correctly.

Thanks,
EMcK

 

[Fluff]

How about

Cells(r, 6).FormulaR1C1 = "=IF(OR(rc3>=6,rc4>=6),""Strength"","""")"

But you you are using a loop to insert the formula over a range of rows there is no need.

 

[EMcK01]

Thanks for the reply, while that works I should of noted the row number is dynamic so the IF formula changes as it moves down the sheet.

 

[Fluff]

The row number is dynamic in that formula, but if you are putting the formula into every row via a loop you don't need to.

 

[EMcK01]

Thanks for your reply again Fluff. I was trying to do so via a loop but this isn't working for me, what am doing wrong? Not every row requires formula so I can't do a copy down.

 

[EMcK01]

Sorry Fluff, user error on my end when I thought it wasn't working. It was working perfectly well.
Thanks, EMcK

 

[Fluff]

You're welcome & thanks for the feedback.
If not every cell needs the formula, then you will probably need a loop.