I am using a userform with a textbox to look up certain surnames and give me
the people with it, I have asked before about this but the problem I am
having it is only i type the name smith in the box and it comes up with the
first smith in the line. How do I get it to move on until I get the one I
want? I have seen in some programs you type "smith, a " and it comes up
with Alice Smith or something similar.
Here is the code I have been using and have been given extra, can someone
give me advise on how to set it up.
Private Sub TextBox7_AfterUpdate()
Sheets("PRODUCTS").Select
Dim ans
On Error Resume Next
ans = Application.Match(CLng(TextBox7.Text), Range("A:A"), 0)
If Not IsError(ans) Then
TextBox8.Text = Application.Index(Range("B:B"), ans)
TextBox9.Text = Application.Index(Range("C:C"), ans)
Else
MsgBox "Invalid code"
End If
On Error GoTo 0
End Sub
Private Sub TextBox1_AfterUpdate()
Static ans As Long
Dim col As Long
ans = ans + 1
With Sheets("customer")
For col = 1 To 0
Controls("TextBox" & col) = .Cells(ans, col).Value
Next
End With
End Sub
If anyone can help me understand it a little better it would be great.
Thanks in advance
Greg
Bookmarks