Sub SilFiltreli()
Dim Syf As Worksheet
Set Syf = ThisWorkbook.Worksheets("sayfa1")
With Syf
sonstr = .Cells(.Rows.Count, "h").End(xlUp).Row
.ListObjects("tablo5").Range.AutoFilter field:=7, Criteria1:="0,00"
Set Rng = .Range("A1:a" & sonstr).Rows.SpecialCells(xlCellTypeVisible)
dz = Replace(Rng.Address, "$A$", "")
dizi = Split(dz, ",")
For x = UBound(dizi) To LBound(dizi) + 1 Step -1
Syf.Range("A" & dizi(x)).EntireRow.Delete
Next x
Syf.ListObjects("tablo5").Range.AutoFilter field:=7
End With
End Sub
yada aşağıdaki gibi, yukardaki kodda eğer 0'a eşit alan yoksa hata veriyordu