macro ağır çalışıyor Alternatif kod lazım

[asterix1234]

Merhaba, eklediğim dosyadaki kodları gayet hızlı çalışıyor. fakat asıl dosyama uyarladığımda (256 sütun 400 satırlık) çok ağır çalışıyor.

Kodlarda sorgulamada kriter olarak belirlenen (armed adında kriter) kriteri değiştirip başka bir isim yazdığımda kodlar hatalı çalışıyor.

Kodların hızlı çalışması için ne önerirsiniz ? mevcut kodlar ile Armed adlı sorgulamadaki sorunu nasıl çözeriz.

 

[Ayhan Ercan]

Merhaba,

Aşağıdaki kodları revize ederek deneyiniz..

...................
...................
s1.[a1:gy65536].AutoFilter Field:=207, Criteria1:=s2.Cells(sat, "a")
s1.[a1:gy65536].AutoFilter Field:=11, Criteria1:=s2.Cells(2, sut)
say1 = WorksheetFunction.Subtotal(103, s1.[a:a])
s1.[a1:gy65536].AutoFilter Field:=1, Criteria1:=[COLOR=red][B]s2.Cells(2, "r")
[/B][/COLOR]say2 = WorksheetFunction.Subtotal(103, s1.[a:a])
...........................
...........................

 

[asterix1234]

Ayhan Bey, denedim ve dediğiniz yerdeki düzeltmeyi yaparak dosyayı ekledim,
Armed ismini değiştirmeden önce macroyu test ettim sonuç aynı,

Dosyayı ekledim bakabilirmisiniz.
bu kodları kullanmak çok zaman aldırıyor başka bir alternatifimiz olabilir mi ?