Soru Kurallı Toplama

[sirkülasyon]

C3 : C495 arasında gün sayılarım var. (30,21, 4,18,... gibi)
D3 ten itibaren toplayacak 360 gün oldu mu 1 yıl yazacak. Bir alt satırdan itibaren tekrar baştan başlayacak 360 gün oldu mu 2 Yıl yazacak. Bu şekilde 495. satıra kadar devam eden bir formül ya da makro koduna ihtiyacım var.
Yardımcı olabilir misiniz?

 

[muratboz06]

Deneyiniz.

Sub UcyuzAltmisGun()
sonsatır = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
a = 1
    For i = 3 To sonsatır
        topla = topla + Cells(i, 3).Value
        If topla >= 360 Then
            Cells(i, 3).Select
            ActiveCell.Offset(0, 1).Value = a
            a = a + 1
        topla = 0
        End If
    Next i

End Sub

 

[muygun]

Merhaba;
muratboz06
Güzel çözüm. Tebrikler

 

[Korhan Ayhan]

Alternatif;

D3;

=EĞER(EĞERSAY($D$2:D2;TAMSAYI(TOPLA($C$3:C3)/360))>0;0;TAMSAYI(TOPLA($C$3:C3)/360))

 

[sirkülasyon]

muratboz06
Korhan Ayhan
ayrı ayrı teşekkür ederim. Sağ olun