Listboxda sütun sorunu??

[udentr2002]

merhaba arkadaşlar benim listboxumda 24 stünum var formum açıldığında 24 stünuda gösteriyor yanlız textbox ile listboxdan süzme yapıyorum (for each ) döngüsü ile textboxdan girilen veriyi süzünce listboxdaki stün sayısı 10 a iniyor yani listboxdaki tüm stünları göstermiyor bunun sebebi ne olabilir Listboxun veri aldığı sayfadaki hücreler arasında boşlukl olan hücreler var sebebi boşluk olan hücreler olabilirmi eğer sebebp hücrelerdeki boşluklardansa bunu boşluklarda dahil süzme yapınca listyboxda o boşluklarıda gösterebilme imkanımız varmı yoksa listboxdaki stün sayısımı çok fazla geliyor

 

[udentr2002]

örnek dosya ekdedir

örnek dosyayı incelerseniz belki ne demek istediğimi daha net anlayabileceksiniz formu açıp textboxdan arama yapın listboxdaki stünların hepsini göstermeyecektir. İlgilenen arkadaşlarıma teşekkür ederim

 

[Levent Menteşoğlu]

Listboxa verileri additem yöntemi ile yüklüyorsanız en fazla 10 sütuna kadar işlem yapabilirsiniz. Daha fazlası için rowsource yöntemini kullanmanız gerekir. Bu durumda çözüm, süzülen verileri bir başka sayfaya alt alta aktarıp buradan listboxa almaktır.

 

[udentr2002]

hocam

listboxa verileri additem yöntemi ile almıyorum formun initialize bölümüne yazdığım kod şu
ListBox1.RowSource = "Sayfa1!a3:e" & Sheets("Sayfa1").Range("a65536").End(3).Row
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
rowsource ile yazıyorum n bunu nasıl düzeltebilirim hocamm

 

[udentr2002]

???

formun initialize bölümüne listboxun rowsource özelliğini kullanarak veri aldırıyorum ancak textboxun change olayında ekli dosyadaki forumda kodları incelerseniz orda arama için for each döngüsünde ise listbox1.additem kodu ile ekleme yapmaya çalışıyorum dediğiniz gibi bu defada listboxda 10 stündan fazlasını göstermiyor textboxun change olayındaki listbox1.additem kodu yerine listbox1.rowsource özeeliğini kullanıncada arama yapmak için textboxa veri girdiğimde aramayı yapmıyor tüm sayfayı olduğu gibi listboxda gösteriyor nasıl düzeltebilirim bu kodu???

 

[Levent Menteşoğlu]

.............. Bu durumda çözüm, süzülen verileri bir başka sayfaya alt alta aktarıp buradan listboxa almaktır.

Yukarıda çözümü vermiştim.

 

[udentr2002]

hocam

Gösterdiğiniz ilgi için teşekkürler ama eğer kastettiğiniz ekli dosyadaki gibi bir şeyse denedim ama olmadı yani veriler lstbox1 e geliyor bende textbox1'e aradığım veriyi yazıyorum süzüleni sayfa2 ye aktarıyorum ama bu defa o 10. stündan sonra göstermediği stünları sayfa2 de YOK YOk ..... şeklinde yazıyor benmi anlmadım hocam daha detaylı anlatmanız yada dozya üzerinden göstermeniz mümkünmü acaba??

 

[Levent Menteşoğlu]

Textboxa aşağıdaki kodu yazarak deneyin.

Private Sub TextBox1_Change()
On Error Resume Next
Dim isim As Range
Set s1 = Sheets("sayfa2")
s1.[a2:t65536].ClearContents
ListBox1.RowSource = Empty
For Each isim In Sheets("Sayfa1").Range("a3:a" & Sheets("Sayfa1").Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
sat = WorksheetFunction.CountA([sayfa2!a:a]) + 1
s1.Range("a" & sat & ":t" & sat) = Range("a" & isim.Row & ":t" & isim.Row).Value
End If
Next
ListBox1.RowSource = "sayfa2!a2:t" & s1.[a65536].End(3).Row
End Sub

 

[udentr2002]

hocam

çok teşekkür ederim elinize sağlık

 

[udentr2002]

hocam

Aynı konu içerisinde clear contents ile değilde ikinci bir süzme yaptığımda ilk süzülen verilrin altına ikinci süzdüğüm verileri aldırmak için ne yapmalıyım kodu nasıl düzeltmeliyim?

 

[udentr2002]

hocam ??

textboxa veriyi yazmaya başlayınca kaç defa bir harfe basarsam o kadar süzüyor kodda bir hata var sanırım ben çözemedim tekrar bakabilrmisinz? rica etsem

 

[Levent Menteşoğlu]

Bence bu kodları bir butona yazın.

 

[udentr2002]

tamam hocam butona yazınca oldu
çok teşekkür ederim