[Excel] Hyperlink Question

[qiqinuinaifen128]

Dear Pros,

Hi, I am a beginner. I found an question again. Hope can get help again.

I have a button in one of my worksheet. and i have assigned an macro to this button. Below is the Code

Sheets("My Sheet").Select

<!-- BEGIN TEMPLATE: bbcode_code --> This button is just a simple function to select another sheet.
If i want to create a same function like this macro, but i would like the user to click the cell which contain certain words. Do you think it is possible?
Can i use Hyperlink?

Hope to hear from you soon ^^. Thank you in advance

 

[VoG]

Perhaps this. Make a list of the sheet names in column A, then right click the sheet tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
    Cancel = True
    On Error Resume Next
    Sheets(Target.Value).Select
    On Error GoTo 0
End If
End Sub

Now double-click a sheet name to select that sheet.

 

[qiqinuinaifen128]

Hi,

Thank you for your prompt reply. It's work. How about if i want to put all the sheet name at Column O row number 2?

Hope to hear from you soon

 

[VoG]

Hi,

Thank you for your prompt reply. It's work. How about if i want to put all the sheet name at Column O row number 2?

Hope to hear from you soon

Sorry I'm not clear what you mean. Do you mean

sheet names in O2, O3 and so on

or sheet names in O2, P2 and so on

 

[qiqinuinaifen128]

Sorry.

Because the example you give me is i need to key in all the sheet name on column A right?
How about if i want to put all the sheet name on Column 0 and start at Row number 2

 

[VoG]

Try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 15 And Target.Row > 1 Then
    Cancel = True
    On Error Resume Next
    Sheets(Target.Value).Select
    On Error GoTo 0
End If
End Sub

 

[qiqinuinaifen128]

Hi,

Thank you very much for your code. I trial and error and got the answer i want

Since column 0 is 15 so i change the code to

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 15 Then
    Cancel = True
    On Error Resume Next
    Sheets(Target.Value).Select
    On Error GoTo 0
End If
End Sub

 

[qiqinuinaifen128]

Hi,

Your code is work perfectly.

I really appreaciate it ^^.