Excel VBA Get hyperlink address of specific cell

excel, hyperlink, vba

Solution

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

Problem

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`?

Original source