Makro ile hyperlink oluşturma

[deliaslan]

Merhabalar elimde bulunan listedeki köprü formülü içindeki bağlantılar Makro ile metne çevrilip sonra bağlantı özelliği verilmesi gerekiyor. Hyperlinks.Add ile bunu nasıl gerçekleştirebilirim? Şimdiden Teşekkürler...

 

[Tevfik_Kursun]

Deneyiniz ...

Sub test_link_Ekle()
    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(3).Row
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:= _
            Cells(i, 1) & "/" & Cells(i, 2)
    Next
End Sub

iyi çalışmalar

 

[deliaslan]

Deneyiniz ...

Sub test_link_Ekle()

    ActiveSheet.Range("B:B").ClearContents
    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(3).Row
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:= _
            Cells(i, 1)
    Next
End Sub

iyi çalışmalar

Teşekkür ederim kodun Address kısmını değiştirince istediğim gerçekleşti çok teşekkürler.

 

[Tevfik_Kursun]

Rica ederim, iyi çalışmalar