Checkbox'ların tıkını otomatik koyma

[DemirBilek57]

Arkadaşlar merhaba,


Ek'te göndermiş olduğum örnek sayfa ile ilgili yardımlarınıza ihtiyacım var.


İyi Çalışmalar

 

[hamitcan]

Private Sub TextBox1_Change()
    a = Split(TextBox1.Text, ",")
    For i = 0 To UBound(a)
        If a(i) = 99 Then
            CheckBox18.Value = True
        Else
            Controls("checkbox" & a(i)).Value = True
        End If
     Next
End Sub

 

[DemirBilek57]

Sayın hamitcan, yardımlarından dolayı size ve excel.web.tr kurucularına çok teşekkür ederim. Yazmış olduğunuz kod tam olarak yapmak istediğimin çalışmama örnek bir çözüm idi. Aynı zamanda split ve ubound hakkında da yapmış olduğum araştırmalarla bilgi edinmiş oldum.

 

[DemirBilek57]

Sayın hamitcan, vermiş olduğunuz örnekten yola çıkarak kendi yapmaya çalıştığım çalışmama benzer bir çalışmada uygulama çalıştım fakat son periyotta doğru sonuca bir türlü ulaşamadım. Sizden bir defa daha yardım istiyorum. Ekte göndermiş olduğum çalışma hakkında sizin ve tüm excel.web.tr üstadlarının yardımını bekliyorum.:yardim:

 

[hamitcan]

Kodları düzenledim.

Private Sub ListBox1_Click()
    For ss = 1 To 108
        If Controls("checkbox" & ss).Value = True Then Controls("checkbox" & ss).Value = False
    Next
    b = ListBox1.ListIndex + 3
    TextBox1 = Cells(b, 2)
    TextBox2 = Cells(b, 3)
    TextBox3 = Cells(b, 4)
    TextBox4 = Cells(b, 5)
    TextBox5 = Cells(b, 6)
    TextBox6 = Cells(b, 7)
    For i = 2 To 7
        a = Split(Cells(b, i), ",")
        For j = 0 To UBound(a)
            For Each CHK In UserForm1.Controls
                If TypeName(CHK) = "CheckBox" Then
                    If CHK.Caption = Cells(2, i) & a(j) Then CHK.Value = True
                End If
            Next
        Next
    Next
End Sub


Private Sub UserForm_Initialize()
a = WorksheetFunction.CountA(Sheets(1).Range("a:a"))
For b = 3 To a + 1
ListBox1.AddItem Sheets(1).Range("a" & b)
Next
For c = 1 To 6
UserForm1.Controls("label" & c).Caption = Format(c + 1, "dddd")
Next
For d = 1 To 18
UserForm1.Controls("label" & d + 6).Caption = Sheets(1).Cells(2, d + 8)
Next
For s = 1 To 18
If Sheets(1).Cells(3, s + 8) = "s" Then
UserForm1.ListBox2.AddItem Sheets(1).Cells(2, s + 8)
End If
Next

For i = 1 To 17
Controls("checkbox" & i).Caption = "PAZARTESİ" & i
Next
For i = 19 To 35
x = x + 1
Controls("checkbox" & i).Caption = "SALI" & x
Next
For i = 37 To 53
y = y + 1
Controls("checkbox" & i).Caption = "ÇARŞAMBA" & y
Next
For i = 55 To 71
Z = Z + 1
Controls("checkbox" & i).Caption = "PERŞEMBE" & Z
Next
For i = 73 To 89
k = k + 1
Controls("checkbox" & i).Caption = "CUMA" & k
Next
For i = 91 To 107
c = c + 1
Controls("checkbox" & i).Caption = "CUMARTESİ" & c
Next

CheckBox18.Caption = "PAZARTESİ99"
CheckBox36.Caption = "SALI99"
CheckBox54.Caption = "ÇARŞAMBA99"
CheckBox72.Caption = "PERŞEMBE99"
CheckBox90.Caption = "CUMA99"
CheckBox108.Caption = "CUMARTESİ99"
End Sub

 

[DemirBilek57]

Sayın hamitcan, dün gece yanlış yaptığım kısmın kullandığım caption'lar olduğunu anlamıştım ama bir türlü doğrusunu yapamadım. Size ne kadar teşekkür etsem azdır. Umarım bu konu ile ilgili sizi tekrar meşgul etmek zorunda kalmam.

İlgi ve alakanıza teşekkür eder, saygılarımı sunarım.

İyi çalışmalar,

 

[hamitcan]

İnce sözleriniz için ben teşekkür ederim, bilgim yettiğince, her zaman yardım etmeye hazırım.