Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 7 of 7

Thread: Make ALL Hyperlinks...links

  1. #1
    New Member
    Join Date
    Apr 2002
    Location
    Andre'
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    I have inherited a very large Excel project that has some columns full of hyperlinks to websites. The problem is they are NOT clickable. They are just text. Aside from going to each cell and putting a space at the end of each link and hitting enter to make it linkable. Is there a way to globally throughout the entire worksheet take any cell that has data beginning with http:// and make a true hyperlink?

    Thanks for your time and help,


  2. #2
    MrExcel MVP Aladin Akyurek's Avatar
    Join Date
    Feb 2002
    Location
    The Hague, NL
    Posts
    84,063
    Post Thanks / Like
    Mentioned
    38 Post(s)
    Tagged
    8 Thread(s)

    Default

    On 2002-04-24 12:02, asiedentopf wrote:
    I have inherited a very large Excel project that has some columns full of hyperlinks to websites. The problem is they are NOT clickable. They are just text. Aside from going to each cell and putting a space at the end of each link and hitting enter to make it linkable. Is there a way to globally throughout the entire worksheet take any cell that has data beginning with http:// and make a true hyperlink?

    Thanks for your time and help,
    Lets say tha the links are in C from C2 on.

    In D2 enter:

    =HYPERLINK(C2)

    and double click on the fill handle in the lowr right corner of D2 in order to copy down the formula.

  3. #3
    MrExcel MVP Damon Ostrander's Avatar
    Join Date
    Feb 2002
    Location
    Denver, Colorado USA
    Posts
    4,239
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi Andre,

    Here's a macro that does this.

    Sub TextToHyperlink()
    Dim Cell As Range
    Dim Hlink As String
    For Each Cell In ActiveSheet.UsedRange
    If UCase(Left(Cell, 7)) = "HTTP://" Or _
    UCase(Left(Cell, ) = "'HTTP://" Then
    Hlink = Cell.Value
    Cell.ClearContents
    ActiveSheet.Hyperlinks.Add Cell, Hlink
    End If
    Next Cell
    End Sub
    Keep Excelling.

    Damon

    VBAexpert Excel Consulting
    LinkedIn Profile http://www.linkedin.com/pub/damon-ostrander/7/79/a93
    AllExperts Profile http://www.allexperts.com/ep/1059-30...-Ostrander.htm

  4. #4
    New Member
    Join Date
    Apr 2002
    Location
    Andre'
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Damon,

    Consider that you're not dealing with Excel experts here...

    For some reason the macro is coming up with a syntax error.

    Any ideas....or a more detailed explanation. If it helps the data we are trying to convert to hyperlink in this case is ALL in column F.

    Thanks...

    Andre'

  5. #5
    Board Regular
    Join Date
    Apr 2002
    Location
    Cape Town,South Africa
    Posts
    234
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Here's what you do to link all hyperlinks my good friend :..........

    Highlight ranges that you want to link >>goto>>insert>>hyperlink>>

  6. #6
    New Member
    Join Date
    Apr 2002
    Location
    Andre'
    Posts
    3
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Thanks Gareth..

    This would be great if all the links were to the same link but these are not.

    Thanks anyways..

    Andre'

  7. #7
    MrExcel MVP Damon Ostrander's Avatar
    Join Date
    Feb 2002
    Location
    Denver, Colorado USA
    Posts
    4,239
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi again Andre,

    The only syntax problem I can see is that, for some reason the "7)" got converted to a smiley face. It should look like the line just above.

    Keep Excelling.

    Damon

    VBAexpert Excel Consulting
    LinkedIn Profile http://www.linkedin.com/pub/damon-ostrander/7/79/a93
    AllExperts Profile http://www.allexperts.com/ep/1059-30...-Ostrander.htm

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •