Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks?
Have a wksht with thousands of embedded hyperlinks. Need to extract the them
in text form. Is there a function for this? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks?
You can use a UserDefined Function to extract that URL.
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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks
Dave -
I used your UDF to extract email address from I chart I'm building. It worked rather nicely! However, I only want the actual address to show. With your UDF, it displays as "mail to: emailaddress.com". Can you enlighten me on how to lose the "mail to:" portion of the hyperlink? Thanks! -MB "Dave Peterson" wrote: You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks?
You can use this
=SUBSTITUTE(LOWER(geturl(A1)),"mailto:","") -- Regards, Peo Sjoblom (No private emails please) "Dave Peterson" wrote in message ... You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks?
Oops! Should have been posted in response to the OP
-- Regards, Peo Sjoblom (No private emails please) "Peo Sjoblom" wrote in message ... You can use this =SUBSTITUTE(LOWER(geturl(A1)),"mailto:","") -- Regards, Peo Sjoblom (No private emails please) "Dave Peterson" wrote in message ... You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks
You could modify the Function to drop the first 8 characters, but I'd just use:
=mid(geturl(a1),8,255) (make that 255 big enough to cover the longest email address--I bet it's ok already!) MB wrote: Dave - I used your UDF to extract email address from I chart I'm building. It worked rather nicely! However, I only want the actual address to show. With your UDF, it displays as "mail to: emailaddress.com". Can you enlighten me on how to lose the "mail to:" portion of the hyperlink? Thanks! -MB "Dave Peterson" wrote: You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson -- Dave Peterson |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks
Great! Either one works and (remarkably) I can see how both can be utilized.
Thaks so much. I have one more concern, but not yet sure it's a problem: I realized that the email text in the cell is a "phantom" as a result of the function of the cell. Consequently, I can only "see" the text. When I copy the cell, I'm only copying the function. This may be a really dumb question, but is there a way I can make the text in the cell "real"?? Thanks again. Matt "Peo Sjoblom" wrote: Oops! Should have been posted in response to the OP -- Regards, Peo Sjoblom (No private emails please) "Peo Sjoblom" wrote in message ... You can use this =SUBSTITUTE(LOWER(geturl(A1)),"mailto:","") -- Regards, Peo Sjoblom (No private emails please) "Dave Peterson" wrote in message ... You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson |
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks
Select the range (whole column???)
Edit|copy Edit|paste special|values MB wrote: Great! Either one works and (remarkably) I can see how both can be utilized. Thaks so much. I have one more concern, but not yet sure it's a problem: I realized that the email text in the cell is a "phantom" as a result of the function of the cell. Consequently, I can only "see" the text. When I copy the cell, I'm only copying the function. This may be a really dumb question, but is there a way I can make the text in the cell "real"?? Thanks again. Matt "Peo Sjoblom" wrote: Oops! Should have been posted in response to the OP -- Regards, Peo Sjoblom (No private emails please) "Peo Sjoblom" wrote in message ... You can use this =SUBSTITUTE(LOWER(geturl(A1)),"mailto:","") -- Regards, Peo Sjoblom (No private emails please) "Dave Peterson" wrote in message ... You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson -- Dave Peterson |
#9
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I extract hyperlink as text from an array of hyperlinks
That does it. Thank yo so much!
-Matt "Dave Peterson" wrote: Select the range (whole column???) Edit|copy Edit|paste special|values MB wrote: Great! Either one works and (remarkably) I can see how both can be utilized. Thaks so much. I have one more concern, but not yet sure it's a problem: I realized that the email text in the cell is a "phantom" as a result of the function of the cell. Consequently, I can only "see" the text. When I copy the cell, I'm only copying the function. This may be a really dumb question, but is there a way I can make the text in the cell "real"?? Thanks again. Matt "Peo Sjoblom" wrote: Oops! Should have been posted in response to the OP -- Regards, Peo Sjoblom (No private emails please) "Peo Sjoblom" wrote in message ... You can use this =SUBSTITUTE(LOWER(geturl(A1)),"mailto:","") -- Regards, Peo Sjoblom (No private emails please) "Dave Peterson" wrote in message ... You can use a UserDefined Function to extract that URL. 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) Hoya wrote: Have a wksht with thousands of embedded hyperlinks. Need to extract the them in text form. Is there a function for this? -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
EXTRACT NUMBERS FROM TEXT STRING | Excel Worksheet Functions | |||
formula to extract partial content (text) of cell | Excel Discussion (Misc queries) | |||
EXTRACT TEXT FROM TEXT STRING | Excel Worksheet Functions | |||
creating hyperlink inside oval with text in it | Excel Discussion (Misc queries) | |||
VBA Import of text file & Array parsing of that data | Excel Discussion (Misc queries) |