| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Hyperlink Function Combined with Find
sorry, it's not "Target.Address(0, 0)" but "Target.Range.Address(0, 0)"
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Select Case Target.Range.Address(0, 0) Case Is = "A1": Application.Goto Worksheets("Sheet2").Range("A10") Case Is = "A2": Application.Goto Worksheets("Sheet2").Range("A20") Case Is = "A3": Application.Goto Worksheets("Sheet2").Range("A30") End Select End Sub -- isabelle Le 2012-09-06 22:34, isabelle a écrit : also you can use the same event for multiple links Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Select Case Target.Address(0, 0) Case Is = "A1": Application.Goto Worksheets("Sheet2").Range("A10") Case Is = "A2": Application.Goto Worksheets("Sheet2").Range("A20") Case Is = "A3": Application.Goto Worksheets("Sheet2").Range("A30") End Select End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| More on Combined IF Function | Excel Worksheet Functions | |||
| Find earliest date combined with status | Excel Discussion (Misc queries) | |||
| lookup combined with search to find keywords and then assign a cat | Excel Programming | |||
| vlookup combined with AND-function | Excel Worksheet Functions | |||
| Find min/max in 2 combined columns | Excel Worksheet Functions | |||
Threaded Mode
