Listbox içinde arama butonu

[sevcankonak]

Listbox içerisinde birbirini takip eden arama yaptırmak istiyorum.
yardımlarınızı bekliyorum daha detaylı olması için resime bakabilirsiniz.

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ile destekleyip detaylı açıklarmısınız.

 

[djoguzz]

Listbox içerisinde birbirini takip eden arama yaptırmak istiyorum.
yardımlarınızı bekliyorum daha detaylı olması için resime bakabilirsiniz.

textbox change olayına aşağıdaki kodu yazıp kendinize göre uyarlayınız.
büyük küçük harf farketmeksizin girdiğiniz harfe göre listbox içinde arama yapacaktır.

Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 3, 1 To 1)
If TextBox8.Text = "" Then
ListStokGiris.RowSource = "satis!k2:t" & [satis!k65536].End(3).Row
Exit Sub
End If
With Worksheets("satis")
ListStokGiris.RowSource = ""
    'Show all records of Database on Sheet1
    If .FilterMode Then .ShowAllData
    Set k = Sheets("satis").Range("k2:k65536").Find(TextBox8.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 3, 1 To a)
            For j = 1 To 3
                myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Sheets("satis").Range("k2:k65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListStokGiris.Column = myarr
    End If
End With