Ayın Günsayısına göre Renk Verme

[BYSERTTAS]

Selamlar Değerli Üstadlar. Kendi Çapımda Vba Öğrenmeye çalışıyorum. Kopyala yapıştır ile birşeyler yapmaya çalışıyorum. ekli dosyada beceremediğim bir konuda yardımlarınızı istırham ediyorum.

Şoyleki uantaj cetvel Hazırlmaya çalışıyorum. Ayın cektiği güne göre textbox lara işlem engelemesi koymak istiyorum.

Eğer Ay 28 çekiyorsa. 29,30,31. günlerin zemin rengi kırmızı olsun ve işlem yapılamasın istiyorum.Ay 29 çekiyorsa 30 ve 31 .gün,ay 30 çekiyorsa 31. gün aynı şekilde işlem yaptırmasın istiyorum bir türlü beceremedim yardımcı olursanız sevinirim.
örnek olarak 2023 şubat ayı (28 çekiyor ) secilebilir.
Formda Adı Soyadı TextBox çifttık yapınca isimler gelecektir

 

[Ziynettin]

Merhaba.

Kodlarınız...

Sub Takvim()
    If ComboBox2.ListIndex < 0 Then Exit Sub
    If ComboBox1.ListIndex < 0 Then Exit Sub
    Yil = ComboBox1
    Ay = ComboBox2
    trh = DateValue("1." & Ay & "." & Yil) - 1
    
    Range("G6:AL6").Interior.ColorIndex = xlNone
    
    For i = 1 To 31
        Me("textbox" & i).BackColor = vbWhite
        Me("textbox" & i).Value = Day(trh + i)
        Cells(6, 6 + i).Value = Day(trh + i)
        If MonthName(Month(trh + i)) = Ay Then
            If Weekday(trh + i, 2) > 5 Then
                Me("textbox" & i).BackColor = vbRed
                Cells(6, 6 + i).Interior.Color = vbRed
            End If
        Else
            Me("textbox" & i).BackColor = vbGrayText
            Cells(6, 6 + i).Interior.Color = rgbSilver
        End If
    Next i
End Sub

Private Sub ComboBox1_Change()
    Takvim
End Sub

Private Sub ComboBox2_Change()
    Takvim
End Sub

 

[BYSERTTAS]

Hocam Çok Teşekkürler. Harikasınız. Sizlerin sayesinde bizde öğreniyoruz. ellerinize sağlık. hakkınızı helal edin lütfen..