I need a Search box at the top of each sheet in a work book to enter a job
number press enter a goto that number in a column (Job Number) since there
are several hundred in that column.(I do not want to go through the Excel
menu)
What code is necessary to do this? Should I insert a text box or something
else?

Thanks,
Bob

right click sheet tabview codeinsert this.
Now when you enter your number in cell c1 and touch the enter key you will
go down that column to the address of the number entered. Change C & 3 to
your column.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$C$1" Then Exit Sub
Columns(3).Find(Target).Select
End Sub

--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
I need a Search box at the top of each sheet in a work book to enter a job
number press enter a goto that number in a column (Job Number) since there
are several hundred in that column.(I do not want to go through the Excel
menu)
What code is necessary to do this? Should I insert a text box or something
else?

Thanks,
Bob

Don, below is what i am using line 3 - Columns(B).Find(Target).Select - does
not work. Why

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$4" Then Exit Sub
Columns(B).Find(Target).Select
End Sub

"Don Guillett" wrote:

right click sheet tabview codeinsert this.
Now when you enter your number in cell c1 and touch the enter key you will
go down that column to the address of the number entered. Change C & 3 to
your column.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$C$1" Then Exit Sub
Columns(3).Find(Target).Select
End Sub

--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
I need a Search box at the top of each sheet in a work book to enter a job
number press enter a goto that number in a column (Job Number) since there
are several hundred in that column.(I do not want to go through the Excel
menu)
What code is necessary to do this? Should I insert a text box or something
else?

Thanks,
Bob

columns("b") or columns(2)


--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
Don, below is what i am using line 3 - Columns(B).Find(Target).Select -
does
not work. Why

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$4" Then Exit Sub
Columns(B).Find(Target).Select
End Sub

"Don Guillett" wrote:

right click sheet tabview codeinsert this.
Now when you enter your number in cell c1 and touch the enter key you
will
go down that column to the address of the number entered. Change C & 3
to
your column.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$C$1" Then Exit Sub
Columns(3).Find(Target).Select
End Sub

--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
I need a Search box at the top of each sheet in a work book to enter a
job
number press enter a goto that number in a column (Job Number) since
there
are several hundred in that column.(I do not want to go through the
Excel
menu)
What code is necessary to do this? Should I insert a text box or
something
else?

Thanks,
Bob

The code stops on this line every time. Any suggestions?

"Don Guillett" wrote:

columns("b") or columns(2)


--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
Don, below is what i am using line 3 - Columns(B).Find(Target).Select -
does
not work. Why

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$4" Then Exit Sub
Columns(B).Find(Target).Select
End Sub

"Don Guillett" wrote:

right click sheet tabview codeinsert this.
Now when you enter your number in cell c1 and touch the enter key you
will
go down that column to the address of the number entered. Change C & 3
to
your column.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$C$1" Then Exit Sub
Columns(3).Find(Target).Select
End Sub

--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
I need a Search box at the top of each sheet in a work book to enter a
job
number press enter a goto that number in a column (Job Number) since
there
are several hundred in that column.(I do not want to go through the
Excel
menu)
What code is necessary to do this? Should I insert a text box or
something
else?

Thanks,
Bob

This will work if you followed instructions to place in the sheet module.
did you put in a regular module?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$1" Then Exit Sub
Columns(2).Find(Target).Select
End Sub


--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
The code stops on this line every time. Any suggestions?

"Don Guillett" wrote:

columns("b") or columns(2)


--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
Don, below is what i am using line 3 -
Columns(B).Find(Target).Select -
does
not work. Why

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$4" Then Exit Sub
Columns(B).Find(Target).Select
End Sub

"Don Guillett" wrote:

right click sheet tabview codeinsert this.
Now when you enter your number in cell c1 and touch the enter key you
will
go down that column to the address of the number entered. Change C &
3
to
your column.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$C$1" Then Exit Sub
Columns(3).Find(Target).Select
End Sub

--
Don Guillett
SalesAid Software

"Bob" wrote in message
...
I need a Search box at the top of each sheet in a work book to enter
a
job
number press enter a goto that number in a column (Job Number) since
there
are several hundred in that column.(I do not want to go through the
Excel
menu)
What code is necessary to do this? Should I insert a text box or
something
else?

Thanks,
Bob