That’s a broad topic which I’ve covered in many posts and web pages. I recommend searching the site for “scrollbar” or “scroll bar”.

I have seen your code for making a chart for filter data..

Now I want to use a scroll bar in this logic itself. can you guide me how to do that.

In each TextBox change event procedures you should call a separate sorting routine, and pass information about the textbox control to the routine.

Private Sub FilterList(iCtrl As Long, sText As String)
    Dim iRow As Long
    Dim sCrit As String

    'Add asterisks around text for all matches
    'UCase is used to make filter case-insensitive
    sCrit = "*" & UCase(sText) & "*"

    With Me.lbxCustomers
        'Start with a fresh list
        .List = vaCustNames
        'Loop through the list backward - always a good
        'idea when you're deleting stuff
        For iRow = .ListCount - 1 To 0 Step -1
            'Remove the line if it doesn't match
            'UCase used again here
            If Not UCase(.List(iRow, iCtrl)) Like sCrit Then
                .RemoveItem iRow
            End If
        Next iRow
    End With
End Sub

Here is what the event procedure would look like this:

Private Sub TextBox1_Change()
    FilterList 1, Me.TextBox1.Text
End Sub

Your textboxes should be labeled starting with 0 (not 1) so that the textbox numbering matches the column numbering in the listbox, which is 0-based.

Private Sub TextBox1_Change()

Dim i As Long
Dim sCrit As String

‘UCase is used to make filter case-insensitive
sCrit = “*” & UCase(Me.Controls(“TextBox1″ & j).Text) & “*”
With Me.ListBox1
filfin = Range(“A65536″).End(xlUp).Row
.List = Range(“A2:C” & filfin).Value
For i = .ListCount – 1 To 0 Step -1
If Not UCase(.List(i), j) Like sCrit Then
.RemoveItem i
End If
Next i
End With

End Sub

Wow, that was four years ago. I don’t remember writing that, nor do I remember which project I was even working on at the time.

You could adjust the code in the Daily Dose article so it compares a particular column of the listbox to the particular textbox. You would define sCrit something like this:

sCrit = "*" & UCase(Me.controls("tbxFind" & j).Text) & "*"

then you test the particular item:

If Not UCase(.List(i), j) Like sCrit Then

i have a big dude about a code in vba that you create, you wrote that you can filter a listbox with 6 columns and 6 textboxes please i was reading this for long time and i cant imagine how you can do that please if you can share the code i will really appreatiate it

thanks in advance

you write this post about this what i was taking

http://www.dicks-blog.com/archives/2005/02/16/limit-a-listbox/