Combobox içeriğini başka sayfaya aktarma

[s.savas]

Merhaba arkadaşlar.
Daha önce açtığım konular kaynadığı için tekrar yazmak zorunda kaldım.
Üç adet comboboxum var.
Sayfa1 den A B C sütunlarından verileri alıyorlar.
1. Combo İller
2. Combo İlçeler
3. Combo Köyler.
Adana>Seyhan>Köyler listeleniyor.
Combo3 te listelenen köyleri Sayfa2 B2 Hücresinden başlayarak alt alta yazılmasını istiyorum.

 

[cems]

http://www.excel.web.tr/f50/turkiye-il-ilce-mah-koy-listesi-t54282/sayfa2.html

İstediğiniz net anlaşılmıyor , zira comboboxlar o veriyi zaten bir sayfadan alıyor. İstediğiniz bundan sonraki bir adım mı ya da köylerin listesi mi ?

Konular kaynamaz , örnekle desteklenmediğinde anlaşılmayabilir. www.dosya.tc gibi bir servera istediğiniz işleme uygun hazırladığınız bir örnek yüklerseniz daha sık ve kolay cevap gelebilir.

 

[s.savas]

Açtığım konulardan birisi burada üstat.
Konuda örnek dosyada mevcut. Mobilden yazdığım için tekrar dosya ekleme imkanım yok.
İlgilenirseniz memnun olurum.
http://www.excel.web.tr/f48/combobox-icerioini-sayfaya-yazdyrma-t168648.html#post920219
Örnek dosyanın linki.
http://dosya.co/b5nvqgjbff94/İZLEME_DEĞERLENDİRME_TAKİP_DOSYASI.xls.html

 

[s.savas]

Combo1 e illeri alıyorum ve herhangi bir ili seçiyorum.
2. Comboya seçilen ilin ilçeleri geliyor, her hangi bir ilçeyi seçiyorum. 3.Comboda seçilen ilçenin köyleri listeleniyor.
İstediğim kod, combo3 te listelenen köyleri sayfa2 de b5 ten itibaren alt alta yazılması.

 

[PLİNT]

Merhaba
"Combobox2" kodlarının "Combobox3" e köyleri ekleyen bölümünün sonuna eklerseniz hemde "sayfa2" ye ekler

sheets("Sayfa2").Range("B5:B1000")=empty
a = ComboBox3.ListCount
sheets("Sayfa2").Range("B5:B" & a + 4) = ComboBox3.List

 

[s.savas]

Merhaba
"Combobox2" kodlarının "Combobox3" e köyleri ekleyen bölümünün sonuna eklerseniz hemde "sayfa2" ye ekler

sheets("Sayfa2").Range("B5:B1000")=empty
a = ComboBox3.ListCount
sheets("Sayfa2").Range("B5:B" & a + 4) = ComboBox3.List

Çok teşekkürler, çok makbule geçti.