Hyperlinks Buttons in Excel

[Ali Iqbal]

Hi, I have a[FONT=&quot] dashboard of 40 worksheets. I have a menu with hyperlinks to the 40 different worksheets with shapes. [/FONT][FONT=&quot]I have put within the cell to give it a nice three dimensional look.[/FONT][FONT=&quot] I want to keep the 40 worksheets hidden until someone clicks on the hyperlink with shapes[/FONT][FONT=&quot] . Is there any way to work with shapes having hyperlink.?[/FONT]

 

[mole999]

if you right clink the shape do you get an edit macro option ?

 

[Ali Iqbal]

if you right clink the shape do you get an edit macro option ?

No, I do not get edit macro option. The shapes have hyperlinks. I get assign macro option but not edit macro option

 

[Ali Iqbal]

https://www.youtube.com/watch?v=ZLOTtP0JTO0

this video has helped me but i want to link with the shapes using hyperlink

 

[My Aswer Is This]

I never click on links or watch YouTube videos to see what people want.

Tell me what your ultimate Goal is.
Are you wanting to Goto a particular place on another sheet and do something?

And please do not say link

Going to another sheet and doing something does not require a Hyperlink.

So when you click on your button what do you want to happen? And again do not say I want a Hyperlink to do something.

 

[Ali Iqbal]

What I want to say is that when i click on the button it should take me to the specific sheet and rest of the sheets should be hidden. each time each button is clicked it should take me the specific sheet and other sheets should be hidden.

 

[My Aswer Is This]

Sorry about asking so many questions.
You said:

I have a menu

What is a menu?

Are you really set on doing this with your shapes or would you be interested in clicking on a sheet name in a Activex Combobox

We can write a script to load all the sheet names into a combobox and then you click on the Combox name of the sheet you want to see and be taken to and all the other sheets would be hidden. This would then not require 50 shapes and would allow for new sheets you may add later with no additional coding and adding of new Shapes.

Or if you must use 50 shapes then you would need to put this script in all 50 shapes and change "Carl"
To the sheet name you want to be taken to. All other sheets would be hidden.
Except for sheet named DashBoard.

Sub Activate_Sheet()
'Modified 12/31/2018 4:25:36 AM  EST
Dim i As Long
Dim SheetName As String
SheetName = "Carl" ' Change this name to the sheet name you want to be taken to.
For i = 1 To Sheets.Count
    If Sheets(i).Name <> SheetName And Sheets(i).Name <> "DashBoard" Then Sheets(i).Visible = False
    Next
Application.Goto Sheets(SheetName).Cells(1, 1)
End Sub

​

 

[My Aswer Is This]

Now if you wanted to use the Combobox ideal.

Create yourself a Activex Combobox on your sheet named "DashBoard"

And put this script in your Combobox

Sub Activate_Sheet()
'Modified 12/31/2018 4:25:36 AM  EST
Dim i As Long
Dim SheetName As String
SheetName = "Carl" ' Change this name to the sheet name you want to be taken to.
For i = 1 To Sheets.Count
    If Sheets(i).Name <> SheetName And Sheets(i).Name <> "DashBoard" Then Sheets(i).Visible = False
    Next
Application.Goto Sheets(SheetName).Cells(1, 1)
End Sub

When you click on a sheet name in the combobox you will be taken to that sheet.
All other sheets except for sheet named "DashBoard" will be hidden.




This script here will load all the sheet names into the Combobox.
Put this script in a command Button on your DashBoard sheet. It will only need to be run when you open your Workbook.

Private Sub CommandButton1_Click()
'Modified  12/31/2018  4:56:12 AM  EST
ComboBox1.Clear
Dim i As Long
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "DashBoard" Then ComboBox1.AddItem Sheets(i).Name
Next
End Sub