Adding Hyperlink to Dynamic Cell

Question

I'm stuggaling with getting to grips with adding hyperlinks to cells through vba. I think I have the pre-requists for adding of hyperlinks. Although I'm unable to get it to work.

Having looked through forums and the such, I was able to create this code, but no matter how hard I try I am unable to get it to work. The code produces Object required on the .Hyperlink line

        With ActiveWorksheet

            .Hyperlink.Add Anchor:=ActiveWorksheet.Cells(i, 2)
            Address = Cells(SerialNumberLocation, 2)
            TextToDisplay = AlternateEngineNumber

        End With

Do anyone have any tips on imporving the code?

By changing ActiveWorkSheets to ActiveSheets and removing the .Hyperlink to Hyperlink I still recive the same error, with the code nwo looking like

        With ActiveSheet

            Hyperlink.Add Anchor:=ActiveSheet.Cells(i, 2)_
            Address = Cells(SerialNumberLocation, 2)_
            TextToDisplay = AlternateEngineNumber

        End With

Thanks

It is Hyperlinks.Add and you need line continuation characters for a statement that is spread over more than one line. — Andy G
– Andy G, Commented Feb 5, 2018 at 13:58
... line continuations and commas. (If, however ,this is not your real code, then you can see the issues that arise when you don't post exactly.) — Andy G
– Andy G, Commented Feb 5, 2018 at 14:02
@Gary'sStudent I've change to what you said although, i still get the same error — CptGoodar
– CptGoodar, Commented Feb 5, 2018 at 14:10
@AndyG I've posted the code as it is in the macro. Not quite sure what your getting at with Line coninuations character, do you mean things like _)?? — CptGoodar
– CptGoodar, Commented Feb 5, 2018 at 14:11

Gary's Student · Accepted Answer · 2018-02-05 14:59:21Z

1

This works:

Sub dural()
    i = 1
    SerialNumberLocation = 9
    AlternateEngineNumber = "Hello"
    With ActiveSheet
                .Hyperlinks.Add Anchor:=.Cells(i, 2), _
                Address:=.Cells(SerialNumberLocation, 2).Value, _
                TextToDisplay:=AlternateEngineNumber
    End With
End Sub

Please take special notice of the colons and the periods

answered Feb 5, 2018 at 14:59

Gary's Student

96.9k10 gold badges66 silver badges104 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Adding Hyperlink to Dynamic Cell

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related