Listview'de Toplam Alma

[seddur]

Merhabalar.Ekli dosyada görüleceği üzere userformda aylık satış ve peşinat toplamlarını ayrı ayrı alabilmekteyim.Yapmak istediğim Taksit toplamlarını da alabilmek.Bunun için "H" sutununda TAKSİT yazan hücrelerin toplatılarak aylık tutarlar olarak listview'e döktürülmesi yeterli olacaktır.Yardımcı olabilecek Arkadaşa Teşekkür Ediyorum.

 

[ÖmerFaruk]

Buyrun.

Private Sub CommandButton3_Click()
    Dim s1 As Worksheet, Toplam As Double, Dizim, Liste, i As Integer
    Dim xMonth As Integer, xYear As Integer, BakMonth As Integer, BakYear As Integer
    
    Set s1 = Sheets("Anasayfa")
    son = s1.Range("c" & Rows.Count).End(3).Row
    
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add , , "DÖNEMİ", 80, lvwColumn
    ListView1.ColumnHeaders.Add , , "PEŞİNAT TOPLAMI", 150, lvwColumnCenter
    Set dc = CreateObject("scripting.dictionary")
    Dizim = s1.Range("C2:H" & son).Value
    
    BakMonth = ComboBox1.ListIndex
    BakYear = ComboBox2.ListIndex + 1999
    Toplam = 0
    ReDim Liste(1 To 12, 1 To 2)
    For i = 1 To 12
        Liste(i, 1) = MonthName(i)
    Next i
    For i = 1 To UBound(Dizim)
        xMonth = Month(Dizim(i, 1))
        xYear = Year(Dizim(i, 1))
        If Dizim(i, 6) = "TAKSİT" And (BakYear < 2000 Or BakYear = xYear) And (BakMonth < 1 Or BakMonth = xMonth) Then
            If Dizim(i, 4) = "" Then
                Tutar = 0
            Else
                Tutar = Trim(Replace(Replace(Dizim(i, 4), "TL", ""), ".", "")) * 1
            End If
            Liste(xMonth, 2) = Liste(xMonth, 2) + Tutar
            Toplam = Toplam + Tutar
        End If
    Next i

    For i = 1 To 12
        If Liste(i, 2) = 0 Then Liste(i, 2) = ""
        ListView1.ListItems.Add , , Liste(i, 1)
        ListView1.ListItems(i).SubItems(1) = Format(Liste(i, 2), "#,##0.00")
    Next i
    Label4.Caption = Format(Toplam, "#,##0.00")
End Sub

 

[seddur]

Kodları dosya üzerinde kontrol edip uyarlayabilirmisin ,çalıştıramadım.

 

[ÖmerFaruk]

Kodları direkt userform kod sayfanıza Copy-paste edeceksiniz.

 

[seddur]

Yaptım kodları userformdaki TAHSİLAT butonu click olayına yapıştırdım ama sadece ayların dökümü geliyor toplamları göstermiyor

 

[ÖmerFaruk]

Merhaba.
Sizin diğer kodlarınızı hiç ellemedim.
TAHSİLAT adında bir butonunuz yok. En azından foruma eklediğiniz dosyada.
Butonunuzun adı CommandButton3, caption kısmı TAKSİT
Bu butonun kodları da haliyle CommandButton3 altında olacak.

Sonuçlardan bir kaç tanesinin fotosu aşağıda

 

[seddur]

Tamam paylaştığım dosyada çalışıyor sorun kendi özgün dosyamda .Bakacağım.Çalışmanız için tekrar Teşekkür ederim.