CheckBox lardan sadece birisi ile kayıt nasıl yapılır?

[enes2000eren]

Slm.arkadaşlar aşağıdaki kodda nasıl bir uyarlama yapabilirim. CheckBox1 veya CheckBox2 sadece birisi işaretlenebilecek.
Aşağıdaki kodda yeni kayıt yaparken
1- CheckBox1(CheckBox1.Caption ’ERKEK )İŞARETLİ İKEN erkek
CheckBox2(CheckBox2.Caption ’ERKEK )İŞARETLİ İKEN kız yazacak ama aynı sütuna yani
8. Sütuna.
yani CheckBox’un captionunu yazdırmak istiyorum.
*****************************************************************************
Private Sub CommandButton3_Click()
'OGRENCIKAYIT BUTONU
On Error Resume Next
son = Sheets("OGRETMENKAYIT").[A65536].End(3).Row
Sheets("OGRETMENKAYIT").Cells(son + 1, 1) = TextBox3.Value & " " & TextBox4.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 2) = TextBox6.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 3) = TextBox3.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 4) = TextBox4.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 5) = TextBox5.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 6) = ComboBox4.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 7) = TextBox7.Value
Sheets("OGRETMENKAYIT").Cells(son + 1, 8) = CheckBox1.Caption’ERKEK
'Sheets("OGRETMENKAYIT").Cells(son + 1, 8) = CheckBox2.Caption’KIZ
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
End Sub

 

[dEdE]

Merhaba,

CheckBox yerine OptionButton kullanırsanız (Bence böylesi daha iyi olur)aşağıdaki gibi bir çözüm önerebilirim.

Saygılar.

If OptionButton1.Value = True Then
Sheets("OGRETMENKAYIT").Cells(son + 1, 8) = OptionButton1.Caption
Else
Sheets("OGRETMENKAYIT").Cells(son + 1, 8) = OptionButton2.Caption
End If
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"