Excel koşullu renklendirme

[erd5334]

Arkadaşlar, örnekteki dosyamda combobox'tan seçilen ay'a göre A9 hücresinden başlayarak o ayın 15. gününden gelecek ayın 14. gününe kadar günleri yazdırıyorum. buna göre de koşullu biçimlendirmede kullandığım formüllerle hafta sonlarını ve sayfa 2 deki tatil günlerini renklendirebiliyorum. sorun şu o ayın son günü bittiğinde yeni ay a geçemiyorum. bunu nasıl çözebilirim.

 

[ÖmerFaruk]

Kodlarınızda ufak bir düzeltme yaptım.

Private Sub ComboBox1_Change()
    Range("I1").Value = ComboBox1.Text
    Dim baslangic As Date
    Dim i As Integer
    Dim yil As Integer
    Dim ay As Integer
    yil = Range("c4").Value
    ay = Range("j1").Value
    baslangic = DateSerial(yil, ay, 15)
    i = 9
    Do
    Cells(i, 1).Value = Day(baslangic)
    'istersen günleri de otomatik yazabilirsiniz
    'Cells(i, 2) = Format(baslangic, "dddd")
    baslangic = baslangic + 1
    i = i + 1
    Loop Until Day(baslangic) = 15
End Sub