+ Reply to Thread
Results 1 to 2 of 2

Hyperlinks.Add does nothing

Hybrid View

  1. #1
    Registered User
    Join Date
    10-06-2005
    Posts
    14

    Hyperlinks.Add does nothing

    hi,

    IN VBA
    i have copied one sheet in another (copy/pastespecialthe whole sheet with values & formatsi don't want to use the Paste method, only PasteSpecial).
    Now i want to copy hypelinks too so i do that:

    For Each h In FirstSheet.Hyperlinks
    SecondSheet.Hyperlinks.Add(Anchor:=h.Range, Address:=h.Address, TextToDisplay:=Switch(Not IsEmpty(h.TextToDisplay), h.TextToDisplay, IsEmpty(h.TextToDisplay), h.TextToDisplay))
    Next h


    but the links are not copied: SecondSheet has no links....
    In a debugguer, i can see that the loop is running fine, but SecondSheet.HyperLinks.Count is always 0....


    What does that mean?

    Regards,
    iTarnak

  2. #2
    Forum Moderator Leith Ross's Avatar
    Join Date
    01-15-2005
    Location
    San Francisco, Ca
    MS-Off Ver
    2000, 2003, & 2010
    Posts
    23,258
    Hello Itarnak,

    The problem appears to be the Hyperlink address, you are using the cell's address instead of its contents. Change your code to this...

    
    For Each h In FirstSheet.Hyperlinks
    SecondSheet.Hyperlinks.Add(Anchor:=h.Range, Address:=h.Range.Value, TextToDisplay:=Switch(Not IsEmpty(h.TextToDisplay), h.TextToDisplay, IsEmpty(h.TextToDisplay), h.TextToDisplay))
    Next h
    
    Sincerely,
    Leith Ross

    Remember To Do the Following....

    1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.
    2. Thank those who have helped you by clicking the Star below the post.
    3. Please mark your post [SOLVED] if it has been answered satisfactorily.


    Old Scottish Proverb...
    Luathaid gu deanamh maille! (Rushing causes delays!)

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1