Ama asıl sorun yatan gibi yerlerde resimde gösterdiğim bir örnekteki gibi sonucun çıkmasıki bundan dolayı çoketopla hatalı çalışıyor oraları düzeltirseniz yazdığım yuvarla olaylarına gerek kalmaz bence.

---

Geçen üze arkadaşın birisi yazmıştı sayı karakter 15 den fazla ise hata oluyor diye aynı durum sanki son resime göre.

(24/04/2021, 15:51)feraz yazdı: Gifi izleyin ne demek istediğimi anlarsınız diğer olay için.

---

Ayrıca çözüm için alttaki gifi izleyin çoketoplaya da yuvarla formülü eklenecek.

çOK TEŞEKKÜR EDERİM. ben onuda denedim ancak demekki benik kopladıığım hücrede sonç tam gösteriyorsu, elinize sağlık şimdi oldu, iyi iftar

Rica ederim abey.Sizede iyi iftarlar.

(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.