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/

Thanks. I was too busy/lazy to work out the defined names, but your approach looks good.

Incidentally, the person who asked me about this figured out the problem using defined names while I was writing this post.

Anyway, here is a list of the formula names I created:

‘This is the total list range (less header row)
ListRange=OFFSET(Sheet1!$A$1,1,0,COUNTA(Sheet1!$A:$A)-1,2)

‘This is the position of the Total row in ListRange
TotalPos=MATCH(“Total Other Items”,OFFSET(ListRange,0,0,,1),0)

‘This is first category range (before TotalPos)
CatRange1=OFFSET(ListRange,0,0,TotalPos-1,1)

‘This is the second category range (after TotalPos)
CatRange2=OFFSET(ListRange,TotalPos,0,ROWS(ListRange)-ROWS(CatRange1)-1,1)

‘This is the union of CatRange1 & CatRange2
CatRange=CatRange1,CatRange2

‘This is first value range (before TotalPos)
ValRange1=OFFSET(ListRange,0,1,TotalPos-1,1)

‘This is the second value range (after TotalPos)
ValRange2=OFFSET(ListRange,TotalPos,1,ROWS(ListRange)-ROWS(CatRange1)-1,1)

‘This is the union of ValRange1 & ValRange2
ValRange=ValRange1,ValRange2

‘This is the series formula
=SERIES(,Sheet1!CatRange,Sheet1!ValRange,1)

‘This is formula used in the Total row (column 2)
=SUM(ValRange2)

It also seems harder to build a dynamic range in Excel 2007 than in previous versions. You have to be careful what names you use for the ranges: if the name starts with the word “chart” you cannot manipulate the series formula. But some of this difficulty is using the new dialogs.

I created a formula based version of this example. It works perfectly in Excel 2003 but not in Excel 2007.

On one machine where I have Excel 2007 exclusively, the category labels don’t show up at all in the chart when I have a discontinuous category range name in the series formula (however, with a static discontinuous range reference, the labels show up fine). If I add another item at the bottom of the list, the value shows up in the chart (sans label).

On another machine, I have both Excel 2003 and Excel 2007 installed. I opened the file I created in the Excel 2007 only machine, and the category labels appear in the chart. However, any new item entered in the list isn’t added to the chart. Sigh!