textboxa rowsource özelliği eklemek mümkünmü?

[Selçuk1]

iyi akşamlar değerli üstadlarım,

açılan userformda bulunan textbox'a rowsource özelliği eklemek mümkün mü acaba? yani textboxta veri girişine başladığımda a1:a10 arasındaki verilere göre otomatik tamamlama yapmasını istiyorum. aynen excelin standart özelliğinde olduğu gibi. ancak ilk harften itibaren tamamlama yapacak. yani "A" harfine bastığımda otomatik olarak "ADIYAMAN" gelecek, ikince harf olarak "N" basarsam "ANKARA" gelecek, üçüncü harf olarak "T" basarsam tamamlanan isim ANTALYA olarak değişecek. yani tamamlama işlemi için ANT yazılmasını beklemesin istiyorum. bunu nasıl yapabilirim. örnek dosyam ektedir.

şimdiden teşekkürler..

saygılar..

 

[Seyit Tiken]

Bu tür işlemler için Combo daha elverişlidir. Onu kullanmayı deneyin.

 

[Levent Menteşoğlu]

Bu tür işlemler için Combo daha elverişlidir. Onu kullanmayı deneyin.

Seyit beye ilave olarak comboboxın properties penceresindeki ShowDropButtonWhen özelliğini fmShowDropButtonWhenNever olarak ayarlarsanız butonuda gizleyebilirsiniz.

 

[Selçuk1]

Sn. Seyit Bey,

cevabınız için teşekkür ediyorum. dediğiniz işlemi comboboxlarla yapabiliyorum ancak özellikle textboxla nasıl yapıldığını merak etmiştim.

neyse, dediğiniz gibi comboboxlarla yaptım.

ancak yeni bir soru takıldı kafama, combobox1 de ilçeyi seçince, combobox2 ye ilin otomatik olarak gelmesini nasıl sağlayabiliriz?? yani ben combobox1 e BANDIRMA yazınca, combobox2 ye BALIKESİR yazsın. il-ilçe listesini dosyaya ekledim. değerli yardımlarınızı bekliyorum.

saygılar..

 

[Selçuk1]

sn. leventm,

bu harika bilgi için teşekkürler. böyle bir şeyi bir dosyada görmüştüm. sanırım benim textbox sandığım nesne combobox imiş. ilk sorunu böylece çözmüş olduk. sıra ikinci sorunda. :roll::roll::roll:

saygılar...

 

[Levent Menteşoğlu]

Combobox1 e aşağıdaki kodu yazın.

Private Sub ComboBox1_Change()
ComboBox2 = Cells(ComboBox1.ListIndex + 1, "a")
End Sub

 

[Selçuk1]

sn. levent bey,

çok çok teşekkür ederim. istediğim buydu. bilginiz daim olsun, iyi geceler...

saygılar..