|
Search Goto Feature
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 |
Search Goto Feature
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 |
Search Goto Feature
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 |
Search Goto Feature
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 |
Search Goto Feature
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 |
Search Goto Feature
Don thanks for your help it works great! What can be added so that when the
number entered is not found it would return to the cell and a message would say "Not Found" so a new number could be entered again? "Don Guillett" wrote: 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 |
Search Goto Feature
Surely you tried it and found that if you enter a number that is not there
nothing happens. -- Don Guillett SalesAid Software "Bob" wrote in message ... Don thanks for your help it works great! What can be added so that when the number entered is not found it would return to the cell and a message would say "Not Found" so a new number could be entered again? "Don Guillett" wrote: 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 |
Search Goto Feature
I have tried it many times if the number is found it works and will go to
that cell, if the number is not found i get the following error: Run-time error "91" Object variable or with block variable not set and the code stops on: Columns(2).Find(Target).Select "Don Guillett" wrote: Surely you tried it and found that if you enter a number that is not there nothing happens. -- Don Guillett SalesAid Software "Bob" wrote in message ... Don thanks for your help it works great! What can be added so that when the number entered is not found it would return to the cell and a message would say "Not Found" so a new number could be entered again? "Don Guillett" wrote: 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 |
Search Goto Feature
Send your workbook to my private email below and I will take a look later
today. You must copy this and use the same subject line so I will know what to do. You would be surprised to know that some send a workbook with NO explanation. -- Don Guillett SalesAid Software "Bob" wrote in message ... I have tried it many times if the number is found it works and will go to that cell, if the number is not found i get the following error: Run-time error "91" Object variable or with block variable not set and the code stops on: Columns(2).Find(Target).Select "Don Guillett" wrote: Surely you tried it and found that if you enter a number that is not there nothing happens. -- Don Guillett SalesAid Software "Bob" wrote in message ... Don thanks for your help it works great! What can be added so that when the number entered is not found it would return to the cell and a message would say "Not Found" so a new number could be entered again? "Don Guillett" wrote: 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 |
| All times are GMT +1. The time now is 10:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com