Excel VBA Get hyperlink address of specific cell

Question

How do I code Excel VBA to retrieve the url/address of a hyperlink in a specific cell?

I am working on sheet2 of my workbook and it contains about 300 rows. Each rows have a unique hyperlink at column "AD". What I'm trying to go for is to loop on each blank cells in column "J" and change it's value from blank to the hyperlink URL of it's column "AD" cell. I am currently using this code:

do while....
    NextToFill = Sheet2.Range("J1").End(xlDown).Offset(1).Address
    On Error Resume Next
    GetAddress = Sheet2.Range("AD" & Sheet2.Range(NextToFill).Row).Hyperlinks(1).Address
    On Error GoTo 0
loop

Problem with the above code is it always get the address of the first hyperlink because the code is .Hyperlinks(1).Address. Is there anyway to get the hyperlink address by range address like maybe sheet1.range("AD32").Hyperlinks.Address?

`Range("A1").Hyperlinks(1).Address` will get you the first hyperlink in cell A1. `sheet1.range("AD32").Hyperlinks(1).Address` will give you the first hyperlink in cell AD32 — Jzz, Jun 01 '14 at 21:35
Thanks Jzz, but if you look at my code above, it should be changing rows and so GetAddress should be changing but it always return the hyperlink address of the first link it detected. I forgot to mention this code is wrapped in a do while loop. I will edit the post. — user3682866, Jun 01 '14 at 21:53
So basically your asking how to loop rows? Try google for that. If it is anything else, clearify your question. — Jzz, Jun 01 '14 at 21:57
No, I'll try again. Cells in column "J" contains the text version of the URL/Address of hyperlinks in Cells of column "AD". Like cell "J23" contains the URL/address of the hyperlink in cell "AD23". Now, there are blank cells in column "J", ones that do not have the text version of hyperlinks in column "AD" yet. I am trying to loop through each of those blank cells in column "J", look to it's "AD" column, extract the url/address of that hyperlink and place it to the cell in it's "J" column. That's my code above. I was wondering if there's such a code like sheet1.range("AD23").Hyperlinks.Address — user3682866, Jun 02 '14 at 05:21
My code is basically doing a `Sheet2.Range("AD23").Hyperlinks(1).Address` and then a `Sheet2.Range("AD24").Hyperlinks(1).Address` and a `Sheet2.Range("AD25").Hyperlinks(1).Address` but they all output the hyperlink address of "AD23" — user3682866, Jun 02 '14 at 05:24
Unless you're adding data to column J (and have no gaps in that column) this line `NextToFill = Sheet2.Range("J1").End(xlDown).Offset(1).Address` returns the same row every time. — Rory, Jun 02 '14 at 09:49
Yes there's a part of my code that leaves that cell in J with contents before doing another `.end.offset` so it is going through the blank cells properly. The problem is the hyperlinks — user3682866, Jun 02 '14 at 09:55
Is there more than one hyperlink in each cell of the AD column? — AleGR, Dec 24 '16 at 17:19

score 4 · Answer 1 · answered Jul 12 '19 at 17:28

Not sure why we make a big deal, the code is very simple

Sub ExtractURL()
    Dim GetURL As String
    For i = 3 To 500
        If IsEmpty(Cells(i, 1)) = False Then
            Sheets("Sheet2").Range("D" & i).Value = 
               Sheets("Sheet2").Range("A" & i).Hyperlinks(1).Address
        End If
    Next i
End Sub

score 3 · Answer 2 · answered Mar 19 '15 at 18:19

This should work:

Dim r As Long, h As Hyperlink
For r = 1 To Range("AD1").End(xlDown).Row
    For Each h In ActiveSheet.Hyperlinks
        If Cells(r, "AD").Address = h.Range.Address Then
            Cells(r, "J") = h.Address
        End If
    Next h
Next r

It's a bit confusing because Range.Address is totally different than Hyperlink.Address (which is your URL), declaring your types will help a lot. This is another case where putting "Option Explicit" at the top of modules would help.

score 2 · Answer 3 · answered Feb 15 '21 at 16:22

This IMO should be a function to return a string like so.

Public Sub TestHyperLink()
 Dim CellRng As Range
 Set CellRng = Range("B3")
 
 Dim HyperLinkURLStr As String
 HyperLinkURLStr = HyperLinkURLFromCell(CellRng)
 Debug.Print HyperLinkURLStr
End Sub

Public Function HyperLinkURLFromCell(CellRng As Range) As String
 HyperLinkURLFromCell = CStr(CellRng.Hyperlinks(1).Address)
End Function

score 0 · Answer 4 · answered Jun 03 '14 at 13:29

My understanding from the comments is that you already have set the column J to a string of the URL. If so this simple script should do the job (It will hyperlink the cell to the address specified inside the cell, You can change the cell text if you wish by changing the textToDisplay option). If i misunderstood this and the string is in column AD simply work out the column number for AD and replace the following line:

fileLink = Cells(i, the number of column AD)

The script:

Sub AddHyperlink()

Dim fileLink As String

Application.ScreenUpdating = False

With ActiveSheet
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row


For i = 4 To lastrow

    fileLink = Cells(i, 10)

    .Hyperlinks.Add Anchor:=Cells(i, 10), _
    Address:=fileLink, _
    TextToDisplay:=fileLink

Next i

End With

Application.ScreenUpdating = True

End Sub

score 0 · Answer 5 · edited Jan 31 '15 at 07:09

0

Try to run for each loop as below:

do while....
    NextToFill = Sheet2.Range("J1").End(xlDown).Offset(1).Address
    On Error Resume Next
    **for each** lnk in Sheet2.Range("AD" & Sheet2.Range(NextToFill).Row).Hyperlinks
         GetAddress=lnk.Address
    next
On Error GoTo 0
loop

edited Jan 31 '15 at 07:09

Lorenz Meyer

19,166
22
75
121

answered Jan 31 '15 at 06:51

abhinov

125
1
3
12

In this case lnk is a cell of type range, not a hyperlink. – Jason K. Mar 19 '15 at 18:21
No its a hyperlink if you observe closely..Sheet2.Range("AD" & Sheet2.Range(NextToFill).Row).Hyperlinks, a collection of hyperlinks from a given Range – abhinov Mar 24 '15 at 08:18

Excel VBA Get hyperlink address of specific cell

5 Answers5

Linked