Kolay gelsin,
daha öncede bu konuyu açtım ancak istediğim sonuçları alamadım ben kendi yapmaya çalıştım, ancak
Hesap No ile silme düzgün çalışıyor, ancak Sıfır Bakiyeli satırları sil macrosu çalıştırıldığında sıfır değeri içeren hücreler kayboluyor ancak 0 sıfır değerini içeren tüm Tablo  satırlarının silinmesi gerekiyor.
bunu yapan kodu uygulama içine yapabilirimsiniz.
şimdiden teşekkürler

Sevgili Feraz hocam uygulama dosyasını eklememi yazmıştı, ben de ekledim.

Sıfır bakiyeleri sil makronuzu aşağıdaki ile değiştirin

Dim Tbl As ListObject

Set Tbl = ActiveSheet.ListObjects(1)

ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7, Criteria1:= _

        "0,00"

Tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7

Çok teşekkür ederim. iyi geceler,
Küçük bir sorun var tabloda sıfır bakiye değer yokken makro çalıştırıldığında filteleme kaldırılmıyor, tüm verileri göstermiyor ve hata veriyor.
yapmak istediğim sıfır bakiye yokken makro çalışmasın yani işlem yapmasın istiyorum  ben uğraştım ama yapamadım küçük bir kod ekleyebilirseniz memnun olurum.

Aynı soruyu eski konunuzda da örnek ekleyerek sormuşsunuz
Orada da verdiğim cevap:

Kodunuzu aşağıdaki gibi revize edin

Sub SıfırBakiyeliHesaplarıSİL()

 Dim wb As Workbook

 Set wb = ThisWorkbook

 Dim tbl As ListObject

 Set tbl = ActiveSheet.ListObjects(1)

 Dim dvrg As Range

   

    With tbl

        If .ShowAutoFilter Then

            If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData

        End If

        .Range.AutoFilter 7, "0,00"

        On Error Resume Next

            Set dvrg = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

        On Error GoTo 0

        .AutoFilter.ShowAllData

    End With

    

  ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7

  Range("B2").Select

End Sub

(20/11/2022, 14:21)atoykan yazdı: Aynı soruyu eski konunuzda da örnek ekleyerek sormuşsunuz
Orada da verdiğim cevap:

Kodunuzu aşağıdaki gibi revize edin

Sub SıfırBakiyeliHesaplarıSİL()

 Dim wb As Workbook

 Set wb = ThisWorkbook

 Dim tbl As ListObject

 Set tbl = ActiveSheet.ListObjects(1)

 Dim dvrg As Range

  

    With tbl

        If .ShowAutoFilter Then

            If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData

        End If

        .Range.AutoFilter 7, "0,00"

        On Error Resume Next

            Set dvrg = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

        On Error GoTo 0

        .AutoFilter.ShowAllData

    End With

    

  ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7

  Range("B2").Select

End Sub

Çok teşekkür ediyorum, elinize sağlık bu kez çok güzel olmuş.

Rica ederiz, iyi çalışmalar.