İl ve İlçeleri iki ayrı Comboboxta gösterme

[frksfu]

Ustalarım ben bir personel bilgi dosyası hazırlıyorum. ikamet Adresi bölümüne il ve ilçeler-nufus kaydı bölümüne il ve ilçeler girilecek. Şimdi örnek olarak ekteki dosyamda belirttiğim gibi bir userform ve üzerinde iki adet combobox yaptım. Ben 1 ci comboboxta illeri görmek istiyorum. 2 ci comboboxta ilçelerini görmek istiyorum ancak ilk comboboxa hangi il geldi ise ikincide onun ilçeleri gözüksün

 

[Orion1]

Dosyanız ekte

Private Sub ComboBox1_Change()
Dim sat As Long, son_sut As Integer, adres As Range, hcr As Range
If ComboBox1.ListIndex < 0 Then Exit Sub
sat = ComboBox1.ListIndex + 2
son_sut = Sheets("Data").Cells(sat, 256).End(xlToLeft).Column
Set adres = Sheets("Data").Range(Sheets("Data").Cells(sat, 2), Sheets("Data").Cells(sat, son_sut))
ComboBox2.Clear
For Each hcr In adres
    ComboBox2.AddItem hcr
Next
ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()

End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Click()
End Sub

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

 

[frksfu]

Sayın evren dosya açılmıyor " Set adres = Sheets("Data").Range(Cells(sat, 2), Cells(sat, son_sut)) " hatası veriyor

 

[Orion1]

Sayın evren dosya açılmıyor " Set adres = Sheets("Data").Range(Cells(sat, 2), Cells(sat, son_sut)) " hatası veriyor

Dosya gayet güzel çalışıyor ve açılıyor.Bir problem yok.

 

[frksfu]

Sayın evren indirdiğim dosyayı tekrar denedim ama aynı hatayı veriyor.
yeniden indirdim gene aynı . Formdaki kodo kendi dosyama kopyaladım oda aynı hatayı verdi
( Run-time error '1004':
Application-defined or object-defined error )

 

[Orion1]

Sayın evren indirdiğim dosyayı tekrar denedim ama aynı hatayı veriyor.
yeniden indirdim gene aynı

Bende tekrar indirdim çalışıyor.Bir prooblem yok.
Hem o satırdada hata olamaz.Siz excelinize bakın.Hata onda olabilir.Tekrar hatalara karşı onar yapınız exceli.

 

[frksfu]

Hatalara karşı nasıl onar diyeceğim bilmiyorum

 

[Kemal Demir]

Merhaba,

Evren Bey'in dosyası bende de calisti.

alternatif bir çözümle dosyayı ekliyorum

 

[frksfu]

ofis 2003 CD si ile hataları onarttım ama gene aynı

 

[frksfu]

Sayın Rakkas ilginize teşekkür ederim ama dosyanız yok

 

[Kemal Demir]

ofis 2003 CD si ile hataları onarttım ama gene aynı

? bende anlamadım.Evren Bey'in dosyası sorunsuz calisiyor.

 

[Kemal Demir]

Ben dosyayı görebiliyorum.

 

[Orion1]

Ben dosyayı görebiliyorum.

Bende görüyorum.

 

[frksfu]

Sayın Rakkas sizin eklediğiniz dosya tamam ama Sayın Evrenin dosyalarını (2 adaet ti ) bilgi sayarmdan silip üçüncü kez indirdim gene aynı anlıyamadım ?
Ama sizinki sorunsuz çalıştı. Çok ama çok teşekkür ederim sizin gibi ustalarımız var iken sırtımız yere gelmez biz bu excel işini sonunda öğrenicez hepinize ayrı ayrı teşekkürlerimi sunuyorum

 

[Ayhan Ercan]

Sn frksfu

Bahse konu satırı aşağıdaki gibi değiştirerek deneyiniz..

Set adres = Sheets("Data").Range(Sheets("Data").Cells(sat, 2), Sheets("Data").Cells(sat, son_sut))

 

[Orion1]

Sn frksfu

Bahse konu satırı aşağıdaki gibi değiştirerek deneyiniz..

Set adres = Sheets("Data").Range(Sheets("Data").Cells(sat, 2), [B][COLOR="Red"]Sheets("Data").[/COLOR][/B]Cells(sat, son_sut))

Evet gözümden kaçmış.
Ayhan bey teşekkürler.

 

[Ayhan Ercan]

Evet gözümden kaçmış.
Ayhan bey teşekkürler.

Ne demek Evren hocam,
Bazen kodlarda yoğunlaşılınca böyle ufak tefek gözden kaçmalar oluveriyor.

Kolay gelsin... k::

 

[Orion1]

Hatayı düzelttim.
2nci mesajdan indirebilirsiniz.

 

[Kemal Demir]

Evren Bey,

Güzel Olmuş.

Ayhan bey, dikkatiniz gayet iyi.

İyi hafta sonları.

 

[frksfu]

Sayın hocalarım hepinize ayrı ayrı teşekkür ederim Sağolun varolun şimdi bendekide çalıştı