Tarihe Göre Toplam Listeleme

[seddur]

Merhaba.Ekli dosyada listview1'de günlük tarihler listelenmektedir.Yapmak istediğim Kayıt sayfasında "I" sutununda bulunan rakamların "B" sutunundaki tarihlere göre toplamını alarak Listview1 1.kolonunda listelemek.Yani hangi tarihde toplam kaç TL tahsil edilmiş onu bulmak.Yardımcı olacak arkadaşa Teşekkür Ediyorum.

 

[Ziynettin]

Merhaba.

Private Sub UserForm_Activate()
With UserForm1.ListView1
Dim s1 As Worksheet
Dim i As Integer
UserForm1.BackColor = RGB(0, 102, 102)
ListView1.BackColor = RGB(23, 60, 89)
ListView1.ForeColor = RGB(0, 0, 0)

    .Font.Bold = True
    .ForeColor = RGB(255, 255, 255)
    .Font.Size = 11
    .FullRowSelect = True
    .View = lvwReport
     .Gridlines = True
        .ColumnHeaders.Clear
    .ColumnHeaders.Add , , "TARİH", 100
    .ColumnHeaders.Add , , "HASTA SAYISI", 100, lvwColumnCenter
 
With Sheets("Kayıt")
    Set dc = CreateObject("scripting.dictionary")
    ss = .Range("A" & Rows.Count).End(3).Row
    v = .Range("A1:I" & ss).Value
    
    For i = 2 To UBound(v)
        dc(CStr(v(i, 2))) = dc(CStr(v(i, 2))) + v(i, 9)
    Next i
End With

    Set s1 = Sheets("Sayfa1")
    son = s1.Range("A" & Rows.Count).End(3).Row
    
    a = s1.Range("A1:A" & son).Value
    For i = 2 To UBound(a)
        .ListItems.Add , , a(i, 1)
        .ListItems(i - 1).SubItems(1) = dc(CStr(a(i, 1)))
    Next i
    End With
End Sub