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
kodunuzu aşağıdaki şekilde revize edin