Makro ile ÇOKETOPLA

[tirEdsOuL]

Merhabalar,

Aşağıdaki kod ile çoketopla formülünü uyguluyorum ama verileri aldığım Sayfa1'de yüzbinin üzerinde satır olduğu için normal formülde olduğu gibi çok kasıyor, bunun yerine kullanabileceğim daha hızlı alternatif bir kod söyleyebilir misiniz?

Sub coketopla()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Range("B4:AW84")
.ClearContents
.Formula = "=SUMIFS(Sayfa1!$I:$I,Sayfa1!$A:$A,B$2,Sayfa1!$C:$C,$A4,Sayfa1!$E:$E,B$3)"
.Value = .Value
End With
 Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[yanginci34]

http://www.excel.web.tr/showthread.php?goto=newpost&t=168076
Konuyu inceleyin belki yardımı dokunur

 

[tirEdsOuL]

Öncelikle ilginiz için teşekkürler, yalnız size verilen cevap sanırım tam olarak benim isteğime cevap vermiyor, veriyor ise de kod normalinden baya bir karışık geldi bana, neyi nereye nasıl yerleştireceğimi anlayamadım. Bende 3 koşula göre arama yapıp toplamı aldırması lazım, koşullardan biri sabit sütundaki değişkenleri alacak, diğer 2si de sabit satırdaki değişkenleri alacak..

 

[tirEdsOuL]

Günceldir.

 

[Korhan Ayhan]

DİZİ yöntemini kullanabilirsiniz. Ya da alternatif olarak özet tablo kullanabilirsiniz.

Her iki yöntemle de yoğun verili tablolarda hızlıca sonuca gidebilirsiniz.

Örnek dosyanızı ekleyebilir misiniz?