Assign a Macro to Hyperlink

[jnsturze]

I a found a macro that will run when a hyperlink is selected. however, the problem is that if i have more than one hyperlink it will only work on the macro that was there first. Here is my example below:

"Private Sub Worksheet_Asset_Value(ByVal Target As Hyperlink)
'Check if the Target Address is same as you have given
'In the above example i have taken A4 Cell, so I am
'Comparing this with $A$4
If Target.Range.Address = "$A$5:$A$7" Then
Call Asset_Value
Exit Sub
End If
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Check if the Target Address is same as you have given
'In the above example i have taken A4 Cell, so I am
'Comparing this with $A$4
If Target.Range.Address = "$A$8:$A$9" Then
Call Negatives
Exit Sub
End If
End Sub"

As you can see, i want to run two different macros by clicking on 2 different cells (A5:a7) and (a8:a9). any help? potentially combine the cells to call different macros depending on what cell i have selected? Thanks for the help.

 

[My Aswer Is This]

No. All you should have to do is double click on the cell. Now you do know double click means clicking twice quickly.
and you did follow these instructions :

Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

This is not a module script. It does not get pasted in a module.

 

[dianamruelas]

It worked!! Oh my goodness thank you. That was exactly what I was doing wrong from the beginning.

Thanks, Yoda

 

[My Aswer Is This]

Now if you look at my first posting you will see how you can add a lot more of these if you want.
Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

 

[dianamruelas]

You were such a great help. I have one more issue with my document I would like you to take a look at. Thanks!!
http://www.mrexcel.com/forum/excel-...te-breaks-link-cell-tab-name.html#post4304000

 

[MattAShine]

No. All you should have to do is double click on the cell. Now you do know double click means clicking twice quickly.
and you did follow these instructions :

Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

This is not a module script. It does not get pasted in a module.

Hey, I know this thread a bit old, but this is some great info. When I've tried to replicate this using my own macro's get an Compile Error, saying that the Sub or Function is Not Defined.

Here is the code I am using in the sheet (gotten to as per the directions above):

"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True
If Not Intersect(Target, Range("D48")) Is Nothing Then
Call ViewDashboard_Open

End If
If Not Intersect(Target, Range("F48")) Is Nothing Then
Call ViewData_Open

End If

If Not Intersect(Target, Range("I48")) Is Nothing Then
Call UnlockAll_Open

End If
If Not Intersect(Target, Range("K48")) Is Nothing Then
Call LockAll_Open

End If
End Sub"


And here's an example of the first macro as it sits in Module 4:

"
Private Sub ViewDashboard_Open()
' ViewDashboard Macro
ActiveSheet.Unprotect Password:="ABC123"
ActiveWorkbook.Unprotect Password:="ABC123"
Sheets("Entry Form").Select
Sheets("Odds and Ends").Visible = True
Sheets("Odds and Ends").Select
Range("C2").Select
End Sub
"

Do you see anything particularly wrong with what I've done?

 

[My Aswer Is This]

The error means you do not have a Macro Named that way:
To make things easy for testing just make a simple macro like

Sub Hello
Msgbox "Hello"
End Sub

And then use this simple script:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Target, Range("D48")) Is Nothing Then Call Hello
'If Not Intersect(Target, Range("D56")) Is Nothing Then Call Goodbye
'If Not Intersect(Target, Range("D69")) Is Nothing Then Call Boy
'If Not Intersect(Target, Range("C45")) Is Nothing Then Call Jane
Application.ScreenUpdating = True
End Sub

'Remove this mark "'" from in front of each line of code when you want that line of code to work

Start with just one script till you see how things work

 

[MattAShine]

The error means you do not have a Macro Named that way:
To make things easy for testing just make a simple macro like

Sub Hello
Msgbox "Hello"
End Sub

And then use this simple script:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Target, Range("D48")) Is Nothing Then Call Hello
'If Not Intersect(Target, Range("D56")) Is Nothing Then Call Goodbye
'If Not Intersect(Target, Range("D69")) Is Nothing Then Call Boy
'If Not Intersect(Target, Range("C45")) Is Nothing Then Call Jane
Application.ScreenUpdating = True
End Sub

'Remove this mark "'" from in front of each line of code when you want that line of code to work

Start with just one script till you see how things work

Thank you SO much! I got it working for my many and varied macros. I had to adapt the test script you wrote above, but it works finally!

 

[My Aswer Is This]

Glad I was able to help you. Yes I knew you would need to make modifications this was just a example.

Thank you SO much! I got it working for my many and varied macros. I had to adapt the test script you wrote above, but it works finally!