Raporlama

[muratcan01]

Merhabalar.
Giriş Yaptığım bilgileri raporlamak istiyorum.Ama raporlarken bir tarih seçip o tarihe göre raporlamak istiyorum.Aynı gün içinde kişi 2-3 defa servise çıkabiliyor.Bana bunların tek isimde toplam kaç km yol yaptığı ve kaç defa servise çıktığı gerekli.
Bu konuda yardımcı olursanız sevinirim.Saygılar ve teşekkürler.

 

[Orion1]

Dosyanız hazır.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Dim a, b, i, n, sat, veri()
Set s1 = Sheets("GİRİS")
Set s2 = Sheets("RAPOR")
'*******************************************
a = s1.Range("a2:k" & s1.[a65536].End(3).Row).Value
ReDim veri(1 To UBound(a, 1), 1 To 5)
'*******************************************
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
    If s1.[L5].Value = a(i, 1) Then
        z = a(i, 1) & ":" & a(i, 2)
           If Not IsEmpty(z) Then
                 If Not .exists(z) Then
                    n = n + 1
                    veri(i, 1) = n
                    veri(n, 2) = a(i, 1)
                    veri(n, 3) = a(i, 2)
                    .Add z, n
                  End If
                    veri(.Item(z), 4) = veri(.Item(z), 4) + a(i, 10)
                    veri(.Item(z), 5) = veri(.Item(z), 5) + a(i, 4)
            End If
        End If
    Next i
End With
'*******************************************
sat = s2.[a65536].End(3).Row + 1
s2.Range(s2.Cells(2, "a"), s2.Cells(sat, "e")).ClearContents
s2.[a2].Resize(n, 5).Value = veri
''*******************************************
s2.Select
MsgBox "Bitti"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[muratcan01]

Teşekkürler

Arkadaşlar çok teşekkür ederim,gerçekten çok yardımcı oldunuz.