yalnız ben oradaki 7. mesajda size hem bir sormuştum hem de kodu değiştirmiştim, bu çalışmadaki kod, bu haliyle sorun çıkarabilir. o mesajı tekrar okuyup soruya cevap verebilir misiniz?

---

sonstr = Syf.Cells(Syf.Rows.Count, "h")==> yerine sonstr = Syf.Cells(Syf.Rows.Count, "A") dener misiniz?

Sub KapananHesabıSil()

Dim Syf As Worksheet

    Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")

   On Error GoTo 10

    With Syf

    sonstr = .Cells(.Rows.Count, "A").End(xlUp).Row

        .ListObjects("Vadeli_Hesap").Range.AutoFilter Field:=7, Criteria1:="0,00"

    Set rng = .Range("A2:a" & sonstr).Rows.SpecialCells(xlCellTypeVisible)



    dz = Replace(rng.Address, "$A$", "")

    Debug.Print dz

    dizi = Split(dz, ",")

        For x = UBound(dizi) To LBound(dizi) Step -1

            .Range("A" & dizi(x)).EntireRow.Delete

        Next x

    End With

10

Syf.ListObjects("Vadeli_Hesap").Range.AutoFilter Field:=7



End Sub