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