Veri Süzme

[tete58]

Arkadaşlar Ufak bir yardıma daha ihtiyacım var geçenlerde saolsun arkadaşlar yardım etmişti inş. yine yardımcı olursunuz şimdi konuyu özetleyeyim

Excel tablosunda Veri Tablosu Sayfası ve Ödeme Yapanlar Sayfası olmak üzere iki adet sayfa mevcut Veri Tablosu Sayfasında A'dan M sutununa kadar veriler var ve sürekli yeni veriler eklenebiliyor şimdi benim istediğim Veri Tablosu Sayfasında M Sutununda Ödendi Yazanların Ödeme Yapanlar Sayfasına Konulacak Bir buton İle buraya aktarılması Yani Veri Tablosu Sayfasında Ödeme Yapan kişilerin Bİlgileri A'dan L ye Kadar yazıyor ve M Sutunundada Ödendi yada Ödenmedi Yazıyor Benim İstediğim M2 Hücresinden Başlayarak Ödendi Yazan Kişilerin Bİlgilerinin tamamının Ödeme Yapanlar Sayfasına Aktarılması Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub AKTAR()
    Application.ScreenUpdating = False
    
    Sheets("ÖDEME YAPANLAR").Range("A:L").Clear
    
    With Sheets("VERİ TABLOSU")
        .Range("A1").AutoFilter Field:=13, Criteria1:="Ödendi"
        .Range("A1").CurrentRegion.Copy Sheets("ÖDEME YAPANLAR").Range("A1")
        .Range("A1").AutoFilter Field:=13
    End With
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[tete58]

Aşağıdaki kodu kullanabilirsiniz.

Sub AKTAR()
    Application.ScreenUpdating = False
    
    Sheets("ÖDEME YAPANLAR").Range("A:L").Clear
    
    With Sheets("VERİ TABLOSU")
        .Range("A1").AutoFilter Field:=13, Criteria1:="Ödendi"
        .Range("A1").CurrentRegion.Copy Sheets("ÖDEME YAPANLAR").Range("A1")
        .Range("A1").AutoFilter Field:=13
    End With
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Hocam benmi yanlış yaptım bilmiyorum ama bu kodu yapıştırdığımda veri tablosundaki formülleri aynen Ödeme yapanlar sayfasına yapıştırıyor yani sadece Ödeme yapanları listelemiyor

 

[tete58]

Hocam pardon kopyala-yapıştırda bir sıkıntı olmuş sorun düzeldi çok teşekkür ederim Zahmet Verdim Yalnız Süzme işlemi yapınca Diğer Kalanlar boş satır olarak geliyor sadece Ödendi Yazanların Gelmesi Mümkün Değilmi

 

[Korhan Ayhan]

Merhaba,

Ben sorunuzu okuduktan sonra boş bir excel dosyasında verdiğiniz bilgiler doğrultusunda elle veriler girerek örnek bir dosya hazırladıktan sonra kodları deneyerek olumlu sonuç almıştım. Her zaman söylediğimiz gibi net sonuçlara ulaşabilmemiz için sizlerden örnek dosya göndermenizi bekliyoruz. Örnek dosya olmayınca farazi çözümler bulup sizlere öneriyoruz. Bu şekilde olunca çoğu zaman çözüm net olmuyor. Bu da sizlerin dosyalarınızda ki detaylardan kaynaklanıyor. Bunları siz bize bildirmediğiniz sürece bizim bilmemiz mümkün değil.

Şimdi net çözüm için örnek dosya ekler misiniz?