SumProduct Kullanımı

[ÖmerFaruk]

Merhaba,
Makroda SumProduct ve CountIfs kullanımında sıkıntı yaşadım
Ekteki dosyada bulunan listenin özet tablosunu formül kullanmadan SumProduct ve CountIfs yöntemleriyle saydırabilirmiyiz.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sumproduct_Example()
    Dim Alan As Range
    
    For Each Alan In Range("H2:J5")
        Alan.Value = Evaluate("=SUMPRODUCT((A2:A28=""" & Cells(Alan.Row, "G").Value & """)*(LEFT(B2:B28,LEN(""" & Cells(1, Alan.Column).Value & """))=""" & Cells(1, Alan.Column).Value & """))")
    Next
End Sub

Sub Countifs_Example()
    Dim Alan As Range
    
    For Each Alan In Range("M2:O5")
        Alan.Value = Evaluate("=COUNTIFS(A2:A28,""" & Cells(Alan.Row, "G").Value & """,B2:B28,""" & Cells(1, Alan.Column).Value & "*"")")
    Next
End Sub

 

[Korhan Ayhan]

Ek olarak linki inceleyiniz.

https://www.excel.web.tr/threads/topla-carpim-sumproduct-fonksiyonunun-vba-icindeki-farkli-kullanimlari.82178/

 

[ÖmerFaruk]

@Korhan Ayhan teşekkür ederim.