Aylık Toplam Tablosu

[seddur]

Merhaba.Ekli dosyada günlük tarihe göre -Nakit-Visa-Çek-Senet-Havale-Satış ve Taksit toplamları listelenmektedir.Yandaki tabloya ise combobox2 deki yıla göre aylık toplamları listelemek istiyorum.Yardımcı olabilirseniz sevinirim.

 

[dEdE]

Örnek dosyanıza göre yazıldı. Dener misiniz?

Sub Test()
For i = 2 To 13
igt = CDate(1 & "." & Range("J" & i) & "." & Sheets("Rapor").ComboBox2.Value)
sg = Day(DateSerial(Year(igt), Month(igt) + 1, 0))
sgt = CDate(igt + sg - 1)
    Set c = ActiveSheet.Range("A:A").Find(igt, LookIn:=xlValues)
    If Not c Is Nothing Then sat1 = c.Row

    Set d = ActiveSheet.Range("A:A").Find(sgt, LookIn:=xlValues)
    If Not d Is Nothing Then sat2 = d.Row
       
    sut = 11
    For k = 2 To 6
        Top = Application.WorksheetFunction.Sum(Range(Cells(sat1, k), Cells(sat2, k)))
        Cells(i, sut) = Top
        Cells(i, 16) = Application.WorksheetFunction.Sum(Range(Cells(i, 11), Cells(i, 15)))
        sut = sut + 1
    Next k
Next i
End Sub

Not: Düzenleme talep ederseniz bir hafta yokum.

 

[seddur]

Tamam, çalıştırdım.Yardımlarınız için Teşekkür ederim.

 

[kemal turan]

Ek Dosyaya bir bakınız.

 

[dEdE]

Baktım
Alternatif VBA çözümü