AccessTr.neT
Tabodaki Sıfır Değeri İçeren Satırları Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabodaki Sıfır Değeri İçeren Satırları Silme (/konu-tabodaki-sifir-degeri-iceren-satirlari-silme.html)

Sayfalar: 1 2 3

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - feraz - 24/04/2021

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.

[Resim: do.php?img=10956]
Geçen üze arkadaşın birisi yazmıştı sayı karakter 15 den fazla ise hata oluyor diye aynı durum sanki son resime göre.

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - ercansahiner61 - 24/04/2021

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

[Resim: dd.gif]
Ayrıca çözüm için alttaki gifi izleyin çoketoplaya da yuvarla formülü eklenecek.

[Resim: eeee880828d5597d72a3.gif]
ç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

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - feraz - 24/04/2021

Rica ederim abey.Sizede iyi iftarlar.

RE: Tabodaki Sıfır Değeri İçeren Satırları Silme - ercansahiner61 - 26/04/2021

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