Excel'de Toplu Köprü Yolu Değiştirme

[f1delete]

Merhaba,

Excel 2013'te yaklaşık 400 tane ağ içerisindeki dosya köprü yolu değişmiş. Köprü yolu "../../../../sarbel/AppData/Roaming/Microsoft/Excel/GELEN%20EVRAK/20180601007.pdf" şeklinde oluşmuş. Bu yoldan "../../../../sarbel/AppData/Roaming/Microsoft/Excel/" kısmını silince köprü tekrar çalışıyor. Fakat 400 tane köprüyü teker teker değiştiriyoruz. Bunun kısa yolu var mı acaba?

Yardımlarınız için şimdiden teşekkür ederim.

 

[turist]

Köprüler bir sayfada ve aynı sütunda yer alıyorsa;

Önce sütundaki verileri seçin,
Seçili durumdayken Klaveyede Ctrl Tuşuna basılı tutarak "H" tuşuna basın.
"Bul/Değiştir" Penceresi çıkacaktır.
"Değiştir" sekmesini seçin.
Birinci bölüme : ../../../../sarbel/AppData/Roaming/Microsoft/Excel/
yazın
İkinci Bölümü tamamen BOŞ bırakın.
"Hepsini değiştir" i tıklayın.

Sonucu gözlemleyin.

 

[f1delete]

Köprüler aynı sütunda bulunuyor. Fakat köprü yapılan hücre isimleri evrak kayıt numaraları. Bu yüzden bu işe yaramıyor.

Sanırım fakat forumda farklı bir konudan aradığımı buldum.

Sub KopruAdresleriDegistir1()
eski = "C:\Users\vr-22\AppData\Roaming\Microsoft"
yeni = ""
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, eski, yeni)
Next
End Sub

VBA kodu ile hepsini birden düzelttim.

 

[turist]

Süper, çözümü bulmuşsunuz....

 

[necatidkbyr]

Köprüler aynı sütunda bulunuyor. Fakat köprü yapılan hücre isimleri evrak kayıt numaraları. Bu yüzden bu işe yaramıyor.

Sanırım fakat forumda farklı bir konudan aradığımı buldum.

Sub KopruAdresleriDegistir1()
eski = "C:\Users\vr-22\AppData\Roaming\Microsoft"
yeni = ""
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, eski, yeni)
Next
End Sub

VBA kodu ile hepsini birden düzelttim.

Kod çok işime yaradı çok teşekkür ederim ))

 

[mustafaakdas]

Merhaba ben de köprü problemi yasıyorum 3-4 bin kayıt var ekteki gibi hepsine nasıl link oluşturabilirim yada yeni kayıt yaptıgım zaman otomatik köprü oluşturabilir miyim a stununda sora no var 1 no ya tıklayınca 2022/00012345678910111213 köprüsünün açılmasını istiyorum bunu toplu halde nasıl yapabilirim yardımınızı rica ederim.

 

[turboaksesuar]

=KÖPRÜ(A1)