VBA - Adding Search to Listbox based on Textbox value

I am having hard time figuring out filtering. I have long list and I want to add search to that list and wanted to give me list of closets option to select from but, struggling with the code.

*****************

Below is link to original post, i borrowed some ideas from:
http://www.excelforum.com/excel-prog...ml#post3796860

*****************

Link to file:
http://we.tl/1ZUqIOjrTk

thanks in advance for you help!
Nimesh

Tinbendr, this is awesome!
Yes i do want both cells to return, Code#(A) and category(b). Is it possible to copy both in single cell and add 'dash (-)' between the two?
For Example: 00 4100-Bid Form

Thank you again,
Nimesh

Originally Posted by Tinbendr

And is there a specific cell you want that returned to? Or maybe the next available cell in a column? Do you want to be able to select more than one?

To return to the activecell.

Please Login or Register  to view this content.

Tinbendr,
Yes, I do want it returned in the Avtivecell and I had that part working but, I like your code better. It gives me more control. Take a look at the full code below with your latest Activecell code.
This works great, thanks again.

-Nimesh

****************

Private Sub UserForm_Initialize()
'You could just hard code in in the properties,
'but I prefer to control it.
Me.ListBox1.RowSource = "CSI"
End Sub

Private Sub TextBox1_Change()
Dim WS As Worksheet
Dim LastRow As Long
Dim A As Long
Dim C As Range, Firstaddress As String

If Len(Me.TextBox1) = 0 Then
Me.ListBox1.RowSource = "csi"
Else
Me.ListBox1.RowSource = ""

Set WS = Worksheets("Sheet1")

With WS
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("a1:B" & LastRow)
Set C = .Find(Me.TextBox1, LookIn:=xlValues, lookat:=xlPart)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
Me.ListBox1.AddItem WS.Range("A" & C.Row)
Me.ListBox1.Column(1, Me.ListBox1.ListCount - 1) = WS.Range("B" & C.Row)
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
End With
End If
End Sub

Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ListBox1.Value & "-" & _
Me.ListBox1.Column(1, Me.ListBox1.ListIndex)
'ActiveCell.Value = ListBox1.Value
'Unload the userform
Unload Me
End Sub

******************************