(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ş.