Macro to create link to nagivate through worksheet

kaffal

Board Regular
Joined
Mar 7, 2009
Messages
68
Hi all ,
I have a workbook with about 20 to 50 sheets.
Inside the workbook has a worksheet, named Summary, which will help to summarize up all the worksheet.

I would like to create a table with the following info extract from each sheet.
Column 1 : Tabname of each worksheet except Summary
Column 2 : Return a count on how many "completed" are found in column H in every sheet except for the Summary worksheet.

For column 3 : I would like to have a link to navigate to the respective worksheet.
 
Last edited:

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
This will create a new index sheet:

Code:
Sub IdxSheets()
Dim ws As Worksheet, iws As Worksheet, i As Integer
Set iws = Worksheets.Add
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> iws.Name Then
        i = i + 1
        iws.Range("A" & i).Value = ws.Name
        iws.Range("B" & i).Value = WorksheetFunction.CountIf(ws.Columns("H"), "Completed")
        iws.Hyperlinks.Add Anchor:=iws.Range("C" & i), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
    End If
Next ws
iws.Columns("A").AutoFit
End Sub
 
Upvote 0

kaffal

Board Regular
Joined
Mar 7, 2009
Messages
68
Cools, It works !
But I would like to add on something if you dun mind.

- i would like to exclude the Menu Worksheet in the list created
- Instead of counting "Completed" in Column H, I would like to include counting from column C to column Z .
- Instead of creating a new sheet, It will start the list in a worksheet,"Summary" from Cell A2 onward
 
Last edited:
Upvote 0

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
Sub IdxSheets()
Dim ws As Worksheet, iws As Worksheet, i As Integer
Set iws = Worksheets.Add
On Error Resume Next
iws.Name = "Summary"
i = 1
With iws.Range("A1:C1")
    .Value = Array("Sheet", "Completed", "Link")
    .Font.Bold = True
End With
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> iws.Name And ws.Name <> "Menu" Then
        i = i + 1
        iws.Range("A" & i).Value = ws.Name
        iws.Range("B" & i).Value = WorksheetFunction.CountIf(ws.Columns("C:Z"), "Completed")
        iws.Hyperlinks.Add Anchor:=iws.Range("C" & i), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
    End If
Next ws
iws.Columns("A:C").AutoFit
End Sub
 
Upvote 0

Forum statistics

Threads
1,191,517
Messages
5,987,057
Members
440,074
Latest member
Emmanuelian

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top