Prev: Formatting making file size huge
Next: How to Select a % of the spreadsheet
From: Mike57 on 13 Jan 2010 10:12
I have a spreadsheet that contains a hyperlink and would like to be able to
copy the hyperlink to another cell so I can pull all into access to link to
other tables for mapping screens. When I look at the cell it shows:
AAD: AWDU11 - Award Amount Definition

When I hover the mouse over the cell it shows the hyperlink of:
http://clients.datatel.com/support/documentation/techdoc/collr18.0/40396.cfm

I would like to keep the original cell and display the hyperlink in another
cell.

Any help would be great.
From: Dave Peterson on 13 Jan 2010 11:56
Maybe you could use a userdefined function to extract the hyperlink from the
cells that have them.

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:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)

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)

Mike57 wrote:
>
> I have a spreadsheet that contains a hyperlink and would like to be able to
> copy the hyperlink to another cell so I can pull all into access to link to
> other tables for mapping screens. When I look at the cell it shows:
> AAD: AWDU11 - Award Amount Definition
>
> When I hover the mouse over the cell it shows the hyperlink of:
> http://clients.datatel.com/support/documentation/techdoc/collr18.0/40396.cfm
>
> I would like to keep the original cell and display the hyperlink in another
> cell.
>
> Any help would be great.

--

Dave Peterson
 | 
Pages: 1
Prev: Formatting making file size huge
Next: How to Select a % of the spreadsheet