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) |