Kademeli ComboBox

[nunikmakarios]

Ben bir combobox
Bir sayafada a sütununda bankalar, diğer sayfada da A sütunun da birinci bankanın şubeleri B sütununun da 2. bankanın bankanın şubeleri .... N sütununda da N'inci bankanın şubeleri listeli,

Ben birinci Combobox'tan bankayı seçtiğimde, 2.combobox ta o bankanın şubeleri görünsün istiyorum

Yardımlarınız için teşekkür ederim

 

[Necdet]

Merhaba,

Örnek dosyanızı paylaşım sitelerinden birine yükleyin. Kod yazacaklar için veri hazırlama derdi olmasın.

Daha çabuk yanıt alırsınız.

 

[nunikmakarios]

ÖRNEK dOSYA

Örnek Dosya aşağıdaki linktedir teşekkürler
http://www.dosyaupload.com/1E5z

 

[Orion1]

Dosya linktedir.

DOSYAYI İNDİR

Private Sub ComboBox1_Change()
Dim k As Range, sh As Worksheet, sat As Long
ComboBox2.RowSource = ""
Set sh = Sheets("Şubeler")
Set k = sh.Range(sh.Cells(1, "A"), sh.Cells(1, 16384)).Find(ComboBox1.Value, , xlValues, xlWhole)
sat = sh.Cells(Rows.Count, k.Column).End(xlUp).Row
ComboBox2.RowSource = "Şubeler!" & sh.Range(sh.Cells(2, k.Column), sh.Cells(sat, k.Column)).Address
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Bankalar!A2:A" & Sheets("Bankalar").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.ListIndex = 0
End Sub

 

[nunikmakarios]

Çok teşekkür ederim

 

[Orion1]

Çok teşekkür ederim

Rica ederim
İyi çalışmalar.