Skip to main content

AccessTr.neT


Tabodaki Sıfır Değeri İçeren Satırları Silme

ercansahiner61
ercansahiner61
15
1201

Tabodaki Sıfır Değeri İçeren Satırları Silme

#13
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.
Cevapla
#14
(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
Cevapla
#15
Rica ederim abey.Sizede iyi iftarlar.
Cevapla
#16
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task