Excel Köprü

[kaan147]

Merhaba arkadaşlar,
Bir tane excel dosyam var içerisinde çok sayıda kelime ve her kelime de köprü ile linkler mevcut. Bana lazım olan ise sadece linkler. Bu linkleri nasıl elde ederim. Çok fazla link oldugu için hepsini tek tek açıp kayıt etmek çok zor. Teşekkürler.

 

[Zeki Gürsoy]

Makro ile alınabilir. Örnek bir dosya eklemenizde fayda var.

 

[kaan147]

Makro ile alınabilir. Örnek bir dosya eklemenizde fayda var.

Hocam durum şu;
A1 de kalem kelimesi var bu kalem kelimesine de köprü olarak excel.web.tr diye link var
B1 de de yine aynı şekilde başka bir kelime ve başka bir link var.
Bu şekilde C1 D1 gibi gibi devam ediyor. Yaklaşım bin kadar bu şekilde link mevcut.

 

[kaan147]

Afedersiniz yanlış yazmışım kelimeler alt alta yani A1 A2 A3 şeklinde gidiyor.

 

[Zeki Gürsoy]

İhtiyacınız olan prosedur aşağıda. İhtiyacınıza göre düzenleyip çalıştırın.

Sub test()
    Dim hpl As Hyperlinks, hp As Hyperlink
    
    Set hpl = ActiveSheet.Hyperlinks
    
    For Each hp In hpl
        Debug.Print "Hücre adresi : "; hp.Range.Address(0, 0); "  Bağlantı adresi : "; hp.Address
    Next
    
End Sub

 

[kaan147]

anlayamadım hocam biraz ne yapmam gerektiğini anlatabilir misiniz?