ay ve yıl için etopla

[teknikyapı]

Merhaba.
Açıkcası biraz aradıktan sonra benzer bir örnek bulamadım.
Aşağıdaki gibi bir listemizi ay ve yıla göre etoplam makro ile nasıl yapabiliriz acaba?

TARİH TUTAR
01.01.2008 500
06.01.2008 200
02.02.2008 400
17.02.2008 800
21.03.2008 500
22.03.2008 200
22.03.2008 400 gibi bir listemiz olsun.( A ve B sütununda)

C ve D sütununda

ocak 08 700
şubat 08 1200
mart 08 1100 şeklinde bir liste haline getirmek istiyorum

(makro kaydet ile yapmaya çalıştım fakat ayların Türkçe adını kod ile yapmadım)

Neyse yardımcı olacak arkadaşlara şimdiden teşekkür ederim.İyi çalışmalar.

 

[Orion1]

Aşağıdaki kodları kullanınız.
Dikkat önce E ve F sütunlarını geçici olarak kullnıyor.Sonrada E ve F sütunlarını siliyor.
Eğer E ve F sütunlarında verileriniz varsa başka sütunlarını geçici olarak kullanabilir ve kodları ona göre revize edebilirsiniz.

Sub toplama()
sat = sat + 1
Application.ScreenUpdating = False
Range("C1:D65536").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row
    tarih = Format(Cells(i, "A").Value, "mmmm.yy")
    Cells(i, "E").Value = tarih
    Cells(i, "F").Value = Cells(i, "B").Value
Next i
For i = 1 To Cells(65536, "E").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("E1:E" & i), Range("E" & i).Value) = 1 Then
        Cells(sat, "C").Value = Cells(i, "E").Value
        Cells(sat, "D").Value = WorksheetFunction.SumIf(Range("E1:E65536"), Range("E" & i).Value, Range("F1:F65536"))
        sat = sat + 1
    End If
Next i
Range("E1:F1").EntireColumn.Delete
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı."
End Sub

 

[teknikyapı]

sn Evren Gizlen çok teşekkür ederim kendi dosyama uyarladım.İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[teknikyapı]

sn Korhan Ayhan alternatif çalışmanız için sizede teşekkür ederim.Her 2 çözümde forum için güzel birer örnek oldu.İyi çalışmalar.