ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Hyperlink path into a adjacent cell (https://www.excelbanter.com/excel-programming/348245-hyperlink-path-into-adjacent-cell.html)

DARREN FONG via OfficeKB.com

Hyperlink path into a adjacent cell
 
Hi,

I have a list of cells with hyperlinks displaying amounts i.e. $100, $200 etc,
what I want to do is display the path of the hyperlink next to the amounts.
as I need to use part the path to do other work.

Thanks a lot,
Darren Fong

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200512/1

DARREN FONG via OfficeKB.com

Hyperlink path into a adjacent cell
 
Leith,

Thanks thats just brilliant :)

Cheers

Darren

Leith Ross wrote:
Hello Darren,

Here is a macro that will that will list the link address of all
hyperlinks on the active worksheet. The hyperlink address is placed in
the cell immediately to the right of the hyperlink.

Code:
--------------------
Sub ListLinkAddresses()

Dim Addx, HypLnk

With ActiveSheet
For Each HypLnk In .Hyperlinks
Addx = .Range(HypLnk.Range.Address).Offset(0, 1).Address
.Range(Addx).Value = HypLnk.Address
Next HypLnk
End With

End Sub

--------------------

Sincerely,
Leith Ross


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200512/1

Leith Ross[_385_]

Hyperlink path into a adjacent cell
 

Hello Darren,

Here is a macro that will that will list the link address of all
hyperlinks on the active worksheet. The hyperlink address is placed in
the cell immediately to the right of the hyperlink.


Code:
--------------------
Sub ListLinkAddresses()

Dim Addx, HypLnk

With ActiveSheet
For Each HypLnk In .Hyperlinks
Addx = .Range(HypLnk.Range.Address).Offset(0, 1).Address
.Range(Addx).Value = HypLnk.Address
Next HypLnk
End With

End Sub

--------------------


Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=493957



All times are GMT +1. The time now is 01:54 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com