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