Aylara göre alttoplam

[Werther]

Merhaba.Oldukça uzun satır içeren bir sayfam var.5000-6000 satır...
ilk satırda stok kodu ve adı altında tarihler var
Benim yapmak istediğim ilgili stok kodlarının altında aylar itibariyle alttoplamlar aldırmak.ben denediğimde günlere göre alttoplam alıyor.Yardımcı olursanız çok sevinirim.
Teşekkür ederim.

 

[Merhum İdris SERDAR]

Dosyanız ekte

 

[Werther]

yurttas arkadasim eline sağlık, tesekkür ederim.

 

[Werther]

Dostum dosyaya baktım, sanırım ben izah edemedim tam olarak.yapmak istediğim ilgili stok kodunun altında aylara göre toplam almak
Ã?rneğin
Çimento malzemesi için
Ekim ayı toplamı 6.000
Kasım ayı toplamı 8.000
Aralık ayı toplamı 10.000

Teşekkür ederim.

 

[haso_excel]

Bu açılan konu başlığı benim aradığım cevap sanırsam fakat ekte bir soya bulamadım. Yardımcı olabilir misiniz?
Ben help den yararlanarak aşağıdaki kodu yazmaya çalıştım fakat ustalık istiyor. Amacım F2 kolonundaki farklı tarihlerdeki verileri ay bazında alt toplam aldırmak. Yardımcı olur musunuz?

Sub ay_kontrol()
Dim i, MyMonth
For i = 2 To WorksheetFunction.CountA(Range("a:a"))
If MyMonth(Cells(i, 6)) = MyMonth(Cells(i + 1, 6)) Then
Cells(i, 9).Value = Cells(i, 6) * Cells(i, 7)
'Else: farklı ay olanı bulduğunda iki ay arasına bir row açacak
End If
Next i
End Sub