Sub KapananHesabySil()
Dim Syf As Worksheet, sonstr As Long, i As Long
Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")
With Syf
If .ListObjects("Vadeli_Hesap").AutoFilter.FilterMode = True Then .ShowAllData
On Error GoTo son
If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 0 Then GoTo son
Application.Calculation = xlCalculationManual
sonstr = .Cells(.Rows.Count, "A").End(xlUp).Row
If sonstr < 2 Then GoTo son
For i = sonstr To 2 Step -1
If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete
Next
End With
son:
Application.Calculation = xlCalculationAutomatic
End Sub
Yada bunu deneyin.Filtrelimi diye şart eklendi.