1 sayfadan 1. sayfa

1048575 ADET SATIR İLE AUTOFİLTER

İletiTarih: 10 Eyl 2018 02:38
yyaldag
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?

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İletiTarih: 10 Eyl 2018 03:47
l3oomerangg
Dosyayı eklerseniz belki fikir edinmemizi ve çözüm yollarına bakmamızı sağlayabilir.

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İletiTarih: 10 Eyl 2018 22:17
TAHİR ARSLAN
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

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İletiTarih: 10 Eyl 2018 23:35
Zeki Gürsoy
Filitreleme alanında formüller varsa, bunlar da yavaşlamaya neden olabilir.

Cevap: 1048575 ADET SATIR İLE AUTOFİLTER

İletiTarih: 11 Eyl 2018 08:51
yyaldag
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?