aylık ara toplam

[emrexcel123]

arkadaşlar ve üstadlar selamlar
ekte yer alan dosyada çek listesi vardır ve "c" sütununda da vadeler yer almaktadır yapmak istediğim aynı ay ve yıllara sahip vadeleri toplayıp o aya ait listenin en son satırın altında toplam almasını sağlamak örneğin >>

Vade Tutar
01.06.2007 5.000,00
04.06.2007 3.000,00
08.06.2007 7.350,00
11.06.2007 4.550,00
20.06.2007 5.950,00
Haziran 2007 25.850,00
____________________
gibi diğer aylarda aynı biçimde olmak üzere devam etmelidir yardımcı olacak arkadaşlara teşekkürler ii akşamlar....

 

[xxcell]

Ay sütunu açıp, alttoplam alınız.

 

[emrexcel123]

sn xxcell hocam teşekkür ederim bunu kodla yapmanın bir yolu var mı ?

 

[emrexcel123]

arkadaşlar ve üstadlar günaydın
sorumun bir kısmını kendim hallettim ay ay bölebiliyorum fakat her ayın altına toplamını aldıramıyorum yardımcı olabilirseniz sevinirim kodlar aşağıdadır...

Sub ara_toplam()
For x = 3 To [c65536].End(3).Row
If Month(Cells(x, 3)) = Month(Cells(x - 1, 3)) Then
Cells(x, 5) = "ok"
End If
Next
Range("e2:e" & [e65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Insert
End Sub

ii çalışmalar...