Create Hyperlink Using Part Cell Content

JoeBushfield · Jun 4th 2010

Hi all,

I have been working on this macro that creates a Hyperlink to the cell, the file path is uniformed except for one variable ????? which is located to the left of the cell but I can't seem to get this to feed through. I have probably got some of the syntax wrong for what I want to accomplish and would very much appreciate some help on the issue.

Thanks in advance
Joe

Code

Sub Hyperlink()
'
' Hyperlink Macro
' Macro recorded 04/06/2010 by Joe Bushfield
' Keyboard Shortcut: Ctrl+Shift+Y
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\JBushfield\Desktop\PDF_Shortcuts\Shortcut to " & [COLOR=blue]?????[/COLOR] & ".pdf.lnk" _
        , TextToDisplay:= _
        "Go to ebook"
    ActiveCell.Offset(1, 0).Select
 
End Sub

Display More

**S M C** · Jun 4th 2010

Re: Variable Hyperlink Code Issue

Hi JoeBushfield

This thread has been locked and will only be unlocked if you PM me or one of the adminitrators/moderators stating that you have read and understood the rules regarding thread titles and code tags.

THREADS THAT DO NOT FOLLOW THESE RULES WILL BE DELETED WITHOUT WARNING

Since this is your first post, I have added the code tags for you.

**S M C** · Jun 4th 2010

Re: Variable Hyperlink Code Issue

PM received. Thanks

**S M C** · Jun 4th 2010

Re: Variable Hyperlink Code Issue

Try this

Code

Sub Hyperlink()
'
' Hyperlink Macro
' Macro recorded 04/06/2010 by Joe Bushfield
' Keyboard Shortcut: Ctrl+Shift+Y
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\JBushfield\Desktop\PDF_Shortcuts\Shortcut to " & Selection.Offset(, -1).Value & ".pdf.lnk" _
        , TextToDisplay:="Go to ebook"
    ActiveCell.Offset(1, 0).Select
 
End Sub

Display More

JoeBushfield · Jun 4th 2010

Re: Variable Hyperlink Code Issue

Thank you so much SMC! This has been making me pull my hair out all afternoon! You saved me alot of time mate, cheers!

Create Hyperlink Using Part Cell Content

Participate now!

Share