Option Button

[shazel]

Merhaba
benim şöyle bir sorum olacak.
2 tane option button var. Örneğin 1. sini seçtiğimde kadına ait verilerin combobox ta, 2. yi seçtiğimde ise erkeğe ait verilerin combobox ta görüntülenmesini istiyorum. Yardımcı olabilir misiniz?
İyi akşamlar

 

[Orion1]

Merhaba
benim şöyle bir sorum olacak.
2 tane option button var. Örneğin 1. sini seçtiğimde kadına ait verilerin combobox ta, 2. yi seçtiğimde ise erkeğe ait verilerin combobox ta görüntülenmesini istiyorum. Yardımcı olabilir misiniz?
İyi akşamlar

Oluruz.

 

[shazel]

veri alanlarını isimlendirdim. Combobox a ;
If OptionButton1= True Then
Combobox1.Show= bayan
ElseIf OptionButton2= True Then
Combobox1.Show= erkek
yazıyorum fakat olmuyo. Nerde hata yapıyorum acaba ?

 

[ExcelF1]

Combobox1.show=bayan yerine
Combobox1.value = "Bayan"

olarak deneyin.

 

[Orion1]

Bayan için şöyle deneyin.

Combobox1.rowsource= "bayan"

 

[shazel]

Dediğiniz gibi yapıyorum fakat olmuyor, option button a da kod yazmam mı gerekiyor ?

 

[Orion1]

Dediğiniz gibi yapıyorum fakat olmuyor, option button a da kod yazmam mı gerekiyor ?

Evet .

 

[shazel]

Bayan için şöyle deneyin.

Combobox1.rowsource= "bayan"

Dediğiniz şekilde yapıyorum fakat olmuyor kod hata vermiyor ama çalışmıyorda

 

[shazel]

Evet .

Nasıl bir kod yazacağım?

 

[Orion1]

Nasıl bir kod yazacağım?

Bir tane örnek dosya yollayınız.Onda göstereyim.

 

[shazel]

Bir tane örnek dosya yollayınız.Onda göstereyim.

option button da örneğin bayan ı seçtiğimde combobox ta bayantercih alanı olarak isimlendirilen verilerin gözükmesini istiyorum. Aynı şey erkek için de geçerli

 

[Orion1]

option button da örneğin bayan ı seçtiğimde combobox ta bayantercih alanı olarak isimlendirilen verilerin gözükmesini istiyorum. Aynı şey erkek için de geçerli

Dosyanız ektedir.

Private Sub OptionButton1_Click()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.Clear
For i = 1 To sat
    If Cells(i, "D").Value = "B" Then ComboBox1.AddItem Cells(i, "B").Value
Next i
End Sub

Private Sub OptionButton2_Click()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.Clear
For i = 1 To sat
    If Cells(i, "D").Value = "E" Then ComboBox1.AddItem Cells(i, "B").Value
Next i
End Sub

 

[shazel]

Dosyanız ektedir.

Private Sub OptionButton1_Click()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.Clear
For i = 1 To sat
    If Cells(i, "D").Value = "B" Then ComboBox1.AddItem Cells(i, "B").Value
Next i
End Sub

Private Sub OptionButton2_Click()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.Clear
For i = 1 To sat
    If Cells(i, "D").Value = "E" Then ComboBox1.AddItem Cells(i, "B").Value
Next i
End Sub

çok sağolun teşekkürler

 

[Orion1]

çok sağolun teşekkürler

Rica ederim.

 

[ugurcoskun]

if OptionButton1 = True then
ComboBox1="erkek"
ElseIf OptionButton2= true then
ComboBox1= "Kadın"
end if

 

[ugurcoskun]

if optionbutton1=true then
combobox1="erkek"
elseif optionbutton2=true then
combobox1="kadın"
end if