comboboxta süzme

[kan-nas]

Değerli arkadaşlar;
Ekteki dosyada 3 adet Combobox var. Birinci Comboboxta sadece yeşil renkli olan kişiler çıkacak.(onu yapabiliyorum ) 1. comboboxta BERNA seçilince 2. Comboboxa onun altındaki Sarı renkli (ALİ,NURİ ,KEMAL)kişiler çıksın. 2. Comboboxta örneğin ALİ seçiliyken onun alında bulunan kişiler gelsin.(KEMAL.CEMAL.SELAMİ...) gibi isimler gelsin. Bir nevi Hiyeraşik yapı gibi düşünebilirz.

 

[ozgretmen]

Aşağıdaki adreste eklemeiş olduğum örneği inceler misin ? İşine Yarayabilir...

http://www.excel.web.tr/showthread.php?goto=newpost&t=62163

 

[ozgretmen]

Böyle bir şey mi istediniz ?

 

[Ayhan Ercan]

Merhaba
Sayın ozgretmen cevaplamış ama alternatif olsun;

Private Sub ComboBox1_Change()
x = Rows("2:2").Find(ComboBox1, lookat:=xlWhole).Column
ComboBox2.Clear
For i = 0 To 2
ComboBox2.AddItem Cells(4, x + i)
Next
End Sub
 
 
Private Sub ComboBox2_Change()
x = Rows("4:4").Find(ComboBox2, lookat:=xlWhole).Column
y = Cells(65536, x).End(3).Row
z = 7
ComboBox3.RowSource = "" & Range(Cells(z, x), Cells(y, x)).Address(0, 0)
End Sub
 
 
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("BERNA")
ComboBox1.AddItem ("TOLGA")
End Sub