Makro ile gelişmiş süzgeç

[bezl]

Ekteki dosyada banka ve kredi kartı türü kriterine göre (c1:d2) database ismini verdiğim listeyi gelişmiş süzgeç ile j3:q3'e aktarıyorum ama ben kritere a1 ve b1 tarih aralığını da ekleyip verileri buna göre aktarmayı istiyorum yardımcı olursanız sevinirim.
Yani kriterde şundan küçük şundan büyük gibi bir kriter verebiliyor muyuz yoksa sadece eşitlik mi verebiliyoruz.
Gelişmiş süzgeç ile yapamıyorsak başka nasıl yapabiliriz.
Not: Makroyu d2 hücresinin değişimine verdim. D2'ye girip çıkınca çalışıyor

 

[zafer]

Merhaba

 

[bezl]

zafer bey ekte bir değişiklik yaptınız mı acaba?

 

[zafer]

Merhaba

CriteriaRange:=Sheets("Kredi Kart Harcamaları").Range("a1:d2"), _

Kodlarınızdaki sadece Süzgeç te C12 hücrelerini A12 olarak değiştirdim.

 

[bezl]

Ama o zaman bir veri gelmiyor yani A1 tarih'de tarihin bu tarihten büyük eşit, b1 tarih'de tarihin bu tarihten küçük eşit olacağı şekilde nasıl verebiliriz. Burada eşitlik olmayınca sonuç vermez herhalde

 

[zafer]

Merhaba

Ben Tarih ve Valör'e göre yaptım Siz B1'e de Tarih yazın ona göre süz'ün deneyin

 

[bezl]

Teşekkürler kendi eklediğim dosyayı indirmişim sizin gönderdiğniz diye ondan sormuşum. Sağolun...