Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlinks
Hi
I have a column of many web page hyperlinks is it possible to edit a hyperlink with a macro to delete certain characters, like the 8 to 12th characters. Instead of right clicking edit hyperlink, Then move to the next, I then check this hyperlink if it needs to be changed I then run the macro again. Thanks in advance Dave |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlinks
one way
Sub edithyperlinks() For Each c In Range("i1:i3") c.Value = Left(c, 7) & "XXXX" & Right(c, Len(c) - 11) Next End Sub -- Don Guillett SalesAid Software "DavidM" wrote in message . uk... Hi I have a column of many web page hyperlinks is it possible to edit a hyperlink with a macro to delete certain characters, like the 8 to 12th characters. Instead of right clicking edit hyperlink, Then move to the next, I then check this hyperlink if it needs to be changed I then run the macro again. Thanks in advance Dave |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlinks
Sub CheckLinks()
Dim s as String, ans as Long if Activecell.Hyperlinks.count 0 then s = Activecell.Hyperlinks(1).Address ans = msgbox("hyperlink is " & vbNewLine & s & vbNewline _ & vbNewline & " Make a correction?", vbYesNo) if ans = vbYes then s = Left(s,7) & Right(s,len(s)-12) ActiveCell.Hyperlinks(1).Address = s end if end if activecell.offset(1,0).Select End Sub -- Regards, Tom Ogilvy "DavidM" wrote in message . uk... Hi I have a column of many web page hyperlinks is it possible to edit a hyperlink with a macro to delete certain characters, like the 8 to 12th characters. Instead of right clicking edit hyperlink, Then move to the next, I then check this hyperlink if it needs to be changed I then run the macro again. Thanks in advance Dave |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlinks
Thanks Don
Thanks Tom "Tom Ogilvy" wrote in message ... Sub CheckLinks() Dim s as String, ans as Long if Activecell.Hyperlinks.count 0 then s = Activecell.Hyperlinks(1).Address ans = msgbox("hyperlink is " & vbNewLine & s & vbNewline _ & vbNewline & " Make a correction?", vbYesNo) if ans = vbYes then s = Left(s,7) & Right(s,len(s)-12) ActiveCell.Hyperlinks(1).Address = s end if end if activecell.offset(1,0).Select End Sub -- Regards, Tom Ogilvy "DavidM" wrote in message . uk... Hi I have a column of many web page hyperlinks is it possible to edit a hyperlink with a macro to delete certain characters, like the 8 to 12th characters. Instead of right clicking edit hyperlink, Then move to the next, I then check this hyperlink if it needs to be changed I then run the macro again. Thanks in advance Dave |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hyperlinks
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hyperlinks: Hyperlinks change on copy/paste? | Excel Worksheet Functions | |||
Update 2000 Excel hyperlinks to 2003 hyperlinks | Excel Worksheet Functions | |||
How toi turn-off hyperlinks [excel]? Email hyperlinks pop up ! | Excel Discussion (Misc queries) | |||
Excel Hyperlinks- cell content v. hyperlinks | Excel Discussion (Misc queries) | |||
Hyperlinks to =Hyperlinks formula - Challenging | Excel Programming |