Combo'dan Listbox'a

[excellium]

Selam arkadaşlar

Combobox'ta 3000 kadar veri var
ben bu combo ya örneğin A yazdığımda listboxa A ile başlayan kayıtları listelemek istiyorum.

devam edip AN yazdığımda ise AN ile başlayanları göstersin

sonra ANKARA yazdığımda bu 3000 veri içerisindeki tüm ANKARA ile başlayan kayıtları göstersin

çok teşekkürler (dosya ekte...)

 

[Levent Menteşoğlu]

Bu işlem için textbox bence daha uygun, userformun üzerine bir textbox yerleştirin ve aşağıdaki kodu bu textboxa kopyalayın.

[vb:1:7dda5b6c94]ListBox1.Clear
For a = 1 To [a65536].End(3).Row
If Left(Cells(a, "a"), Len(ComboBox1)) = ComboBox1 Then ListBox1.AddItem Cells(a, "a")
Next
[/vb:1:7dda5b6c94]

 

[excellium]

levent bey,

bu kodu benim uygulamama uyarladım.

Textbox'a ne yazarsam yazayım, comboda görünenin aynısını listbox a ekliyor.
combo boş iken Textbox'a ne yazarsam yazayım bütün kayıtları ekliyor.

:?

sanırım küçük bir geliştirme gerekecek, teşekkürler

 

[excellium]

Bu işlem için textbox bence daha uygun, userformun üzerine bir textbox yerleştirin ve aşağıdaki kodu bu textboxa kopyalayın.

[vb:1:dffd23d8b6]ListBox1.Clear
For a = 1 To [a65536].End(3).Row
If Left(Cells(a, "a"), Len(ComboBox1)) = ComboBox1 Then ListBox1.AddItem Cells(a, "a")
Next
[/vb:1:dffd23d8b6]

COMBOBOX ların yerine textbox yazınca oldu; mantığını anlamak uzun süre aldı. Tamamını ben yapmışım gibi sevindim.
Hiç olmazsa yeni bişiler daha öğrendik :arkadas:
Çok teşekkürler..