kod birleştirme

[BYSERTTAS]

Herkese İyi Günler..
Arkadaşlar Listbox dubleclik yapınca sayfadan userforma bilgi aktarıp oradan Değişiklik Yapıyorum.
Kayıt Girişi Yaparken CheckBox ile TextBox a "X" İşareti Konuluyor.
ekrana çağırdığım zaman (Dolu Olan Textboxlara göre) CheckBox ların işaretlenmesi gerekiyor
aşağıdaki kod ile bunu yapıyorum. ancak belki dah kısa bir yolu vardır diye sormak öğrenmek istedim. yardımcı olursanız sevinirim.
TextBox32 -62 arası
CheckBox1-31 arası
Kod Şu Şekilde

Sub CheckBoxişaretle()

If TextBox32 = "x" Then
CheckBox1 = True
Else
CheckBox1 = False
End If
If TextBox33 = "x" Then
CheckBox2 = True
Else
CheckBox2 = False
End If
If TextBox34 = "x" Then
CheckBox3 = True
Else
CheckBox3 = False
End If
If TextBox35 = "x" Then
CheckBox4 = True
Else
CheckBox4 = False
End If

If TextBox36 = "x" Then
CheckBox5 = True
Else
CheckBox5 = False
End If

If TextBox37 = "x" Then
CheckBox6 = True
Else
CheckBox6 = False
End If

If TextBox38 = "x" Then
CheckBox7 = True
Else
CheckBox7 = False
End If
If TextBox39 = "x" Then
CheckBox8 = True
Else
CheckBox8 = False
End If

If TextBox40 = "x" Then
CheckBox9 = True
Else
CheckBox9 = False
End If
If TextBox41 = "x" Then
CheckBox10 = True
Else
CheckBox10 = False
End If
If TextBox42 = "x" Then
CheckBox11 = True
Else
CheckBox11 = False
End If

If TextBox43 = "x" Then
CheckBox12 = True
Else
CheckBox12 = False
End If
If TextBox44 = "x" Then
CheckBox13 = True
Else
CheckBox13 = False
End If

If TextBox45 = "x" Then
CheckBox14 = True
Else
CheckBox14 = False
End If

If TextBox46 = "x" Then
CheckBox15 = True
Else
CheckBox15 = False
End If

If TextBox47 = "x" Then
CheckBox16 = True
Else
CheckBox16 = False
End If

If TextBox48 = "x" Then
CheckBox17 = True
Else
CheckBox17 = False
End If
If TextBox49 = "x" Then
CheckBox18 = True
Else
CheckBox18 = False
End If
If TextBox50 = "x" Then
CheckBox19 = True
Else
CheckBox19 = False
End If

If TextBox51 = "x" Then
CheckBox20 = True
Else
CheckBox20 = False
End If

If TextBox52 = "x" Then
CheckBox21 = True
Else
CheckBox21 = False
End If

If TextBox53 = "x" Then
CheckBox22 = True
Else
CheckBox22 = False
End If

If TextBox54 = "x" Then
CheckBox23 = True
Else
CheckBox23 = False
End If

If TextBox55 = "x" Then
CheckBox24 = True
Else
CheckBox24 = False
End If
If TextBox56 = "x" Then
CheckBox25 = True
Else
CheckBox25 = False
End If
If TextBox57 = "x" Then
CheckBox26 = True
Else
CheckBox26 = False
End If

If TextBox58 = "x" Then
CheckBox27 = True
Else
CheckBox27 = False
End If

If TextBox59 = "x" Then
CheckBox28 = True
Else
CheckBox28 = False
End If

If TextBox60 = "x" Then
CheckBox29 = True
Else
CheckBox29 = False
End If
If TextBox61 = "x" Then
CheckBox30 = True
Else
CheckBox30 = False
End If
If TextBox62 = "x" Then
CheckBox31 = True
Else
CheckBox31 = False
End If



End Sub

 

[Korhan Ayhan]

Merhaba,

Acilen döngüleri öğrenmenizi tavsiye ederim.

Deneyiniz.

For X = 32 To 62
   Me.Controls("CheckBox" & X - 31) = False
   If Me.Controls("TextBox" & X) = "X" Then
      Me.Controls("CheckBox" & X - 31) = True
   End If
Next

 

[BYSERTTAS]

Korhan hocam Yine Hızır gibi yetiştiniz çok sağ olun. ancak kod çalışmadı. hata vermiyor fakat istediğimi yapmadı. isteğim textbox "x" ile dolu ise ChekBox İşaretlensin bunu yapmadı.

If TextBox61 = "x" Then
CheckBox30 = True
Else
CheckBox30 = False
End If

 

[Korhan Ayhan]

TextBox'lara X karakterini büyük harfle yazıp deneyiniz.

 

[BYSERTTAS]

Hocam Çok Sağ Olunu x Değiştirdim kücük yapınca oldu çok sağ olun saygılar sunuyorum.