Optionbuton ile Textbox'a veri yazmak

**#1)** **RBozkurt** » 14 Oca 2018 15:17

Arkadaşlar iyi günler.
Kısaca açıklayım
2 adet optionbuton olsun.
1.si EVET OLSUN, 2.si HAYIR olsun.

Evet olanı seçince hayırdaki işaret kaybolsun, aynı şekilde tam tersi ve evet/hayır seçtikten sonra mesela textbox25'e EVET yazsın.

Geri kalan normal şekilde devam edicek. KAYDET yapınca P hücresine textbox25 den EVET/HAYIR hangisi seçili ise o yazacak.
Olabilir sanırım. Optionbutun ile düşünüm ama checkbox olursa oda olur.
Teşekkürler.

**#2)** **AhmetRasim** » 14 Oca 2018 17:10

Merhabalar;
UserForm kodlarına aşağıdaki örneklerden istediğinizi ekleyip deneyiniz.

- CheckBox için:

Kod: Tümünü seç: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = False TextBox25.Value = "Evet" End If If CheckBox1.Value = False Then TextBox25.Value = Empty End Sub

CheckBox1 seçili ise; CheckBox2'nin seçimini iptal eder ve TextBox25'e Evet yazar.
CheckBox1'in seçimini iptal edilince TextBox içeriğini temizler.

- OptionButton için:

Kod: Tümünü seç: Private Sub OptionButton1_Click() If OptionButton1.Value = True Then TextBox25.Value = "Evet" End Sub

OptionButton1 seçili ise; TextBox25'e Evet yazar.

CheckBox2 ve OptionButton2 için de bu şekilde yapabilirsiniz.

**#3)** **RBozkurt** » 14 Oca 2018 22:01

AhmetRasim yazdı:Merhabalar;
UserForm kodlarına aşağıdaki örneklerden istediğinizi ekleyip deneyiniz.

- CheckBox için:
Kod: Tümünü seç
Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = False TextBox25.Value = "Evet" End If If CheckBox1.Value = False Then TextBox25.Value = Empty End Sub
CheckBox1 seçili ise; CheckBox2'nin seçimini iptal eder ve TextBox25'e Evet yazar.
CheckBox1'in seçimini iptal edilince TextBox içeriğini temizler.

- OptionButton için:
Kod: Tümünü seç
Private Sub OptionButton1_Click() If OptionButton1.Value = True Then TextBox25.Value = "Evet" End Sub
OptionButton1 seçili ise; TextBox25'e Evet yazar.

CheckBox2 ve OptionButton2 için de bu şekilde yapabilirsiniz.