VBA Veri Kaydı ile Aylık ve Yıllık Raporlama

[snapper]

Arkadaşlar merhaba,

Saatlik veriler ile günlük, günlük veriler ile aylık ve aylık veriler ile de yıllık raporlama yapmak istiyorum.

01 Şubat - 29 Şubat arası için 29 adet sayfa açtım ve bu sayfalardan elde edilecek 1 adet aylık raporlama sayfası açtım.

Şubat ayı için sorun yok fakat mart ayına geçtiğim zaman tekrar şubat ayına kayıt yapmaya başlıyor.

Sanırım bu şekilde kodlarsam yaklaşık 370 tane sayfa açmam gerekecek.
Bu konuda yardımcı olabilir misiniz ?

gun = Day(CDate(tarih.caption))
saat = CLng(Replace(saat.caption, ":00", "")) + 2
If saat = 2 Then saat = 26
With Sheets(gun)
If .Range("U1").Value = "" Then .Range("U1").Value = Format(Date, "dd.mm.yyyy")
If .Range("A" & saat) = "" Then
.Range("A" & saat).Value = saat.caption
.Range("B" & saat).Value = saat2.caption
.Range("C" & saat).Value = skipsayısı.Text
.Range("D" & saat).Value = skipkilosu.Text
.Range("E" & saat).Value = kmiktarı.Text
.Range("F" & saat).Value = smiktarı.Text
.Range("G" & saat).Value = kkalori.Text
.Range("H" & saat).Value = skalori.Text
.Range("K" & saat).Value = dönüşüm.Text
.Range("N" & saat).Value = ortalama.caption
.Range("T" & saat).Value = ytoplam.caption
.Range("Q" & saat).Value = taş.caption
.Range("U" & saat).Value = bkalori.caption
.Range("Y" & saat).Value = kireç.caption
.Range("C" & 32).Value = geceop.Text
.Range("C" & 34).Value = gündüzop.Text
.Range("C" & 36).Value = aksamop.Text
Else
MsgBox "Daha Önce Giriş Yaptınız.!"
End If
End With