Comments on: Tab Groups

By: HMiller

HMiller — Sun, 13 Mar 2011 21:09:00 +0000

Hi, I’m a non-coder and I need what I would call tabs and sub-tabs in Excel. So the top level, or Master tabs, would be labeled A-C, D-F, etc. Then I need sub-tabs under each, with client names: Allen, Jane, Adams, Mari, Brown, Sue, etc. Each of those tabs (per client) will contain hundreds of rows for individual transactions. When my employees need to add something (or deduct) from a client’s account, they need to be able to click on, for instance, the M-N tab and see only the last names that start with those 2 letters. I can’t have a single speradsheet with 500 or more tabs (one for each client). Any help for a rookie? I found a post with some code to insert, but all tabs except the Masters were hidden – I couldn’t see the other tabs at all. Thanks for any help you can provide!

By: Adam V

Adam V — Fri, 16 May 2008 22:36:00 +0000

I made the following, which is messy because I'm super new at this. Basically it lists and sorts all the tabs in a spreadsheet in ascending or descending order then creates hyperlinks to each on an index page, as well as using the A1 cell in each spreadsheet to link back to the index page. Let me know how terrible it is for a more or less first-timer!

Sub SheetSorter()
'
' SheetSorter Macro
' Macro recorded 5/14/2008 by Adam Valine
'
' Keyboard Shortcut: Ctrl+Shift+S
'

'Declare variables
Dim msgResponse As Integer
Dim intSheetCount As Integer
Dim intRollThrough As Integer
Dim intRowCount As Integer
Dim msgSortOrder As Integer
Dim intSheetOrder As Integer
Dim intSheetName As String
Dim strLinkAddress As String

'Determine if macro has been run
'If NO then create the sheet and run the sort
If Sheets(1).Name "111 Sort Sheet" Then
Sheets.Add
ActiveSheet.Name = "111 Sort Sheet"
Sheets("111 Sort Sheet").Move before:=Sheets(1)

intSheetCount = ActiveWorkbook.Sheets.Count
intRollThrough = 1

'Display the worksheet names
For intRollThrough = 1 To intSheetCount

ActiveSheet.Hyperlinks.Add Anchor:=Range("A1").Offset(intRollThrough - 1, 0), Address:="", SubAddress:="'" & Sheets(intRollThrough).Name & "'!A1", TextToDisplay:=Sheets(intRollThrough).Name

Next intRollThrough

'Define intRowCount variable
intRowCount = Application.WorksheetFunction.CountA(Range("A1:A65536"))

'Define msgSortOrder variable
msgSortOrder = MsgBox("Select 'Yes' to run Ascending Sort, or 'No' to run Descending Sort", vbYesNo)

'Determine sort order of sheets
Range(Range("A1"), Range("A1").Offset(intRowCount - 1, 0)).Select
'If YES then Ascending order
If msgSortOrder = vbYes Then
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else
'If NO then Descending order
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If

'Create and downfill anchor numbers, which will be used to sort the sheets
Columns("A:A").Select
Selection.Insert shift:=xlToRight
Range("A1").Formula = "1"
Range("A2").Formula = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range(Range("A1"), Range("A1").Offset(intRowCount - 1, 0)), Type:=xlFillDefault
Range("A1").Select

'Define intSheetOrder variable
intSheetOrder = 1

'Define intSheetName variable

For intSheetOrder = 1 To intSheetCount

intSheetName = Range("B1").Offset(intSheetOrder - 1, 0)
Sheets(intSheetName).Move before:=Sheets(intSheetOrder)
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:="'" & Sheets("111 Sort Sheet").Name & "'!A1", TextToDisplay:=Sheets("111 Sort Sheet").Name
Sheets("111 Sort Sheet").Select

Next intSheetOrder

Sheets("111 Sort Sheet").Move before:=Sheets(1)
Columns("A:A").Select
Selection.Delete shift:=xlToLeft
Range("A1").Select

Else
'If YES then ask the user if they want to re-run the macro
msgResponse = MsgBox("The worksheets are already sorted." & Chr(13) & Chr(13) & "Would you like to delete the sort sheet and sort again?", vbYesNo)
'If YES user chooses to re-run, delete the sort sheet and re-run the sort from scratch
If msgResponse = vbYes Then
Sheets("111 Sort Sheet").Delete
Sheets.Add
ActiveSheet.Name = "111 Sort Sheet"
Sheets("111 Sort Sheet").Move before:=Sheets(1)

intSheetCount = ActiveWorkbook.Sheets.Count
intRollThrough = 1

'Display the worksheet names
For intRollThrough = 1 To intSheetCount

Range("A1").Offset(intRollThrough - 1, 0) = Sheets(intRollThrough).Name
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1").Offset(intRollThrough - 1, 0), Address:="", SubAddress:="'" & Sheets(intRollThrough).Name & "'!A1", TextToDisplay:=Sheets(intRollThrough).Name

Next intRollThrough

'Define intRowCount variable
intRowCount = Application.WorksheetFunction.CountA(Range("A1:A65536"))

'Define msgSortOrder variable
msgSortOrder = MsgBox("Select 'Yes' to run Ascending Sort, or 'No' to run Descending Sort", vbYesNo)

'Determine sort order of sheets
Range(Range("A1"), Range("A1").Offset(intRowCount - 1, 0)).Select
'If YES then Ascending order
If msgSortOrder = vbYes Then
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else
'If NO then Descending order
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If

'Create and downfill anchor numbers, which will be used to sort the sheets
Columns("A:A").Select
Selection.Insert shift:=xlToRight
Range("A1").Formula = "1"
Range("A2").Formula = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range(Range("A1"), Range("A1").Offset(intRowCount - 1, 0)), Type:=xlFillDefault
Range("A1").Select

'Define intSheetOrder variable
intSheetOrder = 1

'Define intSheetName variable

For intSheetOrder = 1 To intSheetCount

intSheetName = Range("B1").Offset(intSheetOrder - 1, 0)
Sheets(intSheetName).Move before:=Sheets(intSheetOrder)
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:="'" & Sheets("111 Sort Sheet").Name & "'!A1", TextToDisplay:=Sheets("111 Sort Sheet").Name
Sheets("111 Sort Sheet").Select

Next intSheetOrder

Sheets("111 Sort Sheet").Move before:=Sheets(1)
Columns("A:A").Select
Selection.Delete shift:=xlToLeft
Range("A1").Select

Else
'If NO no changes are made to the sheet or sort
MsgBox "Your sort order will not be changed."
End If
End If

End Sub

By: am8421

am8421 — Wed, 09 Apr 2008 07:44:00 +0000

Thanks all for help with VBA corrections. It works now, nice tool for navigating. Rob – your website in Firefox 2 is OK, in IE 6 – only adverts are displayed. Simon – I’m not sure if I see an agricultural pattern in add-in, it’s rather modest in colours and patterns. Most of users I work with love to use multiple colours for cell fills, fonts and individually for some values (like a set of textmarkers, absolutely not conditional formatting). Worksheets look like you had hallucination.

By: Doug Jenkins

Doug Jenkins — Wed, 09 Apr 2008 01:05:00 +0000

Rob - the advert is all I get.

Just a single ad for My Space Jobs, which takes you to the My Space Jobs site if you click on it.

Nothing else at all.

By: Rob van Gelder

Rob van Gelder — Wed, 09 Apr 2008 00:23:00 +0000

My website is hosted as a free homepage. My ISP recently forced adverts onto the page.
I must do something about redesigning it soon, or the adverts will take over

By: Doug Jenkins

Doug Jenkins — Wed, 09 Apr 2008 00:08:00 +0000

I can confirm that all of the tools posted here work in Excel 2007. The tool bars appear as a menu on the Add-ins tab, which is maybe not ideal, but better than nothing.

They all have their good and bad points. I think I'm most likely to use Tushar's, if any, because it seems to be the simplest and easiest to implement.

The add-in at robbo.com.au looks like an impressive application, but it will take time to investigate all that it does.

By the way, Rob Van Gelder, what has happened to your web site? I just get random adverts when I click on your name.

By: Rob van Gelder

Rob van Gelder — Tue, 08 Apr 2008 22:11:00 +0000

Rough start... correction to above comment
The line reading 'If i 10 Then i = 0' should be changed to If i < 1 Or i > 10 Then i = 0

By: Rob van Gelder

Rob van Gelder — Tue, 08 Apr 2008 22:05:00 +0000

The & needs to be changed to &
The line reading ‘If i 10 Then i = 0′ should be changed to If i < 1 Or i > 10 Then i = -1

By: Simon Murphy

Simon Murphy — Tue, 08 Apr 2008 15:40:00 +0000

I've got a free workbook structure add-in here:
http://www.codematic.net/excel-tools/free-excel-tools.htm
it adds an index sheet with a list of sheets and descriptions and facility to group them into multiple groups
Its a bit agricultural, but I've found it useful for big workbooks.
There is quicknav there too - that adds a toolbar with a drop down list of sheets and names for easy navigation. (that too is a bit agricultural - anyone see a pattern?)
cheers
Simon

By: Patrick O'Beirne

Patrick O'Beirne — Tue, 08 Apr 2008 09:56:00 +0000

Two addins (probably not for Excel 2007, I haven't checked)

http://www.tushar-mehta.com/excel/software/utilities/wb_nav.html

http://www.robbo.com.au/