Forum Discussion
Re: need help with microsoft excel dashboard
The second code snippet I provided was intended as an example for handling individual sheets with hyperlinks, rather than multiple sheets within a single line.
Here's the approach for handling multiple sheets with hyperlinks (untested):
Sub FollowHyperlinksAndHideSheets()
Dim HyperlinkSheet As Worksheet
Dim TargetSheet As Worksheet
Dim Hyperlink As Hyperlink
' Set the HyperlinkSheet to the sheet containing the hyperlinks
Set HyperlinkSheet = ThisWorkbook.Sheets("SheetWithHyperlinks")
' Loop through each sheet to follow hyperlinks and hide the sheets
For Each TargetSheet In ThisWorkbook.Sheets
' Skip the HyperlinkSheet itself
If TargetSheet.Name <> HyperlinkSheet.Name Then
' Check if the TargetSheet has a hyperlink
For Each Hyperlink In HyperlinkSheet.Hyperlinks
If Hyperlink.SubAddress = "'" & TargetSheet.Name & "'!A1" Then
' Unhide the TargetSheet temporarily
TargetSheet.Visible = xlSheetVisible
' Follow the hyperlink
Hyperlink.Follow
' Hide the TargetSheet again
TargetSheet.Visible = xlSheetHidden
Exit For
End If
Next Hyperlink
End If
Next TargetSheet
End SubModify the following line to match the sheet name containing the hyperlinks:
Set HyperlinkSheet = ThisWorkbook.Sheets("SheetWithHyperlinks")This macro will loop through each sheet in the workbook, check for hyperlinks in the specified "HyperlinkSheet," follow the hyperlinks, and then hide the corresponding sheets. Make sure the hyperlinks are set up correctly with the format 'SheetName'!A1.
Please ensure that the names of your "HyperlinkSheet" and the sheet containing hyperlinks match the actual names in your workbook. The text, steps and code was created with the help of AI
I hope this updated code resolves the issue you were facing with the hyperlinks.
5 Replies
- akashpohalCopper ContributorHello there,
i really appreciate you helping me on this,
i tried with this as well, still no luck
https://we.tl/t-DeJfPht8if
I have this file attached here via wetransfer, with the macro in them,
other sheets are already hidden as per the Macros
any advise here?
Akash- akashpohalCopper Contributor
- NikolinoDEPlatinum Contributor
Sry but since I don't have much time at the moment, I'll send a simple and quick example to Emirates. You can convert the other buttons as well, just need to delete the hyperlinks.