Excel hyperlink adını farklı yollarla değiştirmek

[merkuryen]

Merhaba Bir sorum olacak acaba yapabilmenin bir yolu var mıdır?
Şimdiden çok teşekkürler


Yukarıda yazan ddd yerine 20.7711247 yazdırmak istiyorum. Edit bölümünden tek tek manuel olarak yapabilirim ama böyle bir sürü kolon var ve manuel yapmak yerine linkteki belli bir aralığı tanımlayarak link adı olarak yazdırabilir miyim? Yani sonuç aşağıdaki görsel gibi;

 

[Korhan Ayhan]

Bu şekilde link içeren örnek dosya paylaşırsanız yardımcı olabiliriz.

 

[merkuryen]

Ekledim, çok teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Koordinatlari_Hucreye_Yaz()
    Dim My_Link As Hyperlink, Adres As Variant
    
    For Each My_Link In ActiveSheet.Range("A:A").Hyperlinks
        Adres = Split(Split(My_Link.Address, "@")(1), ".")
        My_Link.TextToDisplay = Adres(1)
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[merkuryen]

çalıştı, elinize sağlık
Çok teşekkür ederim

 

[cadiguzel]

konu ve cevap paylaşımı için teşekkürler