What if i have 2 columns:

Column A is for Customer Codes
Column B is for Customer Names

Then, I want a Customer Search on Column B so that I may able to see its Customer Code (Column A) and the corresponding Customer Name (Column B).

Thanks for accomodating me.

Private Sub Textbox1_Change()

Dim i As Long
Dim sCrit As String

sCrit = “*” & UCase(Me.TextBox1.Text) & “*”

With Me.ListBox1
vaCustNames = Sheet1.Range(“A1:A10?).Value

.List = vaCustNames

For i = .ListCount – 1 To 0 Step -1
If Not UCase(.List(i)) Like sCrit Then
.RemoveItem i
End If
Next i
End With

End Sub

At some point, like in your initialize event, you have to

Change ‘Sheet1′ to match your situation.

Can you teach me how to do this in Excel.

Same example as in the above, assuming that the list range occupies the column A.

Hope you can help me about this.

Thanks.

.List = vaCustNames

I have a range from A1:A10 and name as “vaCustNames” but i doesn’t work.

thank you.

I cannot seem to get the above working…here is what I have so far:
Private Sub TextBox1_Change()
Dim i As Long
Dim sCrit As String

‘Add asterisks around text for all matches
‘UCase is used to make filter case-insensitive
sCrit = “*” & UCase(Me.TextBox1.Text) ‘& “*”
With Me.ListBox1
‘Start with a fresh list
.List = Application.Transpose(rcArray)
‘Loop through the list backward – always a good
‘idea when you’re deleting stuff
MsgBox .ListCount
For i = .ListCount – 1 To 0 Step -1
‘Remove the line if it doesn’t match
‘UCase used again here
If Not UCase(.List(i)) Like sCrit Then
.RemoveItem i
End If
Next i
End With

End Sub

Also, how would I get the value selected by cliking on the list box?

Thanks for any help,
Johnny

I am trying to use this code in an access 2003 application so I don’t have a workbook. I’m sorry for not being clear about that. I have an access form with a listbox with 9 colums (list0). I’ve modified the code to point to Me.list0 and modified the other variable names but debugging fails on this line:

.List = sbj_name

Does this make sense?

Thanks for your help!

Arnold.

Thanks for these posts. Very useful code. I’ve been trying to apply Dick’s code to limit the list in a 9 column list box with three different text fiels. I’m getting the same error “Method or Data member not found” when I try to debug the code. The error refers to the “.List =” part. Could anyone help me with this?

Sorry if this is a silly question.

Thanks!

Arnold.