TOPLA.ÇARPIM Fonksiyonunu yerine başka fonksiyon

[imdatsaral]

Selam Arkadaşlar,

Excel dosyamda TOPLA.ÇARPIM fonksiyonunu kullanıyorum. İşlem yaptıktan sonra işlem yapması çok uzun sürüyor. Bu fonksiyon işlevini görecek makro yamamız mümkünmü?
Ekte dosyamı gönderiyorum.
iyi çalışmalar.

 

[hamitcan]

Sub NN()
For I = 2 To [A65536].End(3).Row
    Cells(I, "K") = Evaluate("=SUMPRODUCT((Cikis_Kayitlari!C3:C3500=" & Cells(I, "a").Address & ")* (Cikis_Kayitlari!F3:F3500=" & Cells(1, "K").Address & ")*(Cikis_Kayitlari!P3:P3500))")
Next
End Sub

 

[imdatsaral]

Teşekkür ederim Hamitcan