Vba'da yıllık rapor almak

[TİKOS]

Arkadaşlar,
Dosyada açıklama yaptım.
Yardım ederseniz sevinirim.
Teşekkürler

 

[Orion1]

Yıllık raporunuz hazır.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, z As Object, sat As Long, i As Long, myarr(), n As Long
ListBox1.Clear
Set sh = Sheets("kasagiris")
sat = sh.Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 4, 1 To sat)
Set z = CreateObject("Scripting.Dictionary")
For i = 6 To sat
    If CInt(Month(sh.Cells(i, "A").Value)) <= Tarih.ListIndex + 1 Then
        If Not z.exists(sh.Cells(i, "B").Value) Then
            n = n + 1
            z.Add sh.Cells(i, "B").Value, n
        End If
        myarr(1, z.Item(sh.Cells(i, "B").Value)) = sh.Cells(i, "B").Value
        myarr(2, z.Item(sh.Cells(i, "B").Value)) = sh.Cells(i, "C").Value
        myarr(3, z.Item(sh.Cells(i, "B").Value)) = myarr(3, z.Item(sh.Cells(i, "B").Value)) + sh.Cells(i, "Q").Value
        myarr(4, z.Item(sh.Cells(i, "B").Value)) = myarr(4, z.Item(sh.Cells(i, "B").Value)) + sh.Cells(i, "R").Value
    End If
Next i

If n > 0 Then
    ReDim Preserve myarr(1 To 4, 1 To n)
    ListBox1.Column = myarr
End If
        
            
            
End Sub

 

[TİKOS]

vba

Evren hocam ellerinize sağlık ben eksik anlattım galiba istediğim gibi olmamış.

Örneğin,
Ocak - Şubat dediğimde mesela 398 plakalı aracın o aylar içinnde toplam hasılat ve tur sayısını görmek istedim.

Plaka Şoför Hasılat Tur sayısı
398 Serdar 364,45 24

gibi.

İlgilenirseniz çok sevinirim.

Teşekkürler

 

[Orion1]

Evren hocam ellerinize sağlık ben eksik anlattım galiba istediğim gibi olmamış.

Örneğin,
Ocak - Şubat dediğimde mesela 398 plakalı aracın o aylar içinnde toplam hasılat ve tur sayısını görmek istedim.

Plaka Şoför Hasılat Tur sayısı
398 Serdar 364,45 24

gibi.

İlgilenirseniz çok sevinirim.

Teşekkürler

O zaman userforma bir tane combo koymanız lazımdı.Nerden bilecem ben.
Dosyayı ekledim.

 

[TİKOS]

VBA yıllık rapor

Evren hocam ben beceremiyorum anlatmayı kusura bakmayın
Dosyada userformun üstünde gösterdim.

Örneğin
01/01/2009 tarihinde 398 nolu plaka 191,50 tl hasılat getirip 12 tur atmış
01/02/2009 tarihinde 398 nolu plaka 195,15 tl hasılat getirip 12 tur atmış

Ocak - Şubat dediğimde

plaka şoför hasılat tur sayısı
398 serdar 386,65 24
..
..
..
yardım ederseniz sevinirim.
çok teşekkür ederim.

 

[Orion1]

Bunu ilk mesajımda yazmıştım zaten.

 

[TİKOS]

Evren hocam,
ilk mesajdaki dosya denedim , toplamıyor
aynı plakayı diğer ayda varsa direk yazıyor
toplamadan.
Sizi fazla sıkmakta istemiyorum
ama bu raporda lazım.
tşk

 

[Orion1]

Her plakayı ay ay toopalyıp listeliyor.
Dosya ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, z As Object, sat As Long, i As Long, myarr(), n As Long
ListBox1.Clear
Set sh = Sheets("kasagiris")
sat = sh.Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 4, 1 To sat)
Set z = CreateObject("Scripting.Dictionary")
For i = 6 To sat
    If CInt(Month(sh.Cells(i, "A").Value)) <= Tarih.ListIndex + 1 Then
        If Not z.exists(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value) Then
            n = n + 1
            z.Add sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value, n
        End If
        myarr(1, z.Item(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value)) = sh.Cells(i, "B").Value
        myarr(2, z.Item(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value)) = sh.Cells(i, "C").Value
        myarr(3, z.Item(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value)) = myarr(3, z.Item(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value)) + sh.Cells(i, "Q").Value
        myarr(4, z.Item(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value)) = myarr(4, z.Item(sh.Cells(i, "A").Value & "-" & sh.Cells(i, "B").Value)) + sh.Cells(i, "R").Value
    End If
Next i

If n > 0 Then
    ReDim Preserve myarr(1 To 4, 1 To n)
    ListBox1.Column = myarr
End If
        
            
            
End Sub