hyperlink functions
I have a list of Cells containing text with hyperlinks to www addresses.
The www addresses cannot easily be viewed and although I could type the hyperlink details in the adjoining cells/column, I wonder if there is a function to enable the Hyperlink to be displayed in an adjoining cell (or the same cell) without retyping it in? Hope my question is understood |
Saved from a previous post:
One way to extract those URL's from a hyperlink created via Insert|Hyperlink is with a userdefinedfunction. Here's one that may help: Option Explicit Function GetURL(Rng As Range) As String Application.Volatile Set Rng = Rng(1) If Rng.Hyperlinks.Count = 0 Then GetURL = "" Else GetURL = Rng.Hyperlinks(1).Address End If End Function So if you had a hyperlink in A1, you could put =getURL(a1) in that adjacent cell. Be aware that if you change the hyperlink, then this formula cell won't change until your workbook calculates. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Short course: Open your workbook. Hit alt-f11 to get to the VBE (where macros/UDF's live) hit ctrl-R to view the project explorer Find your workbook. should look like: VBAProject (yourfilename.xls) right click on the project name Insert, then Module You should see the code window pop up on the right hand side Paste the code in there. Now go back to excel. Into a test cell and type: =getURL(a1) ===== this will return If you want to drop the mailto:, you could just use: =mid(getURL(a1),8,255) (make 255 big enough for the longest address) JayW wrote: I have a list of Cells containing text with hyperlinks to www addresses. The www addresses cannot easily be viewed and although I could type the hyperlink details in the adjoining cells/column, I wonder if there is a function to enable the Hyperlink to be displayed in an adjoining cell (or the same cell) without retyping it in? Hope my question is understood -- Dave Peterson |
All times are GMT +1. The time now is 12:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com