Listview'de aylık toplam alma

[seddur]

Merhabalar.Ekli dosyada GENEL sayfasında bulunan tablodaki Mahsup ve Tahsilat tutarları toplamları her ay için ayrı olmak üzere alınmak istenmektedir.Listeleme için userformda listview oluşturdum.Son olarak listview 3.sutununda Mahsup toplamı ile Tahsilat toplamları arasındaki fark yine her ay için ayrı olarak listelenmek istenmektedir.
Yardımcı olabilecek arkadaşa Teşekkür Ederim.

 

[Muzaffer Ali]

Merhaba.
Formun kodlarının tamamını silin aşağıdaki kodları kopyalayın.

Option Explicit

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim Say As Long
    UserForm1.BackColor = RGB(0, 102, 102)
    With ListView1
        .BackColor = RGB(0, 102, 102)
        .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 , , "AYLAR", 100
        .ColumnHeaders.Add , , "MAHSUP", 90, lvwColumnCenter
        .ColumnHeaders.Add , , "TAHSİLAT", 90, lvwColumnCenter
        .ColumnHeaders.Add , , "ALACAK", 90, lvwColumnCenter
    End With
   
    With Worksheets("GENEL")
        Say = .Cells(Rows.Count, "C").End(xlUp).Row
        For i = 1 To 12
            ListView1.ListItems.Add , , MonthName(i)
            ListView1.ListItems(i).SubItems(1) = WorksheetFunction.Sum(.Range(.Cells(3, (i * 2) + 2).Address & ":" & .Cells(Say, (i * 2) + 2).Address))
            ListView1.ListItems(i).SubItems(2) = WorksheetFunction.Sum(.Range(.Cells(3, (i * 2) + 3).Address & ":" & .Cells(Say, (i * 2) + 3).Address))
            ListView1.ListItems(i).SubItems(3) = ListView1.ListItems(i).SubItems(1) - ListView1.ListItems(i).SubItems(2)
        Next i
    End With
End Sub

 

[seddur]

Merhaba.Vaktiniz varsa bir şey daha isteyeceğim.Ekli dosyada VERİLER sayfası "J" sutununda bulunan ödeme tiplerine göre her ay için ayrı olarak döküm almak istiyorum.Ödeme tipleri EFT-ELDEN-KREDİ KARTI şeklinde üç ayrı tip de sayfada yer almaktadır.Yardımcı olursanız sevinirim

 

[Muzaffer Ali]

Excelin Filtre özelliği ile istediklerinizi yapabilirsiniz.