Skip to main content

AccessTr.neT


Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu

Oğuz Türkyılmaz
Oğuz Türkyılmaz
19
3992

Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu

#13
winrar ile ilgili olabilir. Yeni versiyon indirip deneyin
"Dünyayı fazla düşünme."
Cevapla
#14
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#15
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.
"Dünyayı fazla düşünme."
Cevapla
#16
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#17
Farklı bir çalışma...
.rar USERX_KASA_1.rar (Dosya Boyutu: 103,29 KB | İndirme Sayısı: 7)
"Dünyayı fazla düşünme."
Cevapla
#18
İki tarih arası rapor filtresi de eklendi.
.rar USERX_KASA_2.rar (Dosya Boyutu: 109,67 KB | İndirme Sayısı: 9)
"Dünyayı fazla düşünme."
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task