B sütununda iki tarih arasna göre listviewe toplam.

[kelkitli]

Selamlar,
Değerli Dostlar, ekteki dosyada Sheets("AKARYAKITVERME") sayfasında D sütununda tarihler C sütununda plakalar var. UserForm1 de DTPicker1 ve DTPicker2 arasındaki tarihler arası araçların(Veritabanındaki araçları birer kez yazarak) akaryakıt toplamlarının, Km toplamlarının ve tutar toplamlarının Listview de görüntülenebilmesini istiyorum. Şekil isimli sayfadakine benze olarak.

 

[Murat OSMA]

Merhaba Sn. Kelkitli,
Memleketime selamlar...

UserForm_Initialize kodlarına;

With ListView1
    .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
    .ColumnHeaders.Clear
    .LabelEdit = lvwManual
End With

CommanButton1 kodlarına da aşağıdaki kodları yapıştırıp deneyiniz...

Private Sub CommandButton1_Click()
    Dim i As Long
    
    ListView1.ListItems.Clear
    With ListView1.ColumnHeaders
    .Add , , "No", 20, 0
    .Add , , "İrsaliye Tarihi", 80, 0
    .Add , , "İrsaliye No", 50, 0
    .Add , , "Alınan Akaryakıt", 50, 0
    .Add , , "Birim Fiyat", 50, 0
    .Add , , "Fatura No", 50, 0
    .Add , , "Tutar", 80, 0
    .Add , , "Kdv", 50, 0
    .Add , , "Fatura Tutarı", 80, 0
    .Add , , "Alım Şekli", 50, 0
    .Add , , "Fatura Tarihi", 80, 0
    End With
    
    On Error Resume Next
    With Sheets("AKARYAKITALIMLARI")
    For i = 2 To Range("B65536").End(3).Row
    If CLng(CDate(.Cells(i, "B").Value)) >= CLng(CDate(Me.DTPicker1.Value)) _
    And CLng(CDate(.Cells(i, "B").Value)) <= CLng(CDate(Me.DTPicker2.Value)) Then
    
    Set evn = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
    evn.SubItems(1) = .Cells(i, 2).Value
    evn.SubItems(2) = .Cells(i, 3).Value
    evn.SubItems(3) = .Cells(i, 5).Value
    evn.SubItems(4) = .Cells(i, 6).Value
    evn.SubItems(5) = .Cells(i, 7).Value
    evn.SubItems(6) = .Cells(i, 8).Value
    evn.SubItems(7) = .Cells(i, 9).Value
    evn.SubItems(8) = .Cells(i, 10).Value
    evn.SubItems(9) = .Cells(i, 11).Value
    evn.SubItems(10) = .Cells(i, 12).Value
    
    End If
    Next i
    End With

    i = Empty 
End Sub

 

[kelkitli]

Murat Bey,
Cevabınız için teşekkür ederim hemşerim. İstediğim sonucu alamadım. Resim olarak ekledim. Sayfada tekrarlanan aynı bilgilerin toplamları alınması lazım. Bakarsanız memnun olurum.