Execute different formulas based on conditions

[deduwa]

I have the below code in Sheet1;

Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C+R[-4]C[-3]"

How can I adjust this such that;

- If cell F1 in the 'Man' worksheet = 1 then Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C+R[-4]C[-3]"

- If cell F1 in the 'Man' worksheet <> 1 then Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C"

Thanks

 

[Eric W]

Try:

Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C" & IIf(Sheets("Man").Range("F1").Value = 1,"+R[-4]C[-3]","")

 

[Special-K99]

Does this work?

If Worksheets("Man").Range("F1")=1 Then
    Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C + R[-4]C[-3]"
Else
    Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C"

 

[JackDanIce]

As alt suggestion only, default all formula to be "=R[-4]C" and then only change if F1 from sheets Man = 1

Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C"
If Worksheets("Man").cells(1,6).Value = 1 Then Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C + R[-4]C[-3]"

It's kinda combined suggestion from #2 and #3 but all should do as you need.

For #2 , I think @Eric W forgot an "=", i.e.

Cells(lastRow + 10, "R").FormulaR1C1 = "=R[-4]C" & Iif(Sheets("Man").Range("F1").Value = 1,"+R[-4]C[-3]","")

 

[Eric W]

I fixed that with an edit!

 

[JackDanIce]

Clever cloggs, now my post is forever locked as implying yours has an error, even though it was editted to correct!