Hyperlink ADDRESS questions!

[Related1]

Hi,

Sorry for all of the pics but if I can't figure this out I surely can't explain it very well!

I'm trying to copy the hyperlink ADDRESSES and have them increase. Not working! I'm trying to avoid having to go into each and every hyperlink and edit the address since I will have well over 200 of these links.1. First I tried by copying the cells. It copies and increases the link but not the actual address.

[/IMG]

When I right click and try to edit the hyperlink address, they all say 013 which was the original hyperlink address.

[/IMG]

2. So then I tried 'Find and Replace' but was unable to 'find' the number 013 within the formula to replace it with the correct number. Nope.

3. So then I tried to create the addresses in a new column but that really did me no good since I would still have to open each instance and change the address.

[/IMG]

Any ideas or help would be appreciated!

Thanks,
Denise.

 

[VBA Geek]

Since you have already listed your hyperlinks addresses in column B, select the cells in column A that a have the hyperlink address on their right and run this small code

Sub addHyperlinks()
Dim iLoop As Long, R As Excel.Range
If TypeOf Selection Is Excel.Range Then
    Set R = Selection
    For iLoop = 1 To Selection.Rows.Count
        ActiveSheet.Hyperlinks.Add anchor:=R.Cells(iLoop, 1), Address:=R.Cells(iLoop, 1).Offset(, 1).Value, TextToDisplay:=R.Cells(iLoop, 1).Value
    Next iLoop
End If
End Sub

 

[Related1]

Hi, thanks for your response! Could you explain this to me like I'm a five year old?

Since you have already listed your hyperlinks addresses in column B, select the cells in column A that a have the hyperlink address on their right and run this small code

Sub addHyperlinks()
Dim iLoop As Long, R As Excel.Range
If TypeOf Selection Is Excel.Range Then
    Set R = Selection
    For iLoop = 1 To Selection.Rows.Count
        ActiveSheet.Hyperlinks.Add anchor:=R.Cells(iLoop, 1), Address:=R.Cells(iLoop, 1).Offset(, 1).Value, TextToDisplay:=R.Cells(iLoop, 1).Value
    Next iLoop
End If
End Sub

 

[VBA Geek]

You can add code by following this simple steps: https://www.excelguru.ca/content.php?265-Adding-VBA-Code-For-The-First-Time-User

 

[Related1]

THANK YOU!!!!

I figured it out. It worked!!

You've saved me tons of time.

Thanks again.

 

[VBA Geek]

THANK YOU!!!!

I figured it out. It worked!!

You've saved me tons of time.

Thanks again.

you welcome!