| Home |
| Search |
| Today's Posts |
|
#1
|
|||
|
|||
Multiple Worksheets in a workbook
Any easy way to search for a specific sheet?
i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
|
#2
|
|||
|
|||
|
Here is one I use to goto the sheet from a printed name in a cell. Right
click sheet tabinsert thissave. Double click on the cell with the name in it. ie: mysheet1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.DisplayAlerts = False Dim WantedSheet As String WantedSheet = Trim(ActiveCell.Value) If WantedSheet = "" Then Exit Sub On Error Resume Next If Sheets(ActiveCell.Value) Is Nothing Then ' GetWorkbook ' calls another macro to do that Else Sheets(ActiveCell.Value).Select ActiveSheet.Range("a4").Select End If Application.DisplayAlerts = True End Sub -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Any easy way to search for a specific sheet? i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
|
#3
|
|||
|
|||
|
Don thank you for your prompt response!
It's a shame that I don't follow it!! Sheet tab - which one? Do I enter your macro as "MS 4.0 Marco or 5.0 dialogue"? Sorry if I'm being dense.... "Don Guillett" wrote: Here is one I use to goto the sheet from a printed name in a cell. Right click sheet tabinsert thissave. Double click on the cell with the name in it. ie: mysheet1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.DisplayAlerts = False Dim WantedSheet As String WantedSheet = Trim(ActiveCell.Value) If WantedSheet = "" Then Exit Sub On Error Resume Next If Sheets(ActiveCell.Value) Is Nothing Then ' GetWorkbook ' calls another macro to do that Else Sheets(ActiveCell.Value).Select ActiveSheet.Range("a4").Select End If Application.DisplayAlerts = True End Sub -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Any easy way to search for a specific sheet? i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
|
#5
|
|||
|
|||
|
Excel 2002.
I can use Excel 2000 if that helps "Don Guillett" wrote: What version of excel are you using? -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Don thank you for your prompt response! It's a shame that I don't follow it!! Sheet tab - which one? Do I enter your macro as "MS 4.0 Marco or 5.0 dialogue"? Sorry if I'm being dense.... "Don Guillett" wrote: Here is one I use to goto the sheet from a printed name in a cell. Right click sheet tabinsert thissave. Double click on the cell with the name in it. ie: mysheet1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.DisplayAlerts = False Dim WantedSheet As String WantedSheet = Trim(ActiveCell.Value) If WantedSheet = "" Then Exit Sub On Error Resume Next If Sheets(ActiveCell.Value) Is Nothing Then ' GetWorkbook ' calls another macro to do that Else Sheets(ActiveCell.Value).Select ActiveSheet.Range("a4").Select End If Application.DisplayAlerts = True End Sub -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Any easy way to search for a specific sheet? i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
|
#6
|
|||
|
|||
|
I am also using 2002. Just follow my instructions to right click the sheet
tab of the sheet where the worksheet names are typedcopy/paste the codesave your workbook. Now when you double click on the cell where the desired sheet is typed you will be taken there... -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Excel 2002. I can use Excel 2000 if that helps "Don Guillett" wrote: What version of excel are you using? -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Don thank you for your prompt response! It's a shame that I don't follow it!! Sheet tab - which one? Do I enter your macro as "MS 4.0 Marco or 5.0 dialogue"? Sorry if I'm being dense.... "Don Guillett" wrote: Here is one I use to goto the sheet from a printed name in a cell. Right click sheet tabinsert thissave. Double click on the cell with the name in it. ie: mysheet1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.DisplayAlerts = False Dim WantedSheet As String WantedSheet = Trim(ActiveCell.Value) If WantedSheet = "" Then Exit Sub On Error Resume Next If Sheets(ActiveCell.Value) Is Nothing Then ' GetWorkbook ' calls another macro to do that Else Sheets(ActiveCell.Value).Select ActiveSheet.Range("a4").Select End If Application.DisplayAlerts = True End Sub -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Any easy way to search for a specific sheet? i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
|
#7
|
|||
|
|||
|
Don, have now plugged my brain in..it works brill!
Thanks "Don Guillett" wrote: I am also using 2002. Just follow my instructions to right click the sheet tab of the sheet where the worksheet names are typedcopy/paste the codesave your workbook. Now when you double click on the cell where the desired sheet is typed you will be taken there... -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Excel 2002. I can use Excel 2000 if that helps "Don Guillett" wrote: What version of excel are you using? -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Don thank you for your prompt response! It's a shame that I don't follow it!! Sheet tab - which one? Do I enter your macro as "MS 4.0 Marco or 5.0 dialogue"? Sorry if I'm being dense.... "Don Guillett" wrote: Here is one I use to goto the sheet from a printed name in a cell. Right click sheet tabinsert thissave. Double click on the cell with the name in it. ie: mysheet1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.DisplayAlerts = False Dim WantedSheet As String WantedSheet = Trim(ActiveCell.Value) If WantedSheet = "" Then Exit Sub On Error Resume Next If Sheets(ActiveCell.Value) Is Nothing Then ' GetWorkbook ' calls another macro to do that Else Sheets(ActiveCell.Value).Select ActiveSheet.Range("a4").Select End If Application.DisplayAlerts = True End Sub -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Any easy way to search for a specific sheet? i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
|
#8
|
|||
|
|||
|
glad to help
-- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Don, have now plugged my brain in..it works brill! Thanks "Don Guillett" wrote: I am also using 2002. Just follow my instructions to right click the sheet tab of the sheet where the worksheet names are typedcopy/paste the codesave your workbook. Now when you double click on the cell where the desired sheet is typed you will be taken there... -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Excel 2002. I can use Excel 2000 if that helps "Don Guillett" wrote: What version of excel are you using? -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Don thank you for your prompt response! It's a shame that I don't follow it!! Sheet tab - which one? Do I enter your macro as "MS 4.0 Marco or 5.0 dialogue"? Sorry if I'm being dense.... "Don Guillett" wrote: Here is one I use to goto the sheet from a printed name in a cell. Right click sheet tabinsert thissave. Double click on the cell with the name in it. ie: mysheet1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.DisplayAlerts = False Dim WantedSheet As String WantedSheet = Trim(ActiveCell.Value) If WantedSheet = "" Then Exit Sub On Error Resume Next If Sheets(ActiveCell.Value) Is Nothing Then ' GetWorkbook ' calls another macro to do that Else Sheets(ActiveCell.Value).Select ActiveSheet.Range("a4").Select End If Application.DisplayAlerts = True End Sub -- Don Guillett SalesAid Software "Bill Healy" wrote in message ... Any easy way to search for a specific sheet? i.e. Like CTRL F, however I'm looking to find a specific worksheet rather than scroll across until I find it. Issue it that I have 80-90 worksheets (names like "John Smith, Fred Jones" instead of "Sheet 1,2, etc) |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Print all charts in a workbook (multiple worksheets) | Charts and Charting in Excel | |||
| Count the number of worksheets in a workbook | Excel Discussion (Misc queries) | |||
| How to print multiple worksheets in one workbook on the same page. | Excel Discussion (Misc queries) | |||
| "countif" from multiple worksheets within workbook | Excel Discussion (Misc queries) | |||
| Removing links to other worksheets from within a workbook | Excel Discussion (Misc queries) | |||
Linear Mode
