Combobox tan Comboboxsa veri süzme

[plus44]

slm üstadlar
ben 1. combobox tan bir il seçtiğimde 2. combobox ta o ilin ilçeleri gelsin,
forma baktım ona yakın örnek bulamadım, ilgilenirseniz memnun olurum

 

[mancubus]

il ve ilçe listesi "ilçeler" isimli sayfada olsun. bu sayfanın A sütununda il, B sütununda da ilçe isimleri olsun.

buna göre:

Private Sub ComboBox1_Change()

    Dim i As Long
    Dim ws As Worksheet

    Set ws = Worksheets("ilçeler")
    ComboBox2.Clear

    For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
        If ws.Cells(i, 1) = ComboBox1.Value Then
            ComboBox2.AddItem ws.Cells(i, 2)
        End If
    Next i

End Sub

not: ben forumda böyle örnekler hatırlıyorum...

 

[plus44]

Sayın Mancubus sağolun emeginizden dolayı tşklr.

 

[plus44]

tamm
asıl dosya büyük ama örnek bir dosya yapıp paylaşayım

 

[plus44]

Sayın Alican dosya ekte