[Yardım]  1048575 ADET SATIR İLE AUTOFİLTER

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

1048575 ADET SATIR İLE AUTOFİLTER

İleti#1)  yyaldag » 10 Eyl 2018 04:38

Merhabalar,Excel Vba ile bir sayfa için "autofilter" kodlarını kullanıyoruz.
Komut her çalıştığında Excel donuyor,yavaşlıyor.Sanırım sebebi 1 048 575 adet satırı kontrol etmesinden kaynaklanıyor.
Aslında scrollarea kısmında sayfanın satır ve sütun sınırlanrıması yapsamda , bir ley değişmedi.Nasıl halledebilirim.Bu konu da rica etsem bana yardımcı olabilir misiniz?
Kullanıcı avatarı
yyaldag
 
Kayıt: 10 Eyl 2018 04:33
Meslek: Serbest Meslek
Yaş: 23
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: denizli

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İleti#2)  l3oomerangg » 10 Eyl 2018 05:47

Dosyayı eklerseniz belki fikir edinmemizi ve çözüm yollarına bakmamızı sağlayabilir.
Kullanıcı avatarı
l3oomerangg
Yeni Başlamış
 
Kayıt: 15 Haz 2018 03:59
Meslek: Serbest
Yaş: 40
İleti: 57
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sultangazi

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İleti#3)  TAHİR ARSLAN » 11 Eyl 2018 00:17

Sheets("GELİR").Select
Set s1 = Sheets("GELİR")
Set s2 = Sheets("RAPOR")
s2.[R2:V1048575].ClearContents
For a = 1 To s1.[A1048575].End(3).Row 'A Sütununun tamamı yerine
If s1.Cells(a, "F") > 0 Then 'S1 = Gelir Sayfasının F sütunundaki 0'dan Büyük değerler
If s1.Cells(a, "J") = TextBox1.Text Then 'J Sütunu TextBox1'e eşit olan değerler
D = D + 1
s2.Cells(D + 1, "R") = D
s2.Cells(D + 1, "S") = s1.Cells(a, "A")
s2.Cells(D + 1, "T") = s1.Cells(a, "B")
s2.Cells(D + 1, "U") = s1.Cells(a, "C")
s2.Cells(D + 1, "V") = s1.Cells(a, "D")

End If
End If
Next

Bu yöntemi deneyiniz.
For a = 1 To WorksheetFunction.CountA(Sheets("GELİR").Range("A:A")) 'Gelir Sayfasının A sütunundaki dolu satıra kadar
Kullanıcı avatarı
TAHİR ARSLAN
 
Kayıt: 28 Eyl 2014 23:21
Meslek: EMEKLİ BANKACI
Yaş: 58
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ADANA

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İleti#4)  Zeki Gürsoy » 11 Eyl 2018 01:35

Filitreleme alanında formüller varsa, bunlar da yavaşlamaya neden olabilir.
Kullanıcı avatarı
Zeki Gürsoy
Yeni Başlamış
 
Adı Soyadı:Zeki Gürsoy
Kayıt: 18 Eyl 2011 23:43
Konum: Sakarya
Meslek: Muhasebe
Yaş: 40
İleti: 90
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya/Hendek

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İleti#5)  yyaldag » 11 Eyl 2018 10:51

https://drive.google.com/file/d/1mVyQFu ... sp=sharing
Adresine dosyayı yükledim.
Üretimplanı ve Sıralama sayfası için bakabilmeniz mümkün müdür acaba?
Kullanıcı avatarı
yyaldag
 
Kayıt: 10 Eyl 2018 04:33
Meslek: Serbest Meslek
Yaş: 23
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: denizli


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Google [Bot], Google Adsense [Bot] ve 7 misafir

Bumerang - Yazarkafe