listede kişinin bakiyesi sıfırsa onun tüm satırlarını sil

[cems]

Oldukça uzun bir listede , amaç bakiyesi sıfırlanmış olan kişilerin bakiyesi olan kişilerden ayrılması ve bakiyesi sıfır olanların listeden çıkarılması.

Ekteki ornekte A sütununda kişiler için açılmış satırlar ve BORC-ALACAK kayıtları aynı hizada bulunmakta . Bunun dışında süzgeçle kişinin kaydı çağrıldığında , para sütunlarının üstünde o kişinin kalan bakiyesini gösteren bir işlem var ( şuan anatoplamı gösteriyor ama süzgeç çalıştığında kişiye özel sonucu gösterebilmeli . )

Bir tuş vasıtası ile ,
a) bakiyesi sıfır olan kişiye ait tüm satırların silinmesi
b) kişiye özel borç-alacak sonucunun sütun tepesinde görünmesini

gerçekleştirmeme destek olursanız sevinirim .

 

[Korhan Ayhan]

Selamlar,

Süzülmüş verilerde toplam almak için ALTTOPLAM formülünü inceleyin.

Ayrıca ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Option Explicit
 
Sub BAKİYESİ_SIFIR_OLANLARI_SİL()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("A:A").Clear
    S1.Range("A4:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S2.Range("A1"), Unique:=True
    
    For X = 2 To S2.Range("A65536").End(3).Row
        If S2.Cells(X, 1) <> "" Then
            S1.Range("A4").AutoFilter , Field:=1, Criteria1:=S2.Cells(X, 1)
            If S1.Range("E2") = 0 Then S1.Range("A5:A65536").EntireRow.Delete
        End If
    Next
        
    S1.Range("A4").AutoFilter
    S2.Range("A:A").Clear
        
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cems]

Sayın Korhan Ayhan

Elinize sağlık, bütün işlemleri her sayfa için 2 - 3 saniyeye indirdi ve temiz bir borçlular listesi çıkarmama gerçekten göznurunuz bana yardımcı oldu.
ALTTOPLAM hiç aklıma gelmedi , ETOPLA ile yada BAĞ_DEĞ_SAY deniyordum.
Teşekkür ederim .

 

[assenucler]

Sayın Korhan Ayhan;

Katkınız için teşekkürler..