Combobox taki veriye göre ikinci combobox a veriler gelmesi

birdy · 11 Nisan 2005

Merhaba,
Ben sanırım en yeni üyenizim. :hey:
Aslında mutlaka form da vardır ama hangi cümlelerle arama yapabileceğimi kestiremediğim için soru sormayı uygun gördüm.
Benim bir user formdan çeşitli sayfalara veri aktaran bir çalışma kitabım var. Benim isteğim ise combobox1 deki şehir verileri ne göre combobox2 deki ilçe verilerinin sadece combobox1 e göre çıkması. Mesela combobox1 de bursa seçili ise combobox2 de kemalpaşa,karacabey,inegöl gibi yada balıkesir seçili ise gönen,körfez v.b. gibi verilerin combobox2 de yer alması. Bunu nasıl yapabilirim? yardımcı olursanız yada konu ile ilgili bir link verebilirseniz sevinirim. Ãimdiden teşekkürler.

Levent Menteşoğlu · 11 Nisan 2005

Merhaba

Bunun için benim önerim,combobox1 deki verinin başlama ve bitiş satır nolarını kod içinde tanımlayabilmelisiniz,bu tanımlamadan sonra başlama ve bitiş satır noları combobox2 nin liste aralığını belirlemekte kullanabilirsiniz. Bununla ilgili kod vermek için bir örnek dosya eklemenizde fayda olduğunu düşünüyorum.

birdy · 11 Nisan 2005

Sayın ; leventm,
Ben aslında user formlar ile yeni çaılşmaya başladım. Yani konu ile ilgili olarak acemiliğim söz konusu.
"combobox1 deki verinin başlama ve bitiş satır nolarını kod içinde tanımlayabilmelisiniz,bu tanımlamadan sonra başlama ve bitiş satır noları combobox2 nin liste aralığını belirlemekte kullanabilirsiniz" demişsiniz.Açıkçası çok net anlayamadım özür dilerim. Ben olayı biraz daha açsam sanırım daha iyi olacak.
Ãimdi ben bir gıda firmasında çalışıyorum.Satıcı arkadaşlar şehir şehir gezerek mal satıyorlar. Benim yaptığım userform da tarih , satıcı adı , gidilen şehir , ilçe , gezilen nokta gibi veri giriş sahaları bulunuyor. Mesela şehir'e gelince combobox a tıklandığında , combobox ın row source özelliğine sbtveriler!a2:a9 belirttim. Yani combobox verileri sbtveriler sayfasının a2:a9 hücrelerinden alıyor. Ãöyle yapsam yani combobox2 nin clik özelliğine if koyarak, mesela;
if combobox1.value=bursa then combobox2.rowsource=sbtveriler!b2:b15 gibi bir kod yazsam işe yararmı? ayrıca combobox2.rowsource olayını ben şimdi yazıyorum belki de böyle bir şey olmayabilir. Dedim ya konuya çok vakıf değilim :?
Birde bu denli hızlı yardım için teşekkür ederim.

Levent Menteşoğlu · 11 Nisan 2005

Ekte bir örnek hazırladım inceleyiniz. Ã?rnekte öncelikle il isimleri combobox1 e aktarılır,sonrasında combobox1 den seçilen il ismine göre combobox2 ye ilçe isimleri atanır.

Hakan ERDOST · 12 Nisan 2005

Private Sub ComboBox1_Change()

ComboBox1.Value = WorksheetFunction.Proper(ComboBox1.Value)

With ComboBox2
.AddItem "Türkiyenin İlçeleri"
.Font.Italic = False
.Font.Bold = True
.Font.Size = 8
.ControlTipText = " (Teşekkürler)"
.ForeColor = &H80000012
.Enabled = True
.Value = "Ãimdi İlçeleri Seçebilirsiniz."
End With

With ComboBox1
.Font.Bold = True
.Font.Size = 8
.ForeColor = &H80000012
End With

If ComboBox1.Value = "Adana" Then
ComboBox2.Clear
ComboBox2.ListRows = 15
ComboBox2.AddItem "Adana Merkez"
ComboBox2.AddItem "Aladağ"
ComboBox2.AddItem "Ceyhan"
ComboBox2.AddItem "Feke"
ComboBox2.AddItem "İmamoğlu"
ComboBox2.AddItem "Karaisalı"
ComboBox2.AddItem "Karataş"
ComboBox2.AddItem "Kozan"
ComboBox2.AddItem "Pozantı"
ComboBox2.AddItem "Saimbeyli"
ComboBox2.AddItem "Seyhan"
ComboBox2.AddItem "Tufanbeyli"
ComboBox2.AddItem "Yumurtalık"
ComboBox2.AddItem "Yüreğir"
End If

If ComboBox1.Value = "Adıyaman" Then
ComboBox2.ListRows = 10
ComboBox2.Clear
ComboBox2.AddItem "Adıyaman Merkez"
ComboBox2.AddItem "Besni"
ComboBox2.AddItem "Çelikhan"
ComboBox2.AddItem "Gerger"
ComboBox2.AddItem "Gölbaşı"
ComboBox2.AddItem "Kahta"
ComboBox2.AddItem "Samsat"
ComboBox2.AddItem "Sincik"
ComboBox2.AddItem "Tut"
End If
If ComboBox1.Value = "Afyon" Then
ComboBox2.Clear
ComboBox2.ListRows = 21
ComboBox2.AddItem "Afyon Merkez"
ComboBox2.AddItem "Başmakcı"
ComboBox2.AddItem "Bayat"
ComboBox2.AddItem "Bolvadin"
ComboBox2.AddItem "Çay"
ComboBox2.AddItem "Çobanlar"
ComboBox2.AddItem "Dazkırı"
ComboBox2.AddItem "Dinar"
ComboBox2.AddItem "Emirdağ"
ComboBox2.AddItem "Evciler"
ComboBox2.AddItem "Haydarlı"
ComboBox2.AddItem "Hocalar"
ComboBox2.AddItem "İhsaniye"
ComboBox2.AddItem "İscehisar"
ComboBox2.AddItem "Kızılören"
ComboBox2.AddItem "S.Paşa (Sincanlı)"
ComboBox2.AddItem "Sandıklı"
ComboBox2.AddItem "Sultandağı"
ComboBox2.AddItem "Ãuhut"
ComboBox2.AddItem "Tatarlı"
End If
If ComboBox1.Value = "Ağrı" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Ağrı Merkez"
ComboBox2.AddItem "Diyadin"
ComboBox2.AddItem "Doğubeyazıt"
ComboBox2.AddItem "Eleşkirt"
ComboBox2.AddItem "Hamur"
ComboBox2.AddItem "Patnos"
ComboBox2.AddItem "Taşlıçay"
ComboBox2.AddItem "Tutak"
End If
If ComboBox1.Value = "Aksaray" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Ağaçören"
ComboBox2.AddItem "Aksaray Merkez"
ComboBox2.AddItem "Eskil"
ComboBox2.AddItem "Gülağaç"
ComboBox2.AddItem "Güzelyurt"
ComboBox2.AddItem "Ortaköy"
ComboBox2.AddItem "Sarıyahşi"
End If
If ComboBox1.Value = "Amasya" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Amasya Merkez"
ComboBox2.AddItem "Göynücek"
ComboBox2.AddItem "Gümüşhacıköy"
ComboBox2.AddItem "Hamamözü"
ComboBox2.AddItem "Merzifon"
ComboBox2.AddItem "Suluova"
ComboBox2.AddItem "Taşova"
End If
If ComboBox1.Value = "Ankara" Then
ComboBox2.ListRows = 27
ComboBox2.Clear
ComboBox2.AddItem "Akyurt"
ComboBox2.AddItem "Altındağ"
ComboBox2.AddItem "Ankara"
ComboBox2.AddItem "Ayaş"
ComboBox2.AddItem "Bala"
ComboBox2.AddItem "Beypazarı"
ComboBox2.AddItem "Çamlıdere"
ComboBox2.AddItem "Çankaya"
ComboBox2.AddItem "Çubuk"
ComboBox2.AddItem "Elmadağ"
ComboBox2.AddItem "Etimesgut"
ComboBox2.AddItem "Evren"
ComboBox2.AddItem "Gölbaşı"
ComboBox2.AddItem "Güdül"
ComboBox2.AddItem "Hasanoğlan"
ComboBox2.AddItem "Haymana"
ComboBox2.AddItem "Kalecik"
ComboBox2.AddItem "Kazan"
ComboBox2.AddItem "Keçiören"
ComboBox2.AddItem "Kızılcahamam"
ComboBox2.AddItem "Mamak"
ComboBox2.AddItem "Nallıhan"
ComboBox2.AddItem "Polatlı"
ComboBox2.AddItem "Sincan"
ComboBox2.AddItem "Ãerefli Koçhisar"
ComboBox2.AddItem "Yenimahalle"
End If
If ComboBox1.Value = "Antalya" Then
ComboBox2.ListRows = 16
ComboBox2.Clear

ComboBox2.AddItem "Akseki"
ComboBox2.AddItem "Aksu"
ComboBox2.AddItem "Alanya"
ComboBox2.AddItem "Antalya Merkez"

ComboBox2.AddItem "Elmalı"
ComboBox2.AddItem "Finike"
ComboBox2.AddItem "Gazipaşa"
ComboBox2.AddItem "Gündoğmuş"

ComboBox2.AddItem "İbradi"
ComboBox2.AddItem "Kale"

ComboBox2.AddItem "Kaş"
ComboBox2.AddItem "Kemer"
ComboBox2.AddItem "Korkuteli"
ComboBox2.AddItem "Kumluca"
ComboBox2.AddItem "Manavgat"

ComboBox2.AddItem "Serik"

End If
If ComboBox1.Value = "Ardahan" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Ardahan Merkez"
ComboBox2.AddItem "Çıldır"
ComboBox2.AddItem "Damal"
ComboBox2.AddItem "Göle"
ComboBox2.AddItem "Hanak"
ComboBox2.AddItem "Posof"
End If
If ComboBox1.Value = "Artvin" Then
ComboBox2.ListRows = 11
ComboBox2.Clear
ComboBox2.AddItem "Ardanuç"
ComboBox2.AddItem "Arhavi"
ComboBox2.AddItem "Artvin Merkez"
ComboBox2.AddItem "Borçka"
ComboBox2.AddItem "Göktaş(Murgul"
ComboBox2.AddItem "Hopa"
ComboBox2.AddItem "Kemalpaşa"
ComboBox2.AddItem "Murgul"
ComboBox2.AddItem "Ãavşat"
ComboBox2.AddItem "Yusufeli"
End If
If ComboBox1.Value = "Aydın" Then
ComboBox2.ListRows = 26
ComboBox2.Clear
ComboBox2.AddItem "Altınkum(Yenihisar"
ComboBox2.AddItem "Atça"
ComboBox2.AddItem "Aydın Merkez"
ComboBox2.AddItem "Bağarası"
ComboBox2.AddItem "Bozdoğan"
ComboBox2.AddItem "Buharkent"
ComboBox2.AddItem "Çine"
ComboBox2.AddItem "Didim"
ComboBox2.AddItem "Germencik"
ComboBox2.AddItem "Horsunlu"
ComboBox2.AddItem "İncirliova"
ComboBox2.AddItem "Karacasu"
ComboBox2.AddItem "Karpuzlu"
ComboBox2.AddItem "Koçarlı"
ComboBox2.AddItem "Köşk"
ComboBox2.AddItem "Kuşadası"
ComboBox2.AddItem "Kuyucak"
ComboBox2.AddItem "Nazilli"
ComboBox2.AddItem "Ortaklar"
ComboBox2.AddItem "Pamukören"
ComboBox2.AddItem "Söke"
ComboBox2.AddItem "Sultanhisar"
ComboBox2.AddItem "Umurlu"
ComboBox2.AddItem "Yenihisar"
ComboBox2.AddItem "Yenipazar"
End If
If ComboBox1.Value = "Balıkesir" Then
ComboBox2.ListRows = 27
ComboBox2.Clear
ComboBox2.AddItem "Akçay"
ComboBox2.AddItem "Altınoluk-İskele"
ComboBox2.AddItem "Altınova"
ComboBox2.AddItem "Ayvalık"
ComboBox2.AddItem "Balıkesir Merkez"
ComboBox2.AddItem "Balya"
ComboBox2.AddItem "Bandırma"
ComboBox2.AddItem "Bigadic"
ComboBox2.AddItem "Burhaniye"
ComboBox2.AddItem "Dursunbey"
ComboBox2.AddItem "Edincik"
ComboBox2.AddItem "Edremit"
ComboBox2.AddItem "Erdek"
ComboBox2.AddItem "Gömeç"
ComboBox2.AddItem "Gönen"
ComboBox2.AddItem "Havran"
ComboBox2.AddItem "İvrindi"
ComboBox2.AddItem "Kepsut"
ComboBox2.AddItem "Manyas"
ComboBox2.AddItem "Marmara"
ComboBox2.AddItem "Sarıköy"
ComboBox2.AddItem "Savaştepe"
ComboBox2.AddItem "Sındırgı"
ComboBox2.AddItem "Susurluk"
ComboBox2.AddItem "Tatlısu"
ComboBox2.AddItem "Türkeli(Avşa"
End If
If ComboBox1.Value = "Bartın" Then
ComboBox2.ListRows = 5
ComboBox2.Clear
ComboBox2.AddItem "Amasra"
ComboBox2.AddItem "Bartın Merkez"
ComboBox2.AddItem "Kurucaşile"
ComboBox2.AddItem "Ulus"
End If
If ComboBox1.Value = "Batman" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Batman Merkez"
ComboBox2.AddItem "Beşiri"
ComboBox2.AddItem "Gercüş"
ComboBox2.AddItem "Hasankeyf"
ComboBox2.AddItem "Kozluk"
ComboBox2.AddItem "Sason"
End If
If ComboBox1.Value = "Bayburt" Then
ComboBox2.ListRows = 3
ComboBox2.Clear
ComboBox2.AddItem "Aydıntepe"
ComboBox2.AddItem "Bayburt"
ComboBox2.AddItem "Demirözü"
End If
If ComboBox1.Value = "Bilecik" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Bilecik Merkez"
ComboBox2.AddItem "Bozüyük"
ComboBox2.AddItem "Gölpazarı"
ComboBox2.AddItem "İnhisar"
ComboBox2.AddItem "Osmaneli"
ComboBox2.AddItem "Pazaryeri"
ComboBox2.AddItem "Söğüt"
ComboBox2.AddItem "Yenipazar"
End If
If ComboBox1.Value = "Bingöl" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Adaklı"
ComboBox2.AddItem "Bingöl Merkez"
ComboBox2.AddItem "Genç"
ComboBox2.AddItem "Karlıova"
ComboBox2.AddItem "Kığı"
ComboBox2.AddItem "Solhan"
ComboBox2.AddItem "Yayladere"
ComboBox2.AddItem "Yedisu"
End If
If ComboBox1.Value = "Bitlis" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Adilcevaz"
ComboBox2.AddItem "Ahlat"
ComboBox2.AddItem "Bitlis Merkez"
ComboBox2.AddItem "Güroymak"
ComboBox2.AddItem "Hizan"
ComboBox2.AddItem "Mutki"
ComboBox2.AddItem "Tatvan"
End If
If ComboBox1.Value = "Bolu" Then
ComboBox2.ListRows = 16
ComboBox2.Clear
ComboBox2.AddItem "Akçakoca"
ComboBox2.AddItem "Bolu Merkez"
ComboBox2.AddItem "Cumayeri"
ComboBox2.AddItem "Çilimli"
ComboBox2.AddItem "Dörtdivan"
ComboBox2.AddItem "Gerede"
ComboBox2.AddItem "Gölyaka"
ComboBox2.AddItem "Göynük"
ComboBox2.AddItem "Gümüşova"
ComboBox2.AddItem "Karacasu"
ComboBox2.AddItem "Kıbrıscık"
ComboBox2.AddItem "Mengen"
ComboBox2.AddItem "Mudurnu"
ComboBox2.AddItem "Yeniçağa"
ComboBox2.AddItem "Yığılca"
End If
If ComboBox1.Value = "Burdur" Then
ComboBox2.ListRows = 12
ComboBox2.Clear
ComboBox2.AddItem "Ağlasun"
ComboBox2.AddItem "Altınyayla"
ComboBox2.AddItem "Bucak"
ComboBox2.AddItem "Burdur Merkez"
ComboBox2.AddItem "Çavdır"
ComboBox2.AddItem "Çeltikçi"
ComboBox2.AddItem "Gölhisar"
ComboBox2.AddItem "Karamanlı"
ComboBox2.AddItem "Kemer"
ComboBox2.AddItem "Tefenni"
ComboBox2.AddItem "Yeşilova"
End If
If ComboBox1.Value = "Bursa" Then
ComboBox2.ListRows = 21
ComboBox2.Clear
ComboBox2.AddItem "Bursa Merkez"
ComboBox2.AddItem "Büyükorhan"
ComboBox2.AddItem "Gemlik"
ComboBox2.AddItem "Gürsu"
ComboBox2.AddItem "Harmancık"
ComboBox2.AddItem "İnegöl"
ComboBox2.AddItem "İznik"
ComboBox2.AddItem "Karacabey"
ComboBox2.AddItem "Keles"
ComboBox2.AddItem "Kestel"
ComboBox2.AddItem "Kurşunlu"
ComboBox2.AddItem "M.Kemalpaşa"
ComboBox2.AddItem "Mudanya"
ComboBox2.AddItem "Nilüfer"
ComboBox2.AddItem "Orhaneli"
ComboBox2.AddItem "Orhangazi"
ComboBox2.AddItem "Osmangazi"
ComboBox2.AddItem "Yenişehir"
ComboBox2.AddItem "Yıldırım"
End If
If ComboBox1.Value = "Çanakkale" Then
ComboBox2.ListRows = 16
ComboBox2.Clear
ComboBox2.AddItem "Ayvacık"
ComboBox2.AddItem "Bayramiç"
ComboBox2.AddItem "Bigadiç"
ComboBox2.AddItem "Bolayır"
ComboBox2.AddItem "Bozcaada"
ComboBox2.AddItem "Çan"
ComboBox2.AddItem "Çanakkale Merkez"
ComboBox2.AddItem "Eceabat"
ComboBox2.AddItem "Ezine"
ComboBox2.AddItem "Gelibolu"
ComboBox2.AddItem "İmroz (Gökçeada"
ComboBox2.AddItem "Karabiga"
ComboBox2.AddItem "Küçükkuyu"
ComboBox2.AddItem "Lapseki"
ComboBox2.AddItem "Yenice"
End If
If ComboBox1.Value = "Çankırı" Then
ComboBox2.ListRows = 13
ComboBox2.Clear
ComboBox2.AddItem "Atkaracalar"
ComboBox2.AddItem "Bayramören"
ComboBox2.AddItem "Çankırı Merkez"
ComboBox2.AddItem "Çerkeş"
ComboBox2.AddItem "Eldivan"
ComboBox2.AddItem "Ilgaz"
ComboBox2.AddItem "Kızılırmak"
ComboBox2.AddItem "Korgun"
ComboBox2.AddItem "Kurşunlu"
ComboBox2.AddItem "Orta"
ComboBox2.AddItem "Ãabanözü"
ComboBox2.AddItem "Yapraklı"
End If
If ComboBox1.Value = "Çorum" Then
ComboBox2.ListRows = 15
ComboBox2.Clear
ComboBox2.AddItem "Alaca"
ComboBox2.AddItem "Bayat"
ComboBox2.AddItem "Boğazkale"
ComboBox2.AddItem "Çorum Merkez"
ComboBox2.AddItem "Dodurga"
ComboBox2.AddItem "İskilip"
ComboBox2.AddItem "Kargı"
ComboBox2.AddItem "Laçin"
ComboBox2.AddItem "Mecitözü"
ComboBox2.AddItem "Oğuzlar (Karaören)"
ComboBox2.AddItem "Ortaköy"
ComboBox2.AddItem "Osmancık"
ComboBox2.AddItem "Sungurlu"
ComboBox2.AddItem "Uğurludağ"
End If
If ComboBox1.Value = "Denizli" Then
ComboBox2.ListRows = 23
ComboBox2.Clear
ComboBox2.AddItem "Acıpayam"
ComboBox2.AddItem "Akköy"
ComboBox2.AddItem "Babadağ"
ComboBox2.AddItem "Baklan"
ComboBox2.AddItem "Bekilli"
ComboBox2.AddItem "Beyağaç"
ComboBox2.AddItem "Bozkurt"
ComboBox2.AddItem "Buldan"
ComboBox2.AddItem "Çal"
ComboBox2.AddItem "Çameli"
ComboBox2.AddItem "Çardak"
ComboBox2.AddItem "Çivril"
ComboBox2.AddItem "Denizli Merkez"
ComboBox2.AddItem "Güney"
ComboBox2.AddItem "Honaz"
ComboBox2.AddItem "Kale"
ComboBox2.AddItem "Kızalcabölük"
ComboBox2.AddItem "Sarayköy"
ComboBox2.AddItem "Serinhisar (Kızılhisar"
ComboBox2.AddItem "Tavas"
ComboBox2.AddItem "Yatağan"
ComboBox2.AddItem "Yeşilyuva"
End If
If ComboBox1.Value = "Diyarbakır" Then
ComboBox2.ListRows = 15
ComboBox2.Clear
ComboBox2.AddItem "Bismil"
ComboBox2.AddItem "Çermik"
ComboBox2.AddItem "Çınar"
ComboBox2.AddItem "Çüngüş"
ComboBox2.AddItem "Dicle"
ComboBox2.AddItem "Diyarbakır Merkez"
ComboBox2.AddItem "Eğil"
ComboBox2.AddItem "Ergani"
ComboBox2.AddItem "Hani"
ComboBox2.AddItem "Hazro"
ComboBox2.AddItem "Kocaköy"
ComboBox2.AddItem "Kulp"
ComboBox2.AddItem "Lice"
ComboBox2.AddItem "Silvan"
End If
If ComboBox1.Value = "Düzce" Then
ComboBox2.ListRows = 2
ComboBox2.Clear
ComboBox2.AddItem "Kaynaşlı"
ComboBox2.AddItem "Düzce Merkez"
End If
If ComboBox1.Value = "Edirne" Then
ComboBox2.ListRows = 11
ComboBox2.AddItem "Edirne Merkez"
ComboBox2.AddItem "Enez"
ComboBox2.AddItem "Havsa"
ComboBox2.AddItem "İpsala"
ComboBox2.AddItem "Kapıkule"
ComboBox2.AddItem "Keşan"
ComboBox2.AddItem "Lalapaşa"
ComboBox2.AddItem "Meriç"
ComboBox2.AddItem "Süleoğlu"
ComboBox2.AddItem "Uzunköprü"
End If
If ComboBox1.Value = "Elazığ" Then
ComboBox2.ListRows = 12
ComboBox2.Clear
ComboBox2.AddItem "Ağın"
ComboBox2.AddItem "Alacakaya"
ComboBox2.AddItem "Arıcak"
ComboBox2.AddItem "Baskil"
ComboBox2.AddItem "Elazığ Merkez"
ComboBox2.AddItem "Karakoçan"
ComboBox2.AddItem "Keban"
ComboBox2.AddItem "Kovancılar"
ComboBox2.AddItem "Maden"
ComboBox2.AddItem "Palu"
ComboBox2.AddItem "Sivrice"
End If
If ComboBox1.Value = "Erzincan" Then
ComboBox2.ListRows = 11
ComboBox2.Clear
ComboBox2.AddItem "Çayırlı"
ComboBox2.AddItem "Erzincan Merkez"
ComboBox2.AddItem "İliç"
ComboBox2.AddItem "Kemah"
ComboBox2.AddItem "Kemaliye"
ComboBox2.AddItem "Mercan"
ComboBox2.AddItem "Otlukbeli"
ComboBox2.AddItem "Refahiye"
ComboBox2.AddItem "Tercan"
ComboBox2.AddItem "Üzümlü"
End If
If ComboBox1.Value = "Erzurum" Then
ComboBox2.ListRows = 22
ComboBox2.Clear
ComboBox2.AddItem "Aşkale"
ComboBox2.AddItem "Çat"
ComboBox2.AddItem "Dumlu"
ComboBox2.AddItem "Erzurum Merkez"
ComboBox2.AddItem "Hınıs"
ComboBox2.AddItem "Horasan"
ComboBox2.AddItem "Ilıca"
ComboBox2.AddItem "İspir"
ComboBox2.AddItem "Kandilli"
ComboBox2.AddItem "Karaçoban"
ComboBox2.AddItem "Karayazı"
ComboBox2.AddItem "Köprüköy"
ComboBox2.AddItem "Narman"
ComboBox2.AddItem "Oltu"
ComboBox2.AddItem "Olur"
ComboBox2.AddItem "Pasinler (Hasankale"
ComboBox2.AddItem "Pazaryolu"
ComboBox2.AddItem "Ãenkaya"
ComboBox2.AddItem "Tekman"
ComboBox2.AddItem "Tortum"
ComboBox2.AddItem "Uzundere"
End If
If ComboBox1.Value = "Eskişehir" Then
ComboBox2.ListRows = 14
ComboBox2.Clear
ComboBox2.AddItem "Alpu"
ComboBox2.AddItem "Beylikova"
ComboBox2.AddItem "Çifteler"
ComboBox2.AddItem "Eskişehir Merkez"
ComboBox2.AddItem "Günyüzü"
ComboBox2.AddItem "Hani"
ComboBox2.AddItem "İnönü"
ComboBox2.AddItem "Mahmudiye"
ComboBox2.AddItem "Mihalgazi"
ComboBox2.AddItem "Mihalıççık"
ComboBox2.AddItem "Sarıcakaya"
ComboBox2.AddItem "Seyitgazi"
ComboBox2.AddItem "Sivrihisar"
End If
If ComboBox1.Value = "Gaziantep" Then
ComboBox2.ListRows = 11
ComboBox2.Clear
ComboBox2.AddItem "Araban"
ComboBox2.AddItem "Gaziantep Merkez"
ComboBox2.AddItem "İslahiye"
ComboBox2.AddItem "Karkamış"
ComboBox2.AddItem "Nizip"
ComboBox2.AddItem "Nurdağı"
ComboBox2.AddItem "Oğuzeli"
ComboBox2.AddItem "Ãahinbey"
ComboBox2.AddItem "Ãehitkamil"
ComboBox2.AddItem "Yavuzeli"
End If
If ComboBox1.Value = "Giresun" Then
ComboBox2.ListRows = 17
ComboBox2.Clear
ComboBox2.AddItem "Alucra"
ComboBox2.AddItem "Bulancak"
ComboBox2.AddItem "Çamoluk"
ComboBox2.AddItem "Çanakçı"
ComboBox2.AddItem "Dereli"
ComboBox2.AddItem "Doğankent"
ComboBox2.AddItem "Espiye"
ComboBox2.AddItem "Eynesil"
ComboBox2.AddItem "Giresun Merkez"
ComboBox2.AddItem "Görele"
ComboBox2.AddItem "Güce"
ComboBox2.AddItem "Keşap"
ComboBox2.AddItem "Piraziz"
ComboBox2.AddItem "Ãebinkarahisar"
ComboBox2.AddItem "Tirebolu"
ComboBox2.AddItem "Yağlıdere (Palaklı"
End If
If ComboBox1.Value = "Gümüşhane" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Merkez"
ComboBox2.AddItem "Kelkit"
ComboBox2.AddItem "Köse"
ComboBox2.AddItem "Kürtün"
ComboBox2.AddItem "Ãiran"
ComboBox2.AddItem "Torul"
End If
If ComboBox1.Value = "Hakkari" Then
ComboBox2.ListRows = 5
ComboBox2.Clear
ComboBox2.AddItem "Çukurca"
ComboBox2.AddItem "Hakkari Merkez"
ComboBox2.AddItem "Ãemdinli"
ComboBox2.AddItem "Yüksekova"
End If
If ComboBox1.Value = "Hatay" Then
ComboBox2.ListRows = 15
ComboBox2.Clear
ComboBox2.AddItem "Altınözü"
ComboBox2.AddItem "Antakya (Mrk"
ComboBox2.AddItem "Belen"
ComboBox2.AddItem "Dörtyol"
ComboBox2.AddItem "Erzin"
ComboBox2.AddItem "Hassa"
ComboBox2.AddItem "Hatay Merkez"
ComboBox2.AddItem "İskenderun"
ComboBox2.AddItem "Kırıkhan"
ComboBox2.AddItem "Kumlu"
ComboBox2.AddItem "Payas"
ComboBox2.AddItem "Reyhanlı"
ComboBox2.AddItem "Samandağı"
ComboBox2.AddItem "Yayladağı"
End If
If ComboBox1.Value = "Iğdır" Then
ComboBox2.ListRows = 5
ComboBox2.Clear
ComboBox2.AddItem "Aralık"
ComboBox2.AddItem "Iğdır Merkez"
ComboBox2.AddItem "Karakoyunlu"
ComboBox2.AddItem "Tuzluca"
End If
If ComboBox1.Value = "Isparta" Then
ComboBox2.ListRows = 14
ComboBox2.Clear
ComboBox2.AddItem "Aksu"
ComboBox2.AddItem "Atabey"
ComboBox2.AddItem "Eğirdir"
ComboBox2.AddItem "Gelendost"
ComboBox2.AddItem "Gönen"
ComboBox2.AddItem "Isparta Merkez"
ComboBox2.AddItem "Keçiborlu"
ComboBox2.AddItem "Senirkent"
ComboBox2.AddItem "Sütçüler"
ComboBox2.AddItem "Ãarkikaraağaç"
ComboBox2.AddItem "Uluborlu"
ComboBox2.AddItem "Yalvaç"
ComboBox2.AddItem "Yenişarbademli"
End If
If ComboBox1.Value = "İçel" Then
ComboBox2.ListRows = 15
ComboBox2.Clear
ComboBox2.AddItem "Anamur"
ComboBox2.AddItem "Aydıncık"
ComboBox2.AddItem "Bozyazı"
ComboBox2.AddItem "Çamlıyayla"
ComboBox2.AddItem "Çeşmeli"
ComboBox2.AddItem "Erdemli"
ComboBox2.AddItem "Gülnar"
ComboBox2.AddItem "Mersin (İçel Merkez"
ComboBox2.AddItem "Mut"
ComboBox2.AddItem "Silifke"
ComboBox2.AddItem "Tarsus"
ComboBox2.AddItem "Taşucu"
ComboBox2.AddItem "Tomuk"
ComboBox2.AddItem "Yenice"
End If
If ComboBox1.Value = "İstanbul" Then
ComboBox2.ListRows = 33
ComboBox2.Clear
ComboBox2.AddItem "Adalar"
ComboBox2.AddItem "Avcılar"
ComboBox2.AddItem "Bağcılar"
ComboBox2.AddItem "Bahçelievler"
ComboBox2.AddItem "Bakırköy"
ComboBox2.AddItem "Bayrampaşa"
ComboBox2.AddItem "Beşiktaş"
ComboBox2.AddItem "Beykoz"
ComboBox2.AddItem "Beyoğlu"
ComboBox2.AddItem "Büyükçekmece"
ComboBox2.AddItem "Çatalca"
ComboBox2.AddItem "Eminönü"
ComboBox2.AddItem "Esenler"
ComboBox2.AddItem "Eyüp"
ComboBox2.AddItem "Fatih"
ComboBox2.AddItem "Gaziosmanpaşa"
ComboBox2.AddItem "Güngören"
ComboBox2.AddItem "İstanbul"
ComboBox2.AddItem "Kadıköy"
ComboBox2.AddItem "Kağıthane"
ComboBox2.AddItem "Kartal"
ComboBox2.AddItem "Küçükçekmece"
ComboBox2.AddItem "Maltepe"
ComboBox2.AddItem "Pendik"
ComboBox2.AddItem "Sarıyer"
ComboBox2.AddItem "Silivri"
ComboBox2.AddItem "Sultanbeyli"
ComboBox2.AddItem "Ãile"
ComboBox2.AddItem "Ãişli"
ComboBox2.AddItem "Tuzla"
ComboBox2.AddItem "Ümraniye"
ComboBox2.AddItem "Üsküdar"
End If
If ComboBox1.Value = "İzmir" Then
ComboBox2.ListRows = 30
ComboBox2.Clear
ComboBox2.AddItem "Aliağa"
ComboBox2.AddItem "Balçova"
ComboBox2.AddItem "Bayındır"
ComboBox2.AddItem "Bergama"
ComboBox2.AddItem "Beydağ"
ComboBox2.AddItem "Bornova"
ComboBox2.AddItem "Buca"
ComboBox2.AddItem "Çeşme"
ComboBox2.AddItem "Çiğli"
ComboBox2.AddItem "Dikili"
ComboBox2.AddItem "Foça"
ComboBox2.AddItem "Gaziemir"
ComboBox2.AddItem "Güzelbahçe"
ComboBox2.AddItem "İzmir"
ComboBox2.AddItem "Karaburun"
ComboBox2.AddItem "Karşıyaka"
ComboBox2.AddItem "Kemalpaşa"
ComboBox2.AddItem "Kınık"
ComboBox2.AddItem "Kiraz"
ComboBox2.AddItem "Konak"
ComboBox2.AddItem "Menderes"
ComboBox2.AddItem "Menemen"
ComboBox2.AddItem "Narlıdere"
ComboBox2.AddItem "Ã?demiş"
ComboBox2.AddItem "Seferihisar"
ComboBox2.AddItem "Selçuk"
ComboBox2.AddItem "Tire"
ComboBox2.AddItem "Torbalı"
ComboBox2.AddItem "Urla"
End If
If ComboBox1.Value = "Karabük" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Eflani"
ComboBox2.AddItem "Eskipazar"
ComboBox2.AddItem "Karabük Merkez"
ComboBox2.AddItem "Ovacık"
ComboBox2.AddItem "Safranbolu"
ComboBox2.AddItem "Yenice"
End If
If ComboBox1.Value = "Karaman" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Ayrancı"
ComboBox2.AddItem "Başyayla"
ComboBox2.AddItem "Ermenek"
ComboBox2.AddItem "Karaman"
ComboBox2.AddItem "Kazımkarabekir"
ComboBox2.AddItem "Sarıveliler"
End If
If ComboBox1.Value = "Kars" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Akyaka"
ComboBox2.AddItem "Arpaçay"
ComboBox2.AddItem "Digor"
ComboBox2.AddItem "Kağızman"
ComboBox2.AddItem "Kars Merkez"
ComboBox2.AddItem "Sarıkamış"
ComboBox2.AddItem "Selim"
ComboBox2.AddItem "Susuz"
End If
If ComboBox1.Value = "Kastamonu" Then
ComboBox2.ListRows = 21
ComboBox2.Clear
ComboBox2.AddItem "Abana"
ComboBox2.AddItem "Ağlı"
ComboBox2.AddItem "Araç"
ComboBox2.AddItem "Azdavay"
ComboBox2.AddItem "Bozkurt"
ComboBox2.AddItem "Cide"
ComboBox2.AddItem "Çatalzeytin"
ComboBox2.AddItem "Daday"
ComboBox2.AddItem "Devrekani"
ComboBox2.AddItem "Doğanyurt"
ComboBox2.AddItem "Hanönü"
ComboBox2.AddItem "İhsangazi"
ComboBox2.AddItem "İnebolu"
ComboBox2.AddItem "Kastamonu Merkez"
ComboBox2.AddItem "Küre"
ComboBox2.AddItem "Pınarbaşı"
ComboBox2.AddItem "Seydiler"
ComboBox2.AddItem "Ãenpazar"
ComboBox2.AddItem "Taşköprü"
ComboBox2.AddItem "Tosya"
End If
If ComboBox1.Value = "Kayseri" Then
ComboBox2.ListRows = 18
ComboBox2.Clear
ComboBox2.AddItem "Akkışla"
ComboBox2.AddItem "Bünyan"
ComboBox2.AddItem "Develi"
ComboBox2.AddItem "Felahiye"
ComboBox2.AddItem "Hacılar"
ComboBox2.AddItem "İncesu"
ComboBox2.AddItem "Kayseri Merkez"
ComboBox2.AddItem "Kocasinan"
ComboBox2.AddItem "Melikgazi"
ComboBox2.AddItem "Ã?zvatan"
ComboBox2.AddItem "Pınarbaşı"
ComboBox2.AddItem "Sarıoğlan"
ComboBox2.AddItem "Sarız"
ComboBox2.AddItem "Talas"
ComboBox2.AddItem "Tomarza"
ComboBox2.AddItem "Yahyalı"
ComboBox2.AddItem "Yeşilhisar"
End If
If ComboBox1.Value = "Kırıkkale" Then
ComboBox2.ListRows = 10
ComboBox2.Clear
ComboBox2.AddItem "Bahşili"
ComboBox2.AddItem "Balışeyh"
ComboBox2.AddItem "Çelebi"
ComboBox2.AddItem "Delice"
ComboBox2.AddItem "Karakeçili"
ComboBox2.AddItem "Keskin"
ComboBox2.AddItem "Kırıkkale Merkez"
ComboBox2.AddItem "Sulakyurt"
ComboBox2.AddItem "Yahşihan"
End If
If ComboBox1.Value = "Kırklareli" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Babaeski"
ComboBox2.AddItem "Demirköy"
ComboBox2.AddItem "Kırklareli Merkez"
ComboBox2.AddItem "Kofçaz"
ComboBox2.AddItem "Lüleburgaz"
ComboBox2.AddItem "Pehlivanköy"
ComboBox2.AddItem "Pınarhisar"
ComboBox2.AddItem "Vize"
End If
If ComboBox1.Value = "Kırşehir" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Akçakent"
ComboBox2.AddItem "Akpınar"
ComboBox2.AddItem "Boztepe"
ComboBox2.AddItem "Çiçekdağı"
ComboBox2.AddItem "Kaman"
ComboBox2.AddItem "Kırşehir Merkez"
ComboBox2.AddItem "Mucur"
End If
If ComboBox1.Value = "Kilis" Then
ComboBox2.ListRows = 5
ComboBox2.Clear
ComboBox2.AddItem "Elbeyli"
ComboBox2.AddItem "Kilis Merkez"
ComboBox2.AddItem "Musabeyli"
ComboBox2.AddItem "Polateli"
End If
If ComboBox1.Value = "Kocaeli" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Çayırova"
ComboBox2.AddItem "Gebze"
ComboBox2.AddItem "Gölcük"
ComboBox2.AddItem "İzmit (Kocaeli Merkez)"
ComboBox2.AddItem "Kandıra"
ComboBox2.AddItem "Karamürsel"
ComboBox2.AddItem "Körfez"
End If
If ComboBox1.Value = "Konya" Then
ComboBox2.ListRows = 33
ComboBox2.Clear
ComboBox2.AddItem "Ahırlı"
ComboBox2.AddItem "Akören"
ComboBox2.AddItem "Akşehir"
ComboBox2.AddItem "Altınekin"
ComboBox2.AddItem "Beyşehir"
ComboBox2.AddItem "Bozkır"
ComboBox2.AddItem "Cihanbeyli"
ComboBox2.AddItem "Çeltik"
ComboBox2.AddItem "Çumra"
ComboBox2.AddItem "Derbent"
ComboBox2.AddItem "Derebucak"
ComboBox2.AddItem "Doğanhisar"
ComboBox2.AddItem "Emirgazi"
ComboBox2.AddItem "Ereğli"
ComboBox2.AddItem "Güneysınır"
ComboBox2.AddItem "Hadım"
ComboBox2.AddItem "Halkapınar"
ComboBox2.AddItem "Hüyük"
ComboBox2.AddItem "Ilgın"
ComboBox2.AddItem "Kadınhanı"
ComboBox2.AddItem "Karapınar"
ComboBox2.AddItem "Karatay"
ComboBox2.AddItem "Konya Merkez"
ComboBox2.AddItem "Kulu"
ComboBox2.AddItem "Meram"
ComboBox2.AddItem "Sarayönü"
ComboBox2.AddItem "Selçuklu"
ComboBox2.AddItem "Seydişehir"
ComboBox2.AddItem "Taşkent"
ComboBox2.AddItem "Tuzlukçu"
ComboBox2.AddItem "Yalıhüyük"
ComboBox2.AddItem "Yunak"
End If
If ComboBox1.Value = "Kütahya" Then
ComboBox2.ListRows = 14
ComboBox2.Clear
ComboBox2.AddItem "Altıntaş"
ComboBox2.AddItem "Aslanapa"
ComboBox2.AddItem "Çavdarhisar"
ComboBox2.AddItem "Domaniç"
ComboBox2.AddItem "Dumlupınar"
ComboBox2.AddItem "Emet"
ComboBox2.AddItem "Gediz"
ComboBox2.AddItem "Hisarcık"
ComboBox2.AddItem "Kütahya Merkez"
ComboBox2.AddItem "Pazarlar"
ComboBox2.AddItem "Simav"
ComboBox2.AddItem "Ãaphane"
ComboBox2.AddItem "Tavşanlı"
End If
If ComboBox1.Value = "Malatya" Then
ComboBox2.ListRows = 15
ComboBox2.Clear
ComboBox2.AddItem "Akçadağ"
ComboBox2.AddItem "Arapkir"
ComboBox2.AddItem "Arguvan"
ComboBox2.AddItem "Battalgazi"
ComboBox2.AddItem "Darende"
ComboBox2.AddItem "Doğanşehir"
ComboBox2.AddItem "Doğanyol"
ComboBox2.AddItem "Hekimhan"
ComboBox2.AddItem "Kale"
ComboBox2.AddItem "Kuluncak"
ComboBox2.AddItem "Malatya Merkez"
ComboBox2.AddItem "Pütürge"
ComboBox2.AddItem "Yazıhan"
ComboBox2.AddItem "Yeşilyurt"
End If
If ComboBox1.Value = "Manisa" Then
ComboBox2.ListRows = 17
ComboBox2.Clear
ComboBox2.AddItem "Ahmetli"
ComboBox2.AddItem "Akhisar"
ComboBox2.AddItem "Alaşehir"
ComboBox2.AddItem "Demirci"
ComboBox2.AddItem "Gölmarmara"
ComboBox2.AddItem "Gördes"
ComboBox2.AddItem "Kırkağaç"
ComboBox2.AddItem "Köprübaşı"
ComboBox2.AddItem "Kula"
ComboBox2.AddItem "Manisa Merkez"
ComboBox2.AddItem "Salihli"
ComboBox2.AddItem "Sarıgöl"
ComboBox2.AddItem "Saruhanlı"
ComboBox2.AddItem "Selendi"
ComboBox2.AddItem "Soma"
ComboBox2.AddItem "Turgutlu"
End If
If ComboBox1.Value = "Maraş" Then
ComboBox2.ListRows = 11
ComboBox2.Clear
ComboBox2.AddItem "Afşin"
ComboBox2.AddItem "Andırın"
ComboBox2.AddItem "Çağlayancerit"
ComboBox2.AddItem "Ekinözü"
ComboBox2.AddItem "Elbistan"
ComboBox2.AddItem "Göksun"
ComboBox2.AddItem "Kahramanmaraş Merkez"
ComboBox2.AddItem "Nurhak"
ComboBox2.AddItem "Pazarcık"
ComboBox2.AddItem "Türkoğlu"
End If
If ComboBox1.Value = "Mardin" Then
ComboBox2.ListRows = 11
ComboBox2.Clear
ComboBox2.AddItem "Dargeçit"
ComboBox2.AddItem "Derik"
ComboBox2.AddItem "Kızıltepe"
ComboBox2.AddItem "Mardin Merkez"
ComboBox2.AddItem "Mazıdağı"
ComboBox2.AddItem "Midyat"
ComboBox2.AddItem "Nusaybin"
ComboBox2.AddItem "Ã?merli"
ComboBox2.AddItem "Savur"
ComboBox2.AddItem "Yeşilli"
End If
If ComboBox1.Value = "Muğla" Then
ComboBox2.ListRows = 13
ComboBox2.Clear
ComboBox2.AddItem "Bodrum"
ComboBox2.AddItem "Dalaman"
ComboBox2.AddItem "Datça"
ComboBox2.AddItem "Fethiye"
ComboBox2.AddItem "Kavaklıdere"
ComboBox2.AddItem "Köyceğiz"
ComboBox2.AddItem "Marmaris"
ComboBox2.AddItem "Milas"
ComboBox2.AddItem "Muğla Merkez"
ComboBox2.AddItem "Ortaca"
ComboBox2.AddItem "Ula"
ComboBox2.AddItem "Yatağan"
End If
If ComboBox1.Value = "Muş" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Bulanık"
ComboBox2.AddItem "Hasköy"
ComboBox2.AddItem "Korkut"
ComboBox2.AddItem "Malazgirt"
ComboBox2.AddItem "Muş Merkez"
ComboBox2.AddItem "Varto"
End If
If ComboBox1.Value = "Nevşehir" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Acıgöl"
ComboBox2.AddItem "Avanos"
ComboBox2.AddItem "Derinkuyu"
ComboBox2.AddItem "Gülşehir"
ComboBox2.AddItem "Hacıbektaş"
ComboBox2.AddItem "Kozaklı"
ComboBox2.AddItem "Nevşehir Merkez"
ComboBox2.AddItem "Ürgüp"
End If
If ComboBox1.Value = "Niğde" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Altunhisar"
ComboBox2.AddItem "Bor"
ComboBox2.AddItem "Çamardı"
ComboBox2.AddItem "Çiftlik"
ComboBox2.AddItem "Niğde Merkez"
ComboBox2.AddItem "Ulukışla"
End If
If ComboBox1.Value = "Ordu" Then
ComboBox2.ListRows = 20
ComboBox2.Clear
ComboBox2.AddItem "Akkuş"
ComboBox2.AddItem "Aybastı"
ComboBox2.AddItem "Çamaş"
ComboBox2.AddItem "Çatalpınar"
ComboBox2.AddItem "Çaybaşı"
ComboBox2.AddItem "Fatsa"
ComboBox2.AddItem "Gölköy"
ComboBox2.AddItem "Gülyalı"
ComboBox2.AddItem "Gürgentepe"
ComboBox2.AddItem "İkizce"
ComboBox2.AddItem "Kabadüz"
ComboBox2.AddItem "Kabataş"
ComboBox2.AddItem "Korgan"
ComboBox2.AddItem "Kumru"
ComboBox2.AddItem "Mesudiye"
ComboBox2.AddItem "Ordu Merkez"
ComboBox2.AddItem "Perşembe"
ComboBox2.AddItem "Ulubey"
ComboBox2.AddItem "Ünye"
End If
If ComboBox1.Value = "Osmaniye" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Bahçe"
ComboBox2.AddItem "Düziçi"
ComboBox2.AddItem "Hasanbeyli"
ComboBox2.AddItem "Kadirli"
ComboBox2.AddItem "Osmaniye Merkez"
ComboBox2.AddItem "Sumbas"
ComboBox2.AddItem "Torakkale"
End If
If ComboBox1.Value = "Rize" Then
ComboBox2.ListRows = 13
ComboBox2.Clear
ComboBox2.AddItem "Ardeşen"
ComboBox2.AddItem "Çamlıhemşin"
ComboBox2.AddItem "Çayeli"
ComboBox2.AddItem "Derepazarı"
ComboBox2.AddItem "Fındıklı"
ComboBox2.AddItem "Güneysu"
ComboBox2.AddItem "Hemşin"
ComboBox2.AddItem "İkizdere"
ComboBox2.AddItem "İyidere"
ComboBox2.AddItem "Kalkandere"
ComboBox2.AddItem "Pazar"
ComboBox2.AddItem "Rize Merkez"
End If
If ComboBox1.Value = "Sakarya" Then
ComboBox2.ListRows = 14
ComboBox2.Clear
ComboBox2.AddItem "Adapazarı"" "
ComboBox2.AddItem "Akyazı"
ComboBox2.AddItem "Ferizli"
ComboBox2.AddItem "Geyve"
ComboBox2.AddItem "Hendek"
ComboBox2.AddItem "Karapürçek (Akpürçek"
ComboBox2.AddItem "Karasu"
ComboBox2.AddItem "Kaynarca"
ComboBox2.AddItem "Kocaali"
ComboBox2.AddItem "Pamukova"
ComboBox2.AddItem "Sapanca"
ComboBox2.AddItem "Söğütlü"
ComboBox2.AddItem "Taraklı"
End If
If ComboBox1.Value = "Samsun" Then
ComboBox2.ListRows = 16
ComboBox2.Clear
ComboBox2.AddItem "Alaçam"
ComboBox2.AddItem "Asarcık"
ComboBox2.AddItem "Ayvacık"
ComboBox2.AddItem "Bafra"
ComboBox2.AddItem "Çarşamba"
ComboBox2.AddItem "Havza"
ComboBox2.AddItem "Kavak"
ComboBox2.AddItem "Ladik"
ComboBox2.AddItem "Ondokuzmayıs (Ballıca"
ComboBox2.AddItem "Salıpazarı"
ComboBox2.AddItem "Samsun Merkez"
ComboBox2.AddItem "Tekkeköy"
ComboBox2.AddItem "Terme"
ComboBox2.AddItem "Vezirköprü"
ComboBox2.AddItem "Yakakent"
End If
If ComboBox1.Value = "Siirt" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Aydınlar"
ComboBox2.AddItem "Baykan"
ComboBox2.AddItem "Eruh"
ComboBox2.AddItem "Kurtalan"
ComboBox2.AddItem "Pervari"
ComboBox2.AddItem "Siirt Merkez"
ComboBox2.AddItem "Ãirvan"
End If
If ComboBox1.Value = "Sinop" Then
ComboBox2.ListRows = 10
ComboBox2.Clear
ComboBox2.AddItem "Ayancık"
ComboBox2.AddItem "Boyabat"
ComboBox2.AddItem "Dikmen"
ComboBox2.AddItem "Durağan"
ComboBox2.AddItem "Erfelek"
ComboBox2.AddItem "Gerze"
ComboBox2.AddItem "Saraydüzü"
ComboBox2.AddItem "Sinop Merkez"
ComboBox2.AddItem "Türkeli"
End If
If ComboBox1.Value = "Sivas" Then
ComboBox2.ListRows = 18
ComboBox2.Clear
ComboBox2.AddItem "Akıncılar"
ComboBox2.AddItem "Altınyayla"
ComboBox2.AddItem "Divriği"
ComboBox2.AddItem "Doğanşar"
ComboBox2.AddItem "Gemerek"
ComboBox2.AddItem "Gölova"
ComboBox2.AddItem "Gürün"
ComboBox2.AddItem "Hafik"
ComboBox2.AddItem "İmranlı"
ComboBox2.AddItem "Kangal"
ComboBox2.AddItem "Koyulhisar"
ComboBox2.AddItem "Sivas Merkez"
ComboBox2.AddItem "Suşehri"
ComboBox2.AddItem "Ãarkıla"
ComboBox2.AddItem "Ulaş"
ComboBox2.AddItem "Yıldızeli"
ComboBox2.AddItem "Zara"
End If
If ComboBox1.Value = "Ãırnak" Then
ComboBox2.ListRows = 8
ComboBox2.Clear
ComboBox2.AddItem "Beytüşşebap"
ComboBox2.AddItem "Cizre"
ComboBox2.AddItem "Güçlükonak"
ComboBox2.AddItem "İdil"
ComboBox2.AddItem "Silopi"
ComboBox2.AddItem "Ãırnak Merkez"
ComboBox2.AddItem "Uludere"
End If
If ComboBox1.Value = "Tekirdağ" Then
ComboBox2.ListRows = 10
ComboBox2.Clear
ComboBox2.AddItem "Çerkezköy"
ComboBox2.AddItem "Çorlu"
ComboBox2.AddItem "Hayrabolu"
ComboBox2.AddItem "Malkara"
ComboBox2.AddItem "Marmaraereğlisi"
ComboBox2.AddItem "Muratlı"
ComboBox2.AddItem "Saray"
ComboBox2.AddItem "Ãarköy"
ComboBox2.AddItem "Tekirdağ Merkez"
End If
If ComboBox1.Value = "Tokat" Then
ComboBox2.ListRows = 13
ComboBox2.Clear
ComboBox2.AddItem "Almus"
ComboBox2.AddItem "Artova"
ComboBox2.AddItem "Başçiftlik"
ComboBox2.AddItem "Erbaa"
ComboBox2.AddItem "Niksar"
ComboBox2.AddItem "Pazar"
ComboBox2.AddItem "Reşadiye"
ComboBox2.AddItem "Sulusaray"
ComboBox2.AddItem "Tokat Merkez"
ComboBox2.AddItem "Turhal"
ComboBox2.AddItem "Yeşilyurt"
ComboBox2.AddItem "Zile"
End If
If ComboBox1.Value = "Trabzon" Then
ComboBox2.ListRows = 19
ComboBox2.Clear
ComboBox2.AddItem "Akçaabat"
ComboBox2.AddItem "Araklı"
ComboBox2.AddItem "Arsin"
ComboBox2.AddItem "Beşikdüzü"
ComboBox2.AddItem "Çarşıbaşı"
ComboBox2.AddItem "Çaykara"
ComboBox2.AddItem "Dernekpazarı"
ComboBox2.AddItem "Düzköy"
ComboBox2.AddItem "Hayrat"
ComboBox2.AddItem "Köprübaşı"
ComboBox2.AddItem "Maçka"
ComboBox2.AddItem "Of"
ComboBox2.AddItem "Sürmene"
ComboBox2.AddItem "Ãalpazarı"
ComboBox2.AddItem "Tonya"
ComboBox2.AddItem "Trabzon Merkez"
ComboBox2.AddItem "Vakfıkebir"
ComboBox2.AddItem "Yomra"
End If
If ComboBox1.Value = "Tunceli" Then
ComboBox2.ListRows = 9
ComboBox2.Clear
ComboBox2.AddItem "Çemişgezek"
ComboBox2.AddItem "Hozat"
ComboBox2.AddItem "Mazgirt"
ComboBox2.AddItem "Nazimiye"
ComboBox2.AddItem "Ovacık"
ComboBox2.AddItem "Pertek"
ComboBox2.AddItem "Pülümür"
ComboBox2.AddItem "Tunceli Merkez"
End If
If ComboBox1.Value = "Urfa" Then
ComboBox2.ListRows = 12
ComboBox2.Clear
ComboBox2.AddItem "Akçakale"
ComboBox2.AddItem "Birecik"
ComboBox2.AddItem "Bozova"
ComboBox2.AddItem "Ceylanpınar"
ComboBox2.AddItem "Halfeti"
ComboBox2.AddItem "Harran"
ComboBox2.AddItem "Hilvan"
ComboBox2.AddItem "Siverek"
ComboBox2.AddItem "Suruç"
ComboBox2.AddItem "Ãanlıurfa Merkez"
ComboBox2.AddItem "Viranşehir"
End If
If ComboBox1.Value = "Uşak" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Banaz"
ComboBox2.AddItem "Eşme"
ComboBox2.AddItem "Karahallı"
ComboBox2.AddItem "Sivaslı"
ComboBox2.AddItem "Ulubey"
ComboBox2.AddItem "Uşak Merkez"
End If
If ComboBox1.Value = "Van" Then
ComboBox2.ListRows = 13
ComboBox2.Clear
ComboBox2.AddItem "Bahçesaray"
ComboBox2.AddItem "Başkale"
ComboBox2.AddItem "Çaldıran"
ComboBox2.AddItem "Çatak"
ComboBox2.AddItem "Edremit"
ComboBox2.AddItem "Erciş"
ComboBox2.AddItem "Gevaş"
ComboBox2.AddItem "Gürpınar"
ComboBox2.AddItem "Muradiye"
ComboBox2.AddItem "Ã?zalp"
ComboBox2.AddItem "Saray"
ComboBox2.AddItem "Van Merkez"
End If
If ComboBox1.Value = "Yalova" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Altınova"
ComboBox2.AddItem "Armutlu"
ComboBox2.AddItem "Çınarcık"
ComboBox2.AddItem "Çiftlikköy"
ComboBox2.AddItem "Termal"
ComboBox2.AddItem "Yalova Merkez"
End If
If ComboBox1.Value = "Yozgat" Then
ComboBox2.ListRows = 15
ComboBox2.Clear
ComboBox2.AddItem "Akdağmadeni"
ComboBox2.AddItem "Aydıncık"
ComboBox2.AddItem "Boğazlıyan"
ComboBox2.AddItem "Çandır"
ComboBox2.AddItem "Çayıralan"
ComboBox2.AddItem "Çekerek"
ComboBox2.AddItem "Kadışehri"
ComboBox2.AddItem "Saraykent"
ComboBox2.AddItem "Sarıkaya"
ComboBox2.AddItem "Sorgun"
ComboBox2.AddItem "Ãefaatli"
ComboBox2.AddItem "Yenifakılı"
ComboBox2.AddItem "Yerköy"
ComboBox2.AddItem "Yozgat Merkez"
End If
If ComboBox1.Value = "Zonguldak" Then
ComboBox2.ListRows = 7
ComboBox2.Clear
ComboBox2.AddItem "Alaplı"
ComboBox2.AddItem "Çaycuma"
ComboBox2.AddItem "Devrek"
ComboBox2.AddItem "Ereğli"
ComboBox2.AddItem "Gökçebey"
ComboBox2.AddItem "Zonguldak Merkez"
End If
End Sub

Private Sub UserForm_Activate()
ComboBox1.MatchEntry = fmMatchEntryComplete
ComboBox1.ListRows = 20
ComboBox1.AddItem "Adana"
ComboBox1.AddItem "Adıyaman"
ComboBox1.AddItem "Afyon"
ComboBox1.AddItem "Ağrı"
ComboBox1.AddItem "Aksaray"
ComboBox1.AddItem "Amasya"
ComboBox1.AddItem "Ankara"
ComboBox1.AddItem "Antalya"
ComboBox1.AddItem "Ardahan"
ComboBox1.AddItem "Artvin"
ComboBox1.AddItem "Aydın"
ComboBox1.AddItem "Balıkesir"
ComboBox1.AddItem "Bartın"
ComboBox1.AddItem "Batman"
ComboBox1.AddItem "Bayburt"
ComboBox1.AddItem "Bilecik"
ComboBox1.AddItem "Bingöl"
ComboBox1.AddItem "Bitlis"
ComboBox1.AddItem "Bolu"
ComboBox1.AddItem "Burdur"
ComboBox1.AddItem "Bursa"
ComboBox1.AddItem "Çanakkale"
ComboBox1.AddItem "Çankırı"
ComboBox1.AddItem "Çorum"
ComboBox1.AddItem "Denizli"
ComboBox1.AddItem "Diyarbakır"
ComboBox1.AddItem "Düzce"
ComboBox1.AddItem "Edirne"
ComboBox1.AddItem "Elazığ"
ComboBox1.AddItem "Erzincan"
ComboBox1.AddItem "Erzurum"
ComboBox1.AddItem "Eskişehir"
ComboBox1.AddItem "Gaziantep"
ComboBox1.AddItem "Giresun"
ComboBox1.AddItem "Gümüşhane"
ComboBox1.AddItem "Hakkari"
ComboBox1.AddItem "Hatay"
ComboBox1.AddItem "Iğdır"
ComboBox1.AddItem "Isparta"
ComboBox1.AddItem "İçel"
ComboBox1.AddItem "İstanbul"
ComboBox1.AddItem "İzmir"
ComboBox1.AddItem "Karabük"
ComboBox1.AddItem "Karaman"
ComboBox1.AddItem "Kars"
ComboBox1.AddItem "Kastamonu"
ComboBox1.AddItem "Kayseri"
ComboBox1.AddItem "Kırıkkale"
ComboBox1.AddItem "Kırklareli"
ComboBox1.AddItem "Kırşehir"
ComboBox1.AddItem "Kilis"
ComboBox1.AddItem "Kocaeli"
ComboBox1.AddItem "Konya"
ComboBox1.AddItem "Kütahya"
ComboBox1.AddItem "Malatya"
ComboBox1.AddItem "Manisa"
ComboBox1.AddItem "Maraş"
ComboBox1.AddItem "Mardin"
ComboBox1.AddItem "Muğla"
ComboBox1.AddItem "Muş"
ComboBox1.AddItem "Nevşehir"
ComboBox1.AddItem "Niğde"
ComboBox1.AddItem "Ordu"
ComboBox1.AddItem "Osmaniye"
ComboBox1.AddItem "Rize"
ComboBox1.AddItem "Sakarya"
ComboBox1.AddItem "Samsun"
ComboBox1.AddItem "Siirt"
ComboBox1.AddItem "Sinop"
ComboBox1.AddItem "Sivas"
ComboBox1.AddItem "Ãırnak"
ComboBox1.AddItem "Tekirdağ"
ComboBox1.AddItem "Tokat"
ComboBox1.AddItem "Trabzon"
ComboBox1.AddItem "Tunceli"
ComboBox1.AddItem "Urfa"
ComboBox1.AddItem "Uşak"
ComboBox1.AddItem "Van"
ComboBox1.AddItem "Yalova"
ComboBox1.AddItem "Yozgat"
ComboBox1.AddItem "Zonguldak"
End Sub

Kodları Combobox1İN Kod sayfasına yapıştırırsanız sorununuz çözülür.

birdy · 12 Nisan 2005

Merhaba.
Tek kelimeyle harikasınız. :shock: :bravo: :bravo: :bravo:
Emeğinize sağlık.
Hemen deneyeyim

gdemir · 12 Nisan 2005

mukemmel

levent gercekten de cok emek harcamısın
bunu excell sayfasına yazsak ordan almamız mumkun olmazmı ?

Levent Menteşoğlu · 12 Nisan 2005

Benim dosyayı incelemediniz sanırım yukarıdaki kodlar bana ait değildir. Ben sizin belirttiğiniz gibi yapmıştım zaten

kadkah · 11 Nisan 2007

Arapkir değil Arapgir olacak

Combobox taki veriye göre ikinci combobox a veriler gelmesi

birdy

Levent Menteşoğlu

Administrator

birdy

Levent Menteşoğlu

Administrator

Hakan ERDOST

Destek Ekibi

birdy

gdemir

Levent Menteşoğlu

Administrator

kadkah