İ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.
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
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
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
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,
Rica ederiz.4.mesajdaki kod sıfır olan satırları siliyor denemeden kod yollamam
