İlişkili comboboxlar

[öğrtm]

mrblar

yapmak istediğim şey birinci combo da ili seçince ikinci combobox ta ilçelerin gelmesi.bu konuda yardımlarınızı bekliyorum.eğer birde mümkünse il ve ilçeleri excelde gösteren listesi olan arkadaşlar varsa ekleyebilirler mi?

Not:konuyla ilgili bulduğum örnekler maalesef silinmişti

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim k As Range, sut As Integer
ComboBox2.Clear
Set k = Sheets("Sayfa1").Range("A1:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    sut = Sheets("Sayfa1").Cells(k.Row, 255).End(xlToLeft).Column
    ComboBox2.Column = Sheets("Sayfa1").Range(Cells(k.Row, 2), Cells(k.Row, sut)).Value
End If
End Sub

 

[öğrtm]

yani içimden evren bey bu ne hız demek geldi.
teşekkür ederim.iyi günler

 

[Orion1]

yani içimden evren bey bu ne hız demek geldi.
teşekkür ederim.iyi günler

Rica ederim.Ben hızlıyım ama sizede en hızlı çalışan kodları yazdım.
İyi çalışmalar.

 

[1Al2Ver]

öğrtm

eğer birde mümkünse il ve ilçeleri excelde gösteren listesi olan arkadaşlar varsa ekleyebilirler mi?

Aşağıdaki link'i inceleyiniz.

http://www.excel.web.tr/showthread.php?t=67870&highlight=iller

 

[öğrtm]

sayın 1al2ver link için teşekkürler.faydalanmaya çalışacağım.ayrıca yapmış olduğunuz çalışma gerçekten güzel ve faydalı olmuş.emeğinize sağlık