Formülü macroya çevirme

[cemshan]

Merhaba arkadaşlar

Aşağıda verdiğim formülü AE sutunu 2 den 2000. satıra kadar nasıl macro olarak kullanabirim.

=EĞERHATA(EĞER(P2="Adet";I2;I2/AD2);"")

 

[Muzaffer Ali]

Merhaba.

Sub test()
    With Range("AE2:AE2000")
        .Formula = "=IFERROR(IF(P2=""Adet"",I2,I2/AD2),"""")"
        .Copy
        .PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With
End Sub

 

[bmutlu966]

Aslında aynı kod ama alternatif olsun.

Sub hesapla()
    With Range("AE2:AE2000")
        .Formula = "=ISERROR(IF(P2=""Adet"",I2,I2/AD2),"""")"
        .Value = .Value
    End With
End Sub

 

[cemshan]

Elinize sağlık teşekkür ederim