Soru puantaj

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
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
 

Ekli dosyalar

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
değerli arkadaşlar Userform3' e bakabildiniz mi?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki kodları deneyin:

PHP:
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Yusuf Abi Ellerine Sağlık. Sağ Olasın
 
Üst