Locate In listbox

[sadath]

I have a listbox in a userform with column count is 2. The first column with employee no and second column with Name.
I have a textbox in the same userform.
when a start entering a text in textbox it should serch in listbox name field and locate the nearest match.
eg. in listbox i have in first row 242 Will Smith.
if I enter either Will or Smith in the text box it should locate in first row.

thanks
anyones help appreciated

 

[Andrew Poulsom]

Which takes precedence, first name or last name? For example you could have:

001 Douglas James
002 James Douglas

 

[sadath]

let it be first name..
I'm waiting for your post...

 

[Andrew Poulsom]

Try this:

Private Sub TextBox1_Change()
    Dim r As Long
    For r = 0 To ListBox1.ListCount - 1
        If Left(ListBox1.Column(1, r), Len(TextBox1.Text)) = TextBox1.Text Then
            ListBox1.SetFocus
            ListBox1.ListIndex = r
            TextBox1.SetFocus
            TextBox1.SelStart = Len(TextBox1.Text) + 1
            Exit For
        End If
    Next r
End Sub