listbox da veri listeleme

[fatih70]

Lütfen yardım
TextBox1 deki veriyi data1 sayfamın p23000 arasında arayarak bulduğu değerleri ListBox1 de sıralasın istiyorum.Nasıl yapabilirim...

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir commandbuttona yazarak deneyin. P sütununda aranan veri bulununca hangi sütundaki karşılığının listboxa yükleneneceğini belirtmemişsiniz. Ben "q" sütunu kabul ettim.

[vb:1:afb51ae317]for a=2 to 3000
if sheets("data1").cells(a,"p")=textbox1 then listbox1.additem sheets("data1").cells(a,"q")
next[/vb:1:afb51ae317]

 

[fatih70]

ÇOK ÇOK ÇOK TŞK