IF formula in VBA

[ZionX]

Good morning everyone, can some one please help me convert this IF formula to vba type?

=IF(I14="PCBA","",IF(AB14=M14,"",(AB14-M14)*K14))

this is the code i made, but cant work, hope some one can help me up, thanks so much.

Dim IngRows As Long
Dim Rng As Range
IngRows = .Range("G1").CurrentRegion.Rows.count

Set Rng = .Range(Cells(2, 30), Cells(IngRows, 30))
    Rng.Value = "=IF(" & .Range(Cells(2, 9), Cells(IngRows, 9)) & "=""PCBA"","""",IF(" & .Range(Cells(2, 28), Cells(IngRows, 28)) & "=" & .Range(Cells(2, 13), Cells(IngRows, 13)) & ","""",(" & .Range(Cells(2, 28), Cells(IngRows, 28)) & "-" & .Range(Cells(2, 13), Cells(IngRows, 13)) & ")*" & .Range(Cells(2, 11), Cells(IngRows, 11)) & "))"

 

[jasonb75]

Try for the last line

Rng.FormulaR1C1="=IF(RC9=""PCBA"","""",IF(RC28=RC13,"""",(RC28-RC13)*RC11))"

Not tested so please back up file before trying!

 

[ZionX]

Try for the last line

Rng.FormulaR1C1="=IF(RC9=""PCBA"","""",IF(RC28=RC13,"""",(RC28-RC13)*RC11))"

Not tested so please back up file before trying!

thank you so much, it just work perfectly~!!!