• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile hyperlink oluşturma

deliaslan

Altın Üye
Katılım
29 Mart 2011
Mesajlar
9
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO (Sürüm 2309 Derleme 16.0.16827.20166) 64 bit - Türkçe
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...
 

Ekli dosyalar

Deneyiniz ...
Kod:
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
 
Deneyiniz ...
Kod:
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.
 
Rica ederim, iyi çalışmalar
 
Geri
Üst