search or goto command needed.
 

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

--
Message posted from http://www.ExcelForum.com

search or goto command needed.
 

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

--
Regards,
Tom Ogilvy


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

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

btnSearch
txtSearch

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

Help!


---
Message posted from http://www.ExcelForum.com/