Iterate adding hyperlink code

[Samadhan Gaikwad]

I have code that creates hyperlink to only one cell. I want it to iterate through all filled cells along column F or C or E.

Sub insertVeryLongHyperlink()

    Dim curCell As Range
    Dim longHyperlink, TextToDisplay1 As String

    Set curCell = Range("G1")  ' or use any cell-reference
    longHyperlink = [E1]
    TextToDisplay1 = [C1]

    curCell.Hyperlinks.Add Anchor:=curCell, _
                    Address:=longHyperlink, _
                    SubAddress:="", _
                    ScreenTip:=" - Click here to follow the hyperlink", _
                    TextToDisplay:=TextToDisplay1

    End Sub

 

[YasserKhalil]

Try this code

Sub insertVeryLongHyperlink()
    Dim curCell As Range
    Dim longHyperlink
    Dim textToDisplay1 As String
    Dim i As Long

    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Set curCell = Range("G" & i)
    longHyperlink = Range("E" & i)
    textToDisplay1 = Range("C" & i)

    curCell.Hyperlinks.Add Anchor:=curCell, _
                          Address:=longHyperlink, _
                          SubAddress:="", _
                          ScreenTip:=" - Click here to follow the hyperlink", _
                          TextToDisplay:=textToDisplay1
    Next i

End Sub

 

[Samadhan Gaikwad]

Thank you, working great!

 

[YasserKhalil]

You're welcome. Glad I can offer some help for you