Soru puantaj

[sirkülasyon]

Bu sitede hazırlanan ve 15-14 arası olarak kullanmış olduğum ekli puantaj formu 1-31 arası olarak yeniden düzenleme ihtiyacı doğdu.

ekli dosyamın içinde userform1 15-14 arası olarak çalışıyor. Yeni şeklini (1-31 arası) userform3 olarak düzenledim.
Userform3 formunu
Yıl - Ay seçildiğinde seçilen aya ait hafta sonları renkli olacak ve Puantaj1 sayfasına alt alta aktarılacak şekilde düzenlenebilmesi için yardımlarınıza ihtiyacım var.
Teşekkür ederim

 

[sirkülasyon]

değerli arkadaşlar Userform3' e bakabildiniz mi?

 

[YUSUF44]

Aşağıdaki kodları deneyin:

Private Sub ComboBox1_Change()
    ComboBox2_Change
End Sub

Private Sub ComboBox2_Change()
    Dim Ay As Integer, Yil As Integer, Gun As Byte, Tarih As Date
    If ComboBox2.ListIndex < 0 Then Exit Sub
    If ComboBox1.ListIndex < 0 Then Exit Sub
    [AJ3] = ComboBox1.Value
    [AJ4] = ComboBox2.Value
    Range("G6:AL6").Interior.ColorIndex = xlNone
        
    Yil = ComboBox1.Value
    Ay = ComboBox2.ListIndex + 1
    
    TextBox38 = ComboBox2.Text
    
    Tarih = DateSerial(Yil, Ay - 1, 1)
    Gun = Day(DateSerial(Year(Tarih), Month(Tarih) + 1, 0))
    
    For X = 1 To 31
        Tarih = DateSerial(Yil, Ay, X)
        If Weekday(Tarih, 2) > 5 Then
            Me.Controls("TextBox" & X).Locked = True
            Me.Controls("TextBox" & X).BackColor = &HFF&
            Me.Controls("TextBox" & X) = ""
            Cells(6, X + 6).Interior.ColorIndex = 3
        Else
            Me.Controls("TextBox" & X).Locked = False
            Me.Controls("TextBox" & X).BackColor = &H80000005
'            Me.Controls("TextBox" & X) = "x"
        End If
        'Cells(6, X + 6) = X + 14
    Next X
End Sub

Private Sub UserForm_Initialize()
TextBox32.Value = "Deneme İlçe Millî Eğitim Müdürlüğü"
ComboBox1.List = Array("2020", "2021", "2022", "2023", "2024", "2025")
ComboBox2.List = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
End Sub

 

[sirkülasyon]

Yusuf Abi Ellerine Sağlık. Sağ Olasın