Sayfalar arasında isim ve yıla göre veri toplama

[Feylosof]

Herkese iyi akşamlar diliyorum.
Userform1üzerinde comboboxta hangi yıl ve listboxta hangi isim seçilmişse ÖDEME sayfasında o kişiye ve o yıla ait tüm ödemeleri toplayıp KAYIT sayfasındaki ilgili kişinin o yılın altına aktaracak bir VBA kod desteğine ihtiyacım var.

 

[dEdE]

Merhaba,
Aşağıdaki kodu UserForm'un kod bölümüne yapıştırarak dener misiniz?

Private Sub CommandButton1_Click()
    Set s1 = Sheets("KAYIT")
    Set s2 = Sheets("ÖDEME")
    ss = s2.Cells(Rows.Count, 3).End(3).Row
    For i = 2 To ss
        Set c = s2.Rows("1:1").Find(ComboBox1.Value, , xlValues)
        If Not c Is Nothing Then myCol = c.Column
        If ListBox1.Value = s2.Cells(i, 3).Value Then
            Tpl = Tpl + s2.Cells(i, myCol).Value
        End If
    Next i
    Set c = s1.Rows("1:1").Find(ComboBox1.Value, , xlValues)
        If Not c Is Nothing Then myCol = c.Column
    Set c = s1.Range("C:C").Find(ListBox1.Value, , xlValues)
        If Not c Is Nothing Then mySat = c.Row
        Cells(mySat, myCol) = Tpl
End Sub

 

[Feylosof]

Sayın @dEdE çok teşekkür ederim. Elinize sağlık.