TOPLA.ÇARPIM fonksiyonu makro yapılabilinirmi

[imdatsaral]

Sevgili arkadaşlar
TOPLA.ÇARPIM fonksiyonu makro yapılabirmi?
=TOPLA.ÇARPIM((Cikis_Kayitlari!$C$3:$C$3500=B2)*(C ikis_Kayitlari!$F$3:$F$3500="iade")*(Cikis_Kayitla ri!$P$3:$P$3500))
Excel dosyamda bu Fonksiyonu kullanıyorum ama çok ağırlaştırıyor makro olarak yazılabilirse gerekli olduğunda çalıştırım diye düşünüyorum.

 

[imdatsaral]

selam arkadaşlar bana bu konuyla ilgili yardım edebilirmisiniz

 

[imdatsaral]

bu konuyla ilgili cevap veren olmadı.

 

[ockucukay]

forumda "makro ile topla çarpım" olarak aratın...

 

[Halit TÜRK]

Ekli dosyayı incelermisiniz...

Sub SUMPRODUCT()
    Const s1 As String = _
        "=SUMPRODUCT((Cikis_Kayitlari!R3C3:R3500C3=RC[-10])*(Cikis_Kayitlari!R3C6:R3500C6=""iade"")*(Cikis_Kayitlari!R3C16:R3500C16))"
    basla = Time
    Application.ScreenUpdating = False
    Range("K2:K" & [K65536].End(3).Row + 1).ClearContents
    Dim iLastrow As Long
    iLastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To [A65536].End(xlUp).Row
        Cells(i, "K").FormulaR1C1 = s1
    Next i
    Range("K2:K" & [K65536].End(3).Row) = Range("K2:K" & [K65536].End(3).Row).Value
    bitis = Time
    Application.ScreenUpdating = True
    CreateObject("WScript.Shell").Popup _
    "Raporlandı.." & Chr(13) & Chr(13) & "Sorgulama Süresi: " & Format(bitis - basla, "hh:mm:ss"), 1, "UYARI", vbInformation
End Sub

 

[imdatsaral]

SHalit TÜRK