Variable in path of the hyperlink

[ilopez]

Hi ! Greetings from Paris !
I've just started playing with VBA, macros, and all this stuff on excel.

I've created this macro:

Sub MiPrimeraMacro()
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("i2"), _
Address:=("http://www.apple.com/" & Range("i2")), _
ScreenTip:="Apple link"
End With
End Sub

What I've done is that the last part of the hyperlink it's read from the cell itself (in this case: mac, music, iphone, etc).
What I want know is to do the same in each cell of the column, and I'd like to know if there's a faster option rather than copying and pasting each time the sub and change the cell number.

Thank you very much for your help!

 

[FormR]

Welcome to the Forum!

You could try something like this:

Sub MiPrimeraMacro()
Dim c As Range
With Worksheets(1)
    For Each c In .Range("I2:I" & .Range("I" & .Rows.Count).End(xlUp).Row)
        .Hyperlinks.Add Anchor:=c, Address:="http://www.apple.com/" & c.Value, ScreenTip:="Apple Link"
    Next c
End With
End Sub

 

[ilopez]

Thank you very very much, I've tried it and it works great!

Welcome to the Forum!

You could try something like this:

Sub MiPrimeraMacro()
Dim c As Range
With Worksheets(1)
    For Each c In .Range("I2:I" & .Range("I" & .Rows.Count).End(xlUp).Row)
        .Hyperlinks.Add Anchor:=c, Address:="http://www.apple.com/" & c.Value, ScreenTip:="Apple Link"
    Next c
End With
End Sub