Makro Çokeğersay

[ermanzohre]

merhabalar,
büyük verilerle çalısıyorum ve aylık raporu 1 hata gibi bir sürede anca yetiştirebiliyorum :/ help me!
kullanılan formuller: =ÇOKEĞERSAY(B:B;B2;C:C;C2) , =ÇOKEĞERSAY(A:A;A2;B:B;B2;C:C;C2)
verilerde ortalama 600bin satır var..
bu formulleri makroda nasıl yapabilirim
örnek:

 

[Emir Hüseyin Çoban]

. . .

Sorun nedir tam olarak anlayamadım.
Formüller tabloyu kastığı için mi makroya çevirmek istiyorsunuz.

. . .

 

[ermanzohre]

formuller 600binlik bi satır için yaklasık 2 saat sürede hesaplama yapıyo bu şekilde ayda 10 adet excel dosyası var ve asırı derecede zamanımı alıyor. amacım sonuçları hızlandırabilmek.

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya yüklerseniz formülleri makroya çevirelim.

. . .

 

[ermanzohre]

https://yadi.sk/i/tsYHhA8MaEtpL
burdan bakabilir misiniz bir örnek hazırladım.

 

[Emir Hüseyin Çoban]

. . .

600 bin satır olunca makroda kasıldı.
WorksheetFunction.CountIfs ile döngüye girdim ama işlem sonucunu göremedim.

. . .

 

[ermanzohre]

bende bişeler denedim ama yapamadım sonuc vermedi girdiğn kodları verebilir misin belki ortak bişlerden yola cıkabiliri

 

[Emir Hüseyin Çoban]

. . .

    son = Cells(Rows.Count, "A").End(3).Row
    For i = 2 To son
        Cells(i, "D") = _
        WorksheetFunction.CountIfs(Range("B2:B" & son), Cells(i, "B"), Range("C2:C" & son), Cells(i, "C"))
    Next i

. . .