listbox içinde arama yapmak

[ali_gokmen4152]

textbox veya comboboxa yazılan değeri listboxun içinde nasıl arayabiliriz...
yardımcı olursanız çok müteşekkir olurum..

 

[CILEKESH]

textbox veya comboboxa yazılan değeri listboxun içinde nasıl arayabiliriz...
yardımcı olursanız çok müteşekkir olurum..

Aşağıdaki kodu kendinize göre uyarlayarak Text yada Combo nun Change olayına yazınız.

Private Sub ComboBox4_Change() 'Makbuzları süzmek için
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 7, 1 To 1)
With Worksheets("Gelirler")
    Me.ListBox2.RowSource = vbNullString
    If .FilterMode Then .ShowAllData
    Set k = .Range("c5:c65536").Find(ComboBox4.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 7, 1 To a)
            For j = 1 To 7
                myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = .Range("c5:c65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListBox2.Column = myarr
    End If
End With
End Sub

 

[Dursun2173]

hata verdi textboxa yazdım ama , teşekkürler.