sıfır olan satırları silme

[incsoft]

A:W aralında çalışan ve N sütununda olan tüm satırları silmek için nasıl bir macro kullanabilirim arkadaşlar? Diğer sorularda buna benzer sorular gördüm ancak onlarla yaptıramadım arkadaşlar.

Teşekkürler..

[sahin]

Kod: Tümünü seç

Application.ScreenUpdating = False
    Range("$N$1:$N$" & Range("N100000").End(3).Row).AutoFilter Field:=1, Criteria1:="0"
    Range("A1:W" & Range("N100000").End(3).Row).Delete Shift:=xlUp
    Application.ScreenUpdating = True