Soru Tüm Köprüleri Değiştirmek

[shiva]

Merhaba,

Excel sayfasında yer alan hücrelerin içerisindeki köprüleri yeni site ile değiştirmek istiyorum.

Örnek olarak; A1 hücresindeki köprü "http:// www.eskisite.com/xxxyyy" iken "http:// www.yenisite.com/xxxyyy" şeklinde değiştirilmesi lazım.

Bu şekilde 100 ün üzerinde köprü bulunuyor. Aynı anda hepsini değiştirebilmek mümkün mü?

Teşekkürler.

 

[turist]

Aşağıdaki Kod'u deneyin.

Sub KopruDegistir()
    Dim kopru As Hyperlink
    Dim eskisi As String
    Dim yenisi As String

    eskisi = "http:// www.eskisite.com/xxxyyy"
    yenisi = "http:// www.yenisite.com/xxxyyy"
    For Each kopru In ActiveSheet.Hyperlinks
        kopru.Address = Replace(kopru.Address, eskisi, yenisi)
        kopru.TextToDisplay = Replace(kopru.TextToDisplay, eskisi, yenisi)
    Next
End Sub

 

[shiva]

Çok işime yarayacak çok teşekkürler.

 

[turist]

Sağ olun, iyi çalışmalar.