(20/04/2021, 21:55)berduş yazdı: yada aşağıdaki gibi, yukardaki kodda eğer 0'a eşit alan yoksa hata veriyordu

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

Hocam Bu kod ilk çalıştırmada dügün çalıışor ancak ikinci tıklamada
" Set Rng = Syf.Range("A2:a" & sonstr).Rows.SpecialCells(xlCellTypeVisible)" hatası veriyor. tekrar tıklandığında filtreleme yapıyor ve kalan verileride filtreleyerek gizliyor.