AccessTr.neT
Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu (/konu-gelismis-filtre-uygulamasinda-makro-ile-listeleme-sorunu.html)

Sayfalar: 1 2 3 4

Cvp: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - userx - 21/08/2019

winrar ile ilgili olabilir. Yeni versiyon indirip deneyin

RE: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - Oğuz Türkyılmaz - 21/08/2019

(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.

Cvp: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - userx - 21/08/2019

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.

RE: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - Oğuz Türkyılmaz - 21/08/2019

(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.

RE: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - userx - 22/08/2019

Farklı bir çalışma...

RE: Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu - userx - 24/08/2019

İki tarih arası rapor filtresi de eklendi.