Formülü macroya çevirme

cemshan

Altın Üye
Katılım
5 Nisan 2008
Mesajlar
359
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
06-12-2025
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,448
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Kod:
Sub test()
    With Range("AE2:AE2000")
        .Formula = "=IFERROR(IF(P2=""Adet"",I2,I2/AD2),"""")"
        .Copy
        .PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With
End Sub
 
Katılım
26 Ocak 2006
Mesajlar
754
Excel Vers. ve Dili
Office 365 İngilizce 64 Bit
Altın Üyelik Bitiş Tarihi
31-01-2025
Aslında aynı kod ama alternatif olsun.

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

cemshan

Altın Üye
Katılım
5 Nisan 2008
Mesajlar
359
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
06-12-2025
Elinize sağlık teşekkür ederim
 
Üst