Makro ile değeri 0 olan satırların silinmesi

[senel34]

Merhaba,

Sayfa1 de oluşturduğum tablodan N sütununda değeri sıfıra düşen
satırların tamamen silinmesini istiyorum.
(Yazmaya çalıştığım makroda sorgu yaptığımda değeri sıfıra düşen
ürünlerin görüntülenmesini istemiyorum)
Satır silme ile ilgili örnekleri incelemeye çalıştım. Ama istediğim gibi
bir şey bulamadım.
Teşekkürler..

 

[emrexcel123]

bu kodları dener misin ?
Sub sifirlari_sil()
For x = 1 To [n65536].End(3).Row
If Cells(x, 14) = 0 Then
Rows(x).Delete
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. N sütununda boş olmayan ve sıfır değer içeren hücrelere ait satırları tamamen siler.

Sub SIFIR_OLAN_SATIRLARI_SİL()
    For X = [N65536].End(3).Row To 2 Step -1
    If Cells(X, "N") <> "" And Cells(X, "N") = 0 Then Rows(X).Delete
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[senel34]

Arkadaşlar,

Harikasınız. İşlem Tamam. Çok Teşekkürler...

Selamlar..