Topla çarpım ya da makro ile çözüm?

[assenucler]

Değerli dostlar merhabalar;


Ekli dosyadaki harcama kalemlerinin, yıllara göre:

topla.çarpım
ya da
makro

ile çözümü konusunda yardımınızı rica edebilir miyim?

Emek ve yardımınız için önceden teşekkürler.

 

[muygun]

Merhaba;
L9 hücresine;
=TOPLA.ÇARPIM((YIL($A$3:$A$3000)=L$8)*($F$3:$F$3000=$K9)*($H$3:$H$3000))
Formülünü uygulayıp sağa ve aşağı doğru yeterince çoğaltın.

Veya sayfanın kod bölümüne;

Sub topla()
Application.ScreenUpdating = False
On Error Resume Next
Range("L9:M65536").Select
Selection.ClearContents
Range("L9").Select
Set s1 = ThisWorkbook.Worksheets("AnneHarcamaKontrol")
For k = 9 To s1.Range("K65536").End(xlUp).Row
For i = 3 To s1.Range("A65536").End(xlUp).Row
If Year(s1.Cells(i, 1)) = s1.Cells(8, "L") And s1.Cells(i, "f") = s1.Cells(k, "k") Then s1.Cells(k, "L") = s1.Cells(k, "L") + s1.Cells(i, "H")
If Year(s1.Cells(i, 1)) = s1.Cells(8, "M") And s1.Cells(i, "f") = s1.Cells(k, "k") Then s1.Cells(k, "M") = s1.Cells(k, "M") + s1.Cells(i, "H")
Next i
Next k
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını uygulayarak bir butona bağlayın.
İyi çalışmalar.

 

[assenucler]

Sayın muygun,

Değerli üstadım, inceliğiniz ve yardımınız için içten teşekkürler.

Sevgi ve saygılar.