Veritabanı.xls deki mahalli birimleri sorgu.xls deki comboboxlara taşımak

[hsayar]

mevcut userform kodları

'Yazar Ripek

Private Sub UserForm_Initialize()
Dim a, i
Set s1 = Sheets("ilveilce")
a = s1.Range("b2:b" & s1.[b65536].End(3).Row).Value
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
        If Not IsEmpty(a(i, 1)) And Not .exists(a(i, 1)) Then .Add a(i, 1), Nothing
    Next
ComboBox1.Clear
ComboBox1.List = .keys
ComboBox1.ListIndex = 0
End With
Set s1 = Nothing
End Sub
 
Private Sub ComboBox1_Change()
Dim a, i
Set s1 = Sheets("ilveilce")
a = s1.Range("b2:c" & s1.[b65536].End(3).Row).Value
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
        If a(i, 1) = ComboBox1.Value And Not .exists(a(i, 2)) Then .Add a(i, 2), Nothing
    Next
ComboBox2.Clear
ComboBox2.List = .keys
'ComboBox2.ListIndex = 0
End With
Set s1 = Nothing
End Sub
 
Private Sub ComboBox2_Change()
Dim a, i
Set s1 = Sheets("ilveilce")
a = s1.Range("b2:d" & s1.[b65536].End(3).Row).Value
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
        If a(i, 1) = ComboBox1.Value And a(i, 2) = ComboBox2.Value And Not .exists(a(i, 3)) Then .Add a(i, 3), Nothing
    Next
ComboBox3.Clear
ComboBox3.List = .keys
'If ComboBox2.Value <> "" Then ComboBox3.ListIndex = 0
End With
Set s1 = Nothing
End Sub

veritabanı sayfasındaki başlıklar
'veritabanı>'SN İL İLÇE MAHKOY TUR ULKE PLAKA POSTAKODU TELEFONKODU

Not ilveilcelerin bulunduğu sayfa adı data olarak değiştirilmiştir.
örnek dosya
http://rapidshare.com/files/81019351/POSTAKOD2.rar.html bu olup yukarıdaki başlıklara göre sadeleştirilmiştir.
bu çalışma kitabı kalacak başka bir çalışam kitabına eklenecek üç adet combobox eklenecek.
İSTENİLEN
combobox1 e il listesi (benzersiz)
combobox2 ye ilçe listesi (combobox1 deki ile bağlı ilçeler, benzersiz)
combobox3 e mah/köy listesi (combobox2 deki ilçeye bağlı mah/köyler, benzersiz)

 

[Recep İpek]

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=42779

 

[hsayar]

hocam alaknıza teşekkür eder, saygılar sunarım