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


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

İyi akşamlar,  bir tablom var,  sıfır değerli satırları silmek istiyorum, makro ile yaptığımda tek tek tümünü siliyor.
filtreleme ile yaptığımda ise aradaki dolu satırlarıda siliyor,
benim isteiğim seçili (Bakiye) sütununda (0) değer içeren satırların silinmesini istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.


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

aşağıdaki makroyu dener misiniz?
Sub SilFiltreli()
Dim Syf As Worksheet
    Set Syf = ThisWorkbook.Worksheets("sayfa1")
   
    With Syf
    sonstr = Syf.Cells(Syf.Rows.Count, "h").End(xlUp).Row
    Syf.ListObjects("tablo5").Range.AutoFilter field:=7, Criteria1:="0,00"
    Set Rng = Syf.Range("A2:a" & sonstr).Rows.SpecialCells(xlCellTypeVisible)

    dz = Replace(Rng.Address, "$A$", "")
    dizi = Split(dz, ",")
        For x = UBound(dizi) To LBound(dizi) Step -1
            Syf.Range("A" & dizi(x)).EntireRow.Delete
        Next x
Syf.ListObjects("tablo5").Range.AutoFilter field:=7
    End With

End Sub



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

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



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

Sub Sýfýrdeðerlisatýrlarýsil()

    Dim i As Long, son As Long
    Application.ScreenUpdating = False
    With ThisWorkbook.Sheets("Sayfa1")
        son = .ListObjects("Tablo5").Range.Columns(7).Cells.Find("*", _
                                SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row
        If son < 2 Then Exit Sub
        For i = son To 2 Step -1      
            If Len(Trim(.Cells(i, "H").Value)) > 0 And .Cells(i, "H").Value = 0 Then .Rows(i).EntireRow.Delete
        Next
    End With
    Application.ScreenUpdating = True
End Sub



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

Emeği geçenlerin eline sağlık Çok teşekkür ederim, ilk sıfır değerleri silme makrosu güzel çalışıyor. ancak ben burda düzenlerim diye esas tabloyu göndermemiştim. şimdi o tablo üzerinde kod yazma becerim zayıf olduğu için düzenleme şansım olmadı. aynı makroyu "vadeli Hesap" sayfasında mevcut "R" sütunundeki SIFIR BAKİYELi SATIRLARIN SİLİNMESİ için tablo üzerinde düzenleme yaparak dosya halinde ekleyebilirseniz memnun olurum.
Kolay gelsin.
İyi Ramazanlar,


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

Rica ederiz.4.mesajdaki kod sıfır olan satırları siliyor denemeden kod yollamam Img-grin