| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
cell address of hyperlink
I have this code from one of you guru's (pretty sure it was Tom O.), but I do
not know how to get the cell.address of the hyperlink being tested. '========== Sub ChangeLink() Dim hlink As Hyperlink Dim s As String Dim c As String For Each hlink In ActiveSheet.Hyperlinks s = hlink.Address 'is path of hyperlink doc. If Left(s, 5) = "SPECS" Then s = "=Hyperlink" & "(\\ENGINEERING\PRODUCTION\Qadocs\SPECS\)" 'add code to place new link in cell of hyperlink being tested End If Next End Sub '========== All help is appreciated. -- Regards Rick XP Pro Office 2007 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
cell address of hyperlink
Hi Rick
Try this hlink.Parent.Address -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Rick S." wrote in message ... I have this code from one of you guru's (pretty sure it was Tom O.), but I do not know how to get the cell.address of the hyperlink being tested. '========== Sub ChangeLink() Dim hlink As Hyperlink Dim s As String Dim c As String For Each hlink In ActiveSheet.Hyperlinks s = hlink.Address 'is path of hyperlink doc. If Left(s, 5) = "SPECS" Then s = "=Hyperlink" & "(\\ENGINEERING\PRODUCTION\Qadocs\SPECS\)" 'add code to place new link in cell of hyperlink being tested End If Next End Sub '========== All help is appreciated. -- Regards Rick XP Pro Office 2007 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
cell address of hyperlink
Parent! I never listend to my parents! LOL
Thank you! -- Regards Rick XP Pro Office 2007 "Ron de Bruin" wrote: Hi Rick Try this hlink.Parent.Address -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Rick S." wrote in message ... I have this code from one of you guru's (pretty sure it was Tom O.), but I do not know how to get the cell.address of the hyperlink being tested. '========== Sub ChangeLink() Dim hlink As Hyperlink Dim s As String Dim c As String For Each hlink In ActiveSheet.Hyperlinks s = hlink.Address 'is path of hyperlink doc. If Left(s, 5) = "SPECS" Then s = "=Hyperlink" & "(\\ENGINEERING\PRODUCTION\Qadocs\SPECS\)" 'add code to place new link in cell of hyperlink being tested End If Next End Sub '========== All help is appreciated. -- Regards Rick XP Pro Office 2007 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to extract a web address from a hyperlink cell? | Excel Discussion (Misc queries) | |||
| hyperlink with cell value as part of address | Excel Programming | |||
| How make hyperlink refer to cell content rather than cell address. | Excel Discussion (Misc queries) | |||
| how do I add a 'web address' to a cell in excel with a hyperlink? | New Users to Excel | |||
| Reference cell address of Hyperlink | Excel Programming | |||
Linear Mode
