AccessTr.neT

Tam Versiyon: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
winrar ile ilgili olabilir. Yeni versiyon indirip deneyin
(21/08/2019, 12:09)userx yazdı: [ -> ]winrar ile ilgili olabilir. Yeni versiyon indirip deneyin
Elinize sağlık kendi yönteminize göre halletmişsiniz. Ama ben nasıl yaptığınızı nasıl öğreneceğim yada şöyle sorayım Videodaki yöntemi izlediyseniz eğer ben nerede yanlış yapıyordum yada benim referans olan listenin bağlantılı tablo oluşundan mı kaynıklı raporlar sayfasında listeyi oluşturamamam. Son bir şey daha makroyu bir tuşa atayacağım ama kriterlerden herhangi birine tıklandığında Excel dosyası titreme nöbeti geçiriyor Img-grin Bu işlemi sakinleştirmenin bir yolu varmı acaba.
1-İki ayrı tablonuzu tek tabloya toplamışsınız. Tek filtrelemeyle sorgulama doğru çalışmıyor. o yüzden iki ayrı sorgu kullandım. 
2-Tasarım modunda bir buton oluştururup. Denetime Makro1 'i atayın.
3-Excelin titremesine 
Makroya

Application.ScreenUpdating = False
    Sheets("GELİRLER").Columns("B:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:F2"), CopyToRange:=Range("B14:F14"), Unique:= _
        False
        Sheets("GİDERLER").Columns("B:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:K2"), CopyToRange:=Range("G14:K14"), Unique:= _
        False
     
Application.ScreenUpdating = True


koyu mavi satırları eklersen fazla titremez.
(21/08/2019, 17:25)userx yazdı: [ -> ]1-İki ayrı tablonuzu tek tabloya toplamışsınız. Tek filtrelemeyle sorgulama doğru çalışmıyor. o yüzden iki ayrı sorgu kullandım. 
2-Tasarım modunda bir buton oluştururup. Denetime Makro1 'i atayın.
3-Excelin titremesine 
Makroya

Application.ScreenUpdating = False
    Sheets("GELİRLER").Columns("B:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:F2"), CopyToRange:=Range("B14:F14"), Unique:= _
        False
        Sheets("GİDERLER").Columns("B:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:K2"), CopyToRange:=Range("G14:K14"), Unique:= _
        False
     
Application.ScreenUpdating = True


koyu mavi satırları eklersen fazla titremez.
Teşekkür ederim titreme dediğiniz gibi azaldı. Sadece Tarih Kriterini iki tarih arasını gösterecek şekilde yapmam gerekiyor.Şu an tarih filtresi çalışmıyor.
Farklı bir çalışma...
İki tarih arası rapor filtresi de eklendi.
Sayfalar: 1 2 3 4