Soru Makro İle Sonsuz Tarih döngüsü

[MESUT K]

Herkese Merhaba

Aşağıdaki sorunumla ilgili bilen arkadaşlardan yardım istiyorum.case döngüsü ile aynı yıla tekabül eden dönem geçişlerini yapabiliyorum fakat önceki yıl -sonraki yıl sonsuz döngüyü oluşturamıyorum

Saygılarımla

 

[muygun]

Merhaba;
Önceki yılı anlamadım.
Birde gün sayısı nerden nereye kadar? (Anlayamadığım için yılın son günü-güncel tarih formülü uyguladım)
Yinede eki deneyin.
İyi çalışmalar.

 

[MESUT K]

Merhaba;
Önceki yılı anlamadım.
Birde gün sayısı nerden nereye kadar? (Anlayamadığım için yılın son günü-güncel tarih formülü uyguladım)
Yinede eki deneyin.
İyi çalışmalar.

Aşağıdaki formül ile istediğim şuanki dönem ve sıradaki dönem i yazdırabiliyorum.iki dönem arasındaki gün farkını yazdırırsam sorunum kalmıyor

Private Sub Worksheet_Activate()

'ŞUAN Kİ DÖNEM
Select Case Month(Date)
Case 10, 11: Range("c13") = "A DÖNEMİ"
Case 1, 2, 12: Range("c13") = "B DÖNEMİ"
Case 3, 4: Range("c13") = "C DÖNEMİ"
Case 5, 6, 7, 8, 9: Range("c13") = "D DÖNEMİ"
End Select

'SIRADAKİ DÖNEM

Select Case Month(Date)
Case 10, 11: Range("c14") = "B DÖNEMİ"
Case 1, 2, 12: Range("c14") = "C DÖNEMİ"
Case 3, 4: Range("c14") = "D DÖNEMİ"
Case 5, 6, 7, 8, 9: Range("c14") = "A DÖNEMİ"
End Select

End Sub