search or goto command needed.

[mightymax]

I have a form with 20 field the user can fill in. The first field is
numeric which is used as a "ticket ID". The fields all ente
information into an Excel spreadsheet.

The situation is I need to have a search or goto button where ther use
can input there number into a text box and all the information relate
to this number is displayed.

btnSearch
txtSearch

The goal here is to provide a check out and check in system. Bu
without the search function my users have to click the next button t
get to their number. Which is taking way to long.

Help

 

[Tom Ogilvy]

set rng = worksheets("Data").Columns(1).Cells
set rng1 = rng.find(Userform1.txtSearch.Text)
if not rng1 is nothing then
Userform2.Textbox2.Text = rng1.offset(0,1)
Userform3.Textbox3.Text = rng1.Offset(0,2)
End Sub