Listbox dan süz için yrdm lütfen

[aurora]

Merhaba arkadaşlar,

Bu ilk mesajım umarım yardımcı olabilirsiniz.

Ekteki dosyayı forumdaki örneklerden esinlenerek yapmaya çalıştım.

Listbox taki verilerden textbox ile bir süzme yapmak istiyorum fakat bir türlü beceremedim.

Yardımlarınızı bekliyorum

 

[irfancantr]

http://www.excel.web.tr/search.php?searchid=1247499

Buradaki mesajlara bir göz atınız.. Acil çıkmam gerektiğinden bakamadım kusura bakmayınız.

 

[aurora]

Teşekkürler baktım, hala da denemeye devam ediyorum ..
Bir yere kadar geliyorum ama son noktada hep hata veriyor.

 

[Orion1]

Yeterli açıklamayı yapmamışsınız.Ne yapmak istediğinizi anlamadım.Ankladığım sadece listboxa verileri alamak.Ama hangi sütundaki veriler.Sorgulama nasıl.Bunlar belirsizdi.Sanırım bu yüzdenede cevap alamamışsınız.Ben kararlama bir şey yaptım.Tahmine göre yani.
Textbox105 e veri girdiğinizde başlar şeklinde B sütununu sorgulayıp B:I aralığını listeliyor.
Dosya ektedir.

Private Sub TextBox105_Change()
Dim k  As Range, adr As String, x As Long, sat As Long
ListBox1.RowSource = vbNullString
With Sheets("liste")
    sat = .Cells(65536, "B").End(xlUp).Row
    Set k = .Range("B2:B" & sat).Find(TextBox105.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            ListBox1.AddItem
            ListBox1.List(x, 0) = .Cells(k.Row, "B").Value
            ListBox1.List(x, 1) = .Cells(k.Row, "C").Value
            ListBox1.List(x, 2) = .Cells(k.Row, "D").Value
            ListBox1.List(x, 3) = .Cells(k.Row, "E").Value
            ListBox1.List(x, 4) = .Cells(k.Row, "F").Value
            ListBox1.List(x, 5) = .Cells(k.Row, "G").Value
            ListBox1.List(x, 6) = .Cells(k.Row, "H").Value
            ListBox1.List(x, 7) = Cells(k.Row, "I").Value
            x = x + 1
            Set k = .Range("B2:B" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End With
End Sub

 

[aurora]

Teşekkürler,
Bir yere kadar olmuş.Ama şimdi de süzülen veriye çift tıklandığında hata veriyor. Benim istediğim süzme işlemini yaptığım zaman listbox da ki süzülen veri üzerine çift tıklandığına üstte bulunan hücrelerin dolması.
Kaydettiğim verilere çabul bir şekilde ulaşmak amacım, tavsiye eeceğiniz başka bir yöntem de olabilir..
Bilmem derdimi anlatabildim mi??

 

[Orion1]

Teşekkürler,
Bir yere kadar olmuş.Ama şimdi de süzülen veriye çift tıklandığında hata veriyor. Benim istediğim süzme işlemini yaptığım zaman listbox da ki süzülen veri üzerine çift tıklandığına üstte bulunan hücrelerin dolması.
Kaydettiğim verilere çabul bir şekilde ulaşmak amacım, tavsiye eeceğiniz başka bir yöntem de olabilir..
Bilmem derdimi anlatabildim mi??

Onu yapacamda 104 tane textbox üzerine döngü kurmuşsunuz.Buda demektir ki listboxta 104 kolon olacak.Hata oradan kaynaklanıyor.Siz hangi sütun aralığını listboxta listelemek istiyorsunuz,baştan onu bir söyleyin.Ona göre hareket edelim.