Formulas in VBA help needed

[dwpfreak]

Hi all you helpful people.

I have this code but I wish to add more formulas to it applying to different columns.

1 Is there any limit to the amount of formulae in a code?
2 How do I write in the next formula?
3 Can i get this string of code to run all the time or when opening or saving?

I tried myself but it debugged.

With Range("C50:C500")
.Formula = "=IF(AND(A50=1,B50=1),""yes"",""no"")"
.Value = .Value
With Range("d50:d500")
.Formula = "=IF(A50=""Yes"",""yes"",""no"")"
.Value = .Value
With Range("e50:e500")
.Formula = "=IF(d50=""yes"",f50=1)"
.Value = .Value
End With
'
End Sub

I want to add the formula in red but it says compile error.
Any help greatfully appreciated

Dwpfreak

 

[Scott Huish]

You need to end each of your Withs

Sub test()
With Range("C50:C500")
    .Formula = "=IF(AND(A50=1,B50=1),""yes"",""no"")"
    .Value = .Value
End With
With Range("d50:d500")
    .Formula = "=IF(A50=""Yes"",""yes"",""no"")"
    .Value = .Value
End With
End Sub

Your last formula doesn't make sense though.

 

[dwpfreak]

thanks for that, and i corrected the formula.

Do you know how to make this stringof code run all the time or on opening and closing?