Köprülerdeki Görüntülenecek Metni Değiştirme

[excelse04]

Merhaba,

Bilgisayarımda Deneme ve Deneme_1 klasörleri içerisindeki klasörlerin (A,B,C,D) adreslerini excel e kopyaladım. Bu klasörlerden birkaç tane var sorunumu anlatmak için deneme ve A,B,C,D ifadelerini kullandım.
Adresler excel de aşağıdaki resimdeki gibi gözükmektedir. Ancak ben bu köprülerin görüntülenecek metinlerini A klasörlerinin hepsini A klasörü şeklinde gözükmesini istiyorum ve bunu toplu şekilde yapmak istiyorum. Bunun kısayolu olarak VBA kodu var mıdır acaba yardımcı olabilir misiniz?

https://hizliresim.com/jpr9ckn (Klasör adreslerini excel e kopyaladığım hali)
https://hizliresim.com/1jkhqul (Toplu şekilde A klasörü yazacak şekilde biçimlendirmek istediğim hali)

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyebilirsiniz.

Option Explicit

Sub Hyperlink_TextToDisplay_Update()
    Dim My_Link As Hyperlink, My_Address As String
   
    For Each My_Link In ActiveSheet.Hyperlinks
        My_Address = VBA.CreateObject("Scripting.FileSystemObject").GetFolder(My_Link.Address).Name
        My_Link.TextToDisplay = My_Address & " Klasörü"
    Next
   
    MsgBox "Köprü isimleri güncellenmiştir.", vbInformation
End Sub

 

[ccuneyt13]

Merhaba,

Aşağıdaki kod sayfada yer alan tüm köprülerin metinlerini A Klasörü olarak değiştirebilirsiniz.

Sub Kopruisimlerinidegistir()

Dim h As Hyperlink

For Each h In ActiveSheet.Hyperlinks
    h.TextToDisplay = "A Klasörü"
'
Next h

End Sub

Bir alttaki kod ise belirli bir metin içeren köprülerin metinlerini değiştiriyor.
Kodda "Örnek Metin Girin" yazan yere değiştirmek istediğiniz köprülerdeki ortak bir metin ifadesini girebilirsiniz.
Örnek: "Deneme\A" gibi.

Sub Kopruisimlerinidegistir2()

Dim h As Hyperlink

For Each h In ActiveSheet.Hyperlinks
  If InStr(1, h.TextToDisplay, "Örnek Metin Girin", vbTextCompare) > 0 Then
    h.TextToDisplay = "A Klasörü"
  End If
Next h

End Sub

Umarım işinize yarar.

 

[excelse04]

@Korhan Ayhan ve @ccuneyt13 çok teşekkür ederim, göndermiş olduğunuz kodlar işime yaradı.