Skip to main content

AccessTr.neT


Sıfır Bakiyeli Satırları Silme

ercansahiner61
ercansahiner61
5
428

Sıfır Bakiyeli Satırları Silme

#5
(20/11/2022, 14:21)atoykan yazdı: Aynı soruyu eski konunuzda da örnek ekleyerek sormuşsunuz
Orada da verdiğim cevap:

Kodunuzu aşağıdaki gibi revize edin

Sub SıfırBakiyeliHesaplarıSİL()
Dim wb As Workbook
Set wb = ThisWorkbook
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(1)
Dim dvrg As Range
 
    With tbl
        If .ShowAutoFilter Then
            If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData
        End If
        .Range.AutoFilter 7, "0,00"
        On Error Resume Next
            Set dvrg = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
        On Error GoTo 0
        .AutoFilter.ShowAllData
    End With
   
  ActiveSheet.ListObjects("Tablo4").Range.AutoFilter Field:=7
  Range("B2").Select
End Sub

Çok teşekkür ediyorum, elinize sağlık bu kez çok güzel olmuş.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Sıfır Bakiyeli Satırları Silme - Yazar: atoykan - 19/11/2022, 00:58
RE: Sıfır Bakiyeli Satırları Silme - Yazar: atoykan - 20/11/2022, 14:21
RE: Sıfır Bakiyeli Satırları Silme - Yazar: ercansahiner61 - 20/11/2022, 16:59
RE: Sıfır Bakiyeli Satırları Silme - Yazar: atoykan - 20/11/2022, 21:49
Task