comboboxta veri listeleme

[mecnun24_]

amatörce bir sipariş proğramı hazırlamaktayım.proğramın bir yerinde son kullanıcı comboboxa additem yoluyla eklenen firmalardan birini seçmesi gerekiyor. sorum işte bu safha ile ilgili.
kullanıcı combobaxa harf girdikçe comboboxun listesinin (listelediği veri satırı kadar ) açılmasını ve listede kullanıcının girdiği harfe göre süzülmüş verilerin listelenmesini istiyorum..
yani mesela kullanıcı b girdiğinde listede b ile başlayanlar be girdiğinde ilk iki harfi be olanlar gibi.. bunu yapmam mümkünmüdür acaba.. üstadlar yardımcı olursa sevinirim.. yardım edenlere şimdiden tşkrler.

 

[mecnun24_]

hiç değilse bir fikir verebilecek yada bir örnek gösterebilecek olan varmı arkadaşlar..

 

[fedeal]

bence ufak bir örnek dosya ekleyin. düşünün yardımcı olmak isteyen birileri var ve bu kişi bir dosya açıcak form oluşturup bir combobox ekleyecek sayfaya değişik harflerle başlayan isimler yazacak denemek için..... herkezin vakti müsait olmayabilir.Saygılar.

 

[mecnun24_]

tşkrler.haklısınız. örnek bi dosyayı ekledim.

 

[mecnun24_]

listboxa mı yönelmeliyim. ?

 

[fedeal]

Merhaba,
Bunu kodların en altına,

Sub LST()
ComboBox1.Clear
RRR = Worksheets("AnaSayfa").Range("A65536").End(3).Row
For K = 100 To RRR
If ComboBox1.Text = Left(Worksheets("AnaSayfa").Range("A" & K).Value, Len(ComboBox1)) Then
ComboBox1.AddItem Worksheets("AnaSayfa").Range("A" & K).Value
End If
Next
End Sub

bu initialize olayı,

Private Sub UserForm_Initialize()
ComboBox3.AddItem "0"
ComboBox3.AddItem "1"
ComboBox3.AddItem "8"
ComboBox3.AddItem "18"
ComboBox2.AddItem "TL"
ComboBox2.AddItem "$"
ComboBox2.AddItem "€"
Call LST
TextBox6.SetFocus
End Sub

buda combobox change olayı,

Private Sub ComboBox1_Change()
Call LST
End Sub

Deneyin istediğiniz bumu?

 

[mecnun24_]

ilginize teşekkürler. ben tam olarak anlatamadım. istediğim comboxa harf girdikçe listenin yeni baştan süzülmesi.

 

[fedeal]

ilginize teşekkürler. ben tam olarak anlatamadım. istediğim comboxa harf girdikçe listenin yeni baştan süzülmesi.

tam istediğinizi yapıyor ama harf girdikçe süzebilmesi için comboboxun matchentry ayarını 2 olarak ayarlamalısınız.sadece liste açılmıyor inceleyin.
(ufak bir problem vardı dosyayı düzeltip güncelledim)

 

[mecnun24_]

ellerinize sağlık. istediğim buydu. sağolun. yalnız listenin açılmayışı can sıkıcı. biraz araştırdım galiba olmuyor zaten.bu haliye son kullanıcı görmeyince değişikliği farketmeyecek. sizden ricam eğer vaktiniz varsa forma bir listbox eklesek biz comboboxa harf girdikçe (boş ise bütün listeyi alırsa çok sevinirim) kritere uyan verileri listboxta listelese. olabilirmi acaba. hem böylece kullanıcı için daha kolay olacaktır düşüncesindeyim. hemde ileride satır sayısını veriye göre ayarlama imkanımız olacaktır.. tekrar tekrar ilginize tşkrler. iyi günler.

 

[fedeal]

üsteki dosya(8.mesajdaki) istediğiniz gibi düzeltildi.

 

[mecnun24_]

ellerinize sağlık. çok güzel olmuş. çok tşkrler.

 

[mecnun24_]

siz burdayken bişey daha sorayım. bende m.temel korkmazın kitabı var. 1000 sayfa bi kitap. ancak derinlemesine bi kitap değil galiba. redim diye bi komut kullanmışsınız onu falan ilk defa görüyorum ben bütün kitabı okumama rağmen. tavsiye edebileceğiniz bi kitap varmı. yada e-kitap şeklinde bir döküman.sizinde takıldığınızda dönüp baktığınız bir kaynakça vardır herhalde. tşkrler

 

[fedeal]

Geçen yıl elit.net'ten 5 tane kitap aldım hepsinin faydasını gördüm ancak bu formu inceleyerek ve takip ederek daha çok şey öğreniyorum. Bahsettiğiniz listboxa veri alma yöntemini sayın Evren Gizlenden ögrendim mesala uzmanlarımızın mesajlarını takip edin (eski yanıtladıgı konularada bakın) faydalı olcagına eminim. Saygılar.

 

[mecnun24_]

saygı bizden. tşkrler.

 

[mecnun24_]

sayın fedeal.
yazmış olduğunuz kodları başka bir çalışmaya eklemeye çalıştım ama bir türlü beceremedim. yardımcı olabilirmisiniz.
ilave olarak listboxta a sütunundaki (kodu) değerini de ekleyebilirmiyim.
tşkrler.

 

[fedeal]

Kodlarda problem yok sadece,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Text = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

lisboxtan comboboxa veri almayı ilave edin birde daha önce söyledigim gibi,

ama harf girdikçe süzebilmesi için comboboxun matchentry ayarını 2 olarak ayarlamalısınız.[/QUOTE]

comboboxun matchentry ayarını properties penceresinden 2 olarak ayarlayın