Toplamı sıfır olan satırların silinmesi

[rcepivedik]

Merhaba,
Stok raporunda toplamı sıfır olan satırları toplu halde nasıl silebiliriz.
Aşağıdaki kodlar ile sıfır olan satırlar tek tek siliniyor ama satır sayısı nekadar çok olursa işlemin bitmesi de o kadar zaman alıyor.

Teşekkürler

For Each c In Worksheets("Stok").Range("B4:K4")
If c.Value = "toplam" Then
c.Select
End If
Next c
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value <> "sayfa sonu"
If ActiveCell.Value <= "0" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend

 

[Murat OSMA]

Depo Miktar (E Sütunu) sütunundaki değeri 0 olan satırları silmek istiyorsanız; şu kodları deneyiniz;

Sub Emre()
    Dim evn As Integer
    Application.ScreenUpdating = False
    For evn = Range("E65536").End(3).Row To 5 Step -1
        If Cells(evn, "E") = 0 Then
            Rows(evn).Delete
        End If
    Next evn
    Application.ScreenUpdating = True
    evn = Empty
End Sub

 

[rcepivedik]

Teşekkürler Murat Bey, gönderdiğiniz kod ile denedim. Süper olmuş, tekrar teşekkür ederim.

 

[Murat OSMA]

Rica ederim Ricep Bey, iyi akşamlar...