Köprüler Çalışmıyor

Katılım
1 Kasım 2009
Mesajlar
1
Excel Vers. ve Dili
2003
Merhaba arkadaşlar , Excel deki çalışma sayfasındaki tüm köprüler alttaki hatayı veriyor. "..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel" e kadar silersek köprü çalışıyor , Ama sayfada baya bir köprü var bunların hepsini aynı anda nasıl kaldırabilirim yardımcı olursanız sevinirim.

..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel\FNSS\FNSS%20TEKLİFLER\Kutlu%20UMUNÇ\FNSS%20Mail%20Teklif%202018-291
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Bu şekilde deneyin.

Kod:
Sub Kopru_Adres_Degistir()
    
    Dim a As Hyperlink
    
    For Each a In ActiveSheet.Hyperlinks
        a.Address = Replace(a.Address, "..\..\..\Users\Hüseyin%20Eker\AppData\Roaming\Microsoft\Excel", "")
    Next
            
End Sub
 
Üst