If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
SEARCH BOX
First thank you in advance for any help. I want to put a search box on the
first sheet of my program to enter data, either a name or an assigned number, and have it search for and go to that line of information on another sheet. Can I do this or do you have another suggestion? |
#2
|
|||
|
|||
SEARCH BOX
This should do it. Change sheet name and column numbers to suit
Sub nameornumberfind() With Sheets("sheet34") mv = InputBox("Enter name or number") If IsNumeric(mv) Then 'MsgBox "number" mc = 4 Else 'MsgBox "text" mc = 1 End If Set mf = .Columns(mc).find(What:=mv, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False) If Not mf Is Nothing Then 'MsgBox "found at " & mf.Row Application.Goto .Cells(mf.Row, mc) End If End With End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "JOHN" wrote in message ... First thank you in advance for any help. I want to put a search box on the first sheet of my program to enter data, either a name or an assigned number, and have it search for and go to that line of information on another sheet. Can I do this or do you have another suggestion? |
Thread Tools | |
Display Modes | |
|
|