excel tüm köprü adreslerini bir kerede nasıl düzeltebilirim?

[muhendisbey2017]

Excel tüm köprü adreslerini bir kerede nasıl düzeltebilirim? kod kullanmayı bilmiyorum, çok acil , lütfen yardım edin.

 

[Haluk]

Bu kadar açıklamayla nasıl bir cevap bekliyorsunuz ki?

Örnek dosya ekleyin ve düzeltilmiş köprü adreslerinden örnek verin.


.

 

[muhendisbey2017]

Excelde toplamda 1000 den fazla köprü bulunmaktadır, dün akşam tüm köprüler çalışır durumda iken şu anda dosyaları bulamıyor ve köprü adresleri olarak C:\Users\astas1\AppData\Roaming\Microsoft\Excel burayı gösteriyor , daha önce kullndığım ve dosyaların bulunduğu klasör adı C:\Users\astas1\Desktop\155-255 burada , tüm excelde ki köprü adreslerini nasıl otomatik değiştirebilirim

 

[Haluk]

Aşağıdaki kodu deneyin ..... Aktif sayfadaki linkleri sizin belirttiğiniz şekilde düzenler.

Dosyalarınız bende olmadığı için deneme şansım yok tabii....

Sub Test()
    Dim Link1 As String, Link2 As String, i As Integer
    Link1 = "C:\Users\astas1\AppData\Roaming\Microsoft\Excel"
    Link2 = "C:\Users\astas1\Desktop\155-255"
    Application.ScreenUpdating = False
    For Each myLink In ActiveSheet.Hyperlinks
        i = i + 1
        myLink.Address = Replace(myLink.Address, Link1, Link2)
    Next
    Application.ScreenUpdating = True
    MsgBox "Toplam " & i & " adet link güncellendi !"
End Sub

.

 

[Merhum İdris SERDAR]

Sorunuzu yanlış yere açmıştınız. İlgili yere taşıdım.

 

[muhendisbey2017]

çalışma ektedir, denedim ama değişmedi köprü adresleri

 

[Haluk]

Kodda verilenler yerine aşağıdaki satırları kullanın.

    Link1 = "\AppData\Roaming\Microsoft\Excel"
    Link2 = "\astas1\Desktop\155-255"

.

 

[muhendisbey2017]

Hocam denedim , yine olmadı 135 adet link güncellendi diyor ama açmıyor

 

[Haluk]

Linkler yenileriyle değişmedi mi?

.

 

[muhendisbey2017]

linkler yenileri ile değişmedi. çok bunalttı vallaha beni kusura bakmayın sizde

 

[netzone]

Merhaba,

Göndermiş olduğunuz dosyadaki bağlantılara bakacak olursak

F3 de yer alan linki incelediğimizde;
..\...\ >>> DEPO STOK (Klasörü içinde) \ DEPO-ARA MONTAJLARI (Klasörü içinde) \ DEPO-ANA TEKER (Klasöründe) \ 9026020.PDF dosyasına erişmeye çalıştığını görmekteyiz.

Söz konusu yukarıda belirtmiş olduğunuz gibi MASA ÜSTÜ'nde yer alan 155-255 Klasörü içinde değilmişler gibi görünüyor.
Siz yinede MASA ÜSTÜ'nde yer alan 155-255 (Klasörü içinde) DEPO STOK (Klasörü içinde) \ DEPO-ARA MONTAJLARI (Klasörü içinde) \ DEPO-ANA TEKER (Klasöründe) \ 9026020.PDF dosyasına erişmek isterseniz @Haluk Bey'in vermiş olduğu kodları aşağıdaki gibi düzenlediğimizde Linklerdeki değişimi gözlemleyeceksiniz.

(!) Biz örnek dosyayı incelerken, örnek dosyanın kayıtlı olduğu yer sizin dosyanızı açtığınız yer ile aynı olmadığından linklerin yolu değişebilir (!)

../ Bir üst klasörü ifade eder (Bizim örnek dosyamız kullanıcı içinde indirilenler de ye aldığından masaüstü klasörüne bir üst klasöre çıkarak erişmiş oluyoruz. )
.../../ iki klasör üstünü ifade eder (Varolan bağlantılar kullanıcı'nın da üst klasöründe olduğu için bu şekilde bağlantı sağlamış oluyor.)


@Haluk Bey'in vermiş olduğu kodlar çalışıyor. Öyle görünüyor ki sizin bağlantınız da ki kesme işaretleri F3 de \ iken F4, G4, F5 de / olarak yazıldığından eşleşmeyi dönüştüremiyor.

İyi çalışmalar.

Sub Test()
    Dim Link1 As String, Link2 As String, i As Integer
    Link1 = "../../AppData/Roaming/Microsoft/Excel"
    Link2 = "../Desktop/155-255"
    Application.ScreenUpdating = False
    For Each myLink In ActiveSheet.Hyperlinks
        i = i + 1
        myLink.Address = Replace(myLink.Address, Link1, Link2)
    Next
    Application.ScreenUpdating = True
    MsgBox "Toplam " & i & " adet link güncellendi !"
End Sub

 

[muhendisbey2017]

hocam vermiş olduğunuz kod çalışıyor ama sayfada bazı köprüleri düzeltiyor , bazılarını değiştirmiyor , 135 link güncelledi mesela , sadece 15-20 tanesini değiştirdi ve çalışıyor ama diğer köprüler hala aynı eski yolu gösteriyor.

 

[Haluk]

netzone nickli arkadaşın belirttiği "/" ve "\" durumunu dikkate almak için bir de aşağıdaki kodu deneyin ...

Sub Test2()
    Dim Link1 As String, Link2 As String, i As Integer
    Dim myLink As Hyperlink
    Link1 = "\AppData\Roaming\Microsoft\Excel"
    Link2 = "\astas1\Desktop\155-255"
    Application.ScreenUpdating = False
    For Each myLink In ActiveSheet.Hyperlinks
        i = i + 1
        myLink.Address = Replace(myLink.Address, "/", "\")
        myLink.Address = Replace(myLink.Address, Link1, Link2)
    Next
    Application.ScreenUpdating = True
    MsgBox "Toplam " & i & " adet link güncellendi !"
End Sub

.

 

[muhendisbey2017]

Yardımlarınız için teşekkür ederim , sorunum çözüldü, @Haluk , @netzone