Merhaba,
Öncelikle herkese selamlar olsun, abilerim,ablalarım ve kardeşlerim. Yine bir excel yardımına ihtiyaç duyup kaydolduğum foruma tekrar yardım ihtiyacım doğrultusunda geldim. Umarım yardımcı olan çıkar;
Satın alma konusunda bir excel tablosu yaptım kardeşime. Tüm kayıtları "liste" sayfamdan giriyorum ve "rapor" sayfamdan da "gelişmiş filtre" ile bu verileri arama formuma göre listeletiyorum. Fakat bazen istediğim ürünler istediğim tarihte gelmiyor. Bu yüzden eğer gelentarih>termintarih gibi bir formülle kutuya 1, aksi halde 0 yazdırıyorum. Bu formülü o hücredeki tüm sütunlara kopyalayınca sağlıklı çalışıyor ama çok ama çok geç açılıyor excel. Daha bunun içine veri girilmedi ve bu kadar kasıntı çok sıkıntı. Bunu halletmenin başka yolu yokmudur acaba?
Diğer sorunum ise ben bu yöntemi yaptığımda gelişmiş filtreleme özelliği hata veriyor ve kullanamıyorum. Nasıl mı anladım ? Bu baştan aşağıya yazdığım yukarıdaki eğer formülü kaldırırsam program sorunsuz çalışıyor.
Verdiği hatayı da yazıyorum ; (gelişmiş filtre bulduğu sonucu a5'ten itibaren yapıştırıyor)
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Clear
Range("A5").Select
Application.CutCopyMode = False
Range("liste").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"kriter"), CopyToRange:=Range("A5"), Unique:=False
Öncelikle herkese selamlar olsun, abilerim,ablalarım ve kardeşlerim. Yine bir excel yardımına ihtiyaç duyup kaydolduğum foruma tekrar yardım ihtiyacım doğrultusunda geldim. Umarım yardımcı olan çıkar;
Satın alma konusunda bir excel tablosu yaptım kardeşime. Tüm kayıtları "liste" sayfamdan giriyorum ve "rapor" sayfamdan da "gelişmiş filtre" ile bu verileri arama formuma göre listeletiyorum. Fakat bazen istediğim ürünler istediğim tarihte gelmiyor. Bu yüzden eğer gelentarih>termintarih gibi bir formülle kutuya 1, aksi halde 0 yazdırıyorum. Bu formülü o hücredeki tüm sütunlara kopyalayınca sağlıklı çalışıyor ama çok ama çok geç açılıyor excel. Daha bunun içine veri girilmedi ve bu kadar kasıntı çok sıkıntı. Bunu halletmenin başka yolu yokmudur acaba?
Diğer sorunum ise ben bu yöntemi yaptığımda gelişmiş filtreleme özelliği hata veriyor ve kullanamıyorum. Nasıl mı anladım ? Bu baştan aşağıya yazdığım yukarıdaki eğer formülü kaldırırsam program sorunsuz çalışıyor.
Verdiği hatayı da yazıyorum ; (gelişmiş filtre bulduğu sonucu a5'ten itibaren yapıştırıyor)
Range("A5").Select
Selection.CurrentRegion.Select
Selection.Clear
Range("A5").Select
Application.CutCopyMode = False
Range("liste").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"kriter"), CopyToRange:=Range("A5"), Unique:=False