Yazılan tarihe kadar tüm tarihlerin karşılıklarını toplatmak

[adigeturklim]

Merhaba,

Ekteki tabloda bir örnek yaptım. Tarih alanına hangi tarih yazılmışsa (yazılan tarih dahil) o tarihe kadar isimlerin karşısına toplam aldırmak istiyorum. Tabi yazılan tarihten sonraki tarihlerin tutarlarını dikkate almayacak şekilde.

Yardımlarınızı rica ediyorum, iyi günler

 

[Ömer BARAN]

Merhaba.

Aşağıdaki formül istediğiniz sonucu verir.
.

=[COLOR="Red"]TOPLA.ÇARPIM[/COLOR](($E$4:$E$71<=$J$3)*($F$4:$F$71=I4)*($G$4:$G$71))

 

[adigeturklim]

Sayın Ömer Baran teşekkür ederim, bu formül işimi çözdü elinize sağlık

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub tarihler59()
Dim z As Object, i As Long, sonsat As Long, liste()
sonsat = Cells(Rows.Count, "E").End(xlUp).Row
liste = Range("E4:G" & sonsat).Value
Range("I4:J" & Rows.Count).ClearContents
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(liste)
    If liste(i, 1) <= Range("J3").Value Then
        If Not z.exists(liste(i, 2)) Then
            z.Add liste(i, 2), liste(i, 3)
        Else
            z.Item(liste(i, 2)) = z.Item(liste(i, 2)) + liste(i, 3)
        End If
    End If
Next i
If z.Count > 0 Then
    Range("I4").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
End If
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly, "Evren"
End Sub