Toplu "köprü" yolu düzenleme.

[cengawer]

Selamlar;

Benim excel tablomda her fatura bilgi satırından sonra fatura taramasına verdiğim köprüler vardı. Köprü aynı server içindeki PDF dosyalarına vermiştim. Şimdi köprülerinin yollarının başına "C:\Users\xx\AppData\Roaming\Microsoft\" gelmiş. Aslında köprüler bozulmamış sadece köprü yolları başına bu kısayol gelmiş. Toplu olarak değiştirebilirmiyiz?

Şimdiden teşekkrler

Not:Sütunu seçip CTL + H yapınca olmuyor.

 

[cengawer]

yardımcı olabilicek yok mu?

 

[hamitcan]

Aşağıdaki linkleri inceleyin.
http://www.excel.web.tr/f48/makro-ile-coklu-kopru-t52797/sayfa2.html
http://www.excel.web.tr/f50/tum-kopru-adreslerini-bir-kerede-nasyl-duzeltebilirim-t20789.html

 

[cengawer]

Aşağıdaki linkleri inceleyin.
http://www.excel.web.tr/f48/makro-ile-coklu-kopru-t52797/sayfa2.html
http://www.excel.web.tr/f50/tum-kopru-adreslerini-bir-kerede-nasyl-duzeltebilirim-t20789.html

yardımlarınız için teşekkür ederim, yanlız bu konuları inceledim daha önce ama çözemedim

 

[hamitcan]

Dosyanızın küçük bir örneğini ekleyebilir misiniz ?

 

[cengawer]

Hamit bey selamlar;

Örnek olarak ekledim bir dosya. Köprülere bakarsanız hepsinin başına
"C:\Users\vr-22\AppData\Roaming\Microsoft" gelmiş. Listede sadece 5 tane var ama benim listemde en az 15000 link var toplu nasıl silebilirim sadece o "C:\Users\vr-22\AppData\Roaming\Microsoft" kısmını. Yoksa linklerim doğru silince çalışıyor.

 

[hamitcan]

Bu şekilde deneyin.

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

 

[cengawer]

Bu şekilde deneyin.

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

selamlar hamit bey;

Aslında oldu, yanlız bu defada köprülerin boşluk kısmına %20 işareti koyuyor köprüler çalışmıyor yardımlarınız için teşekkür ederim

 

[hamitcan]

Bir de linkteki kodu deneyin.

http://support.microsoft.com/kb/247507

 

[cengawer]

Bir de linkteki kodu deneyin.

http://support.microsoft.com/kb/247507

merhaba hamit bey;

Aslında konu çözüldü ama bu defada köprülerin, yolu belirten örn: \server\bitlis malzeme takip\2013 ocak\.... " olan kısmında boşluklara "%20" koyuyor ve köprüler gene çalışmıyor. Off off tam çözdük derken

 

[therochas]

Merhaba,

Kısmen aynı problemden bende muzdaribim. yeni konu açmak istemediğimden buradan yazdım. Yukarıda hamitcan arkadaşın vermiş oldu kodu değiştiriğ kullandım fakat işe yaramadı.

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

kodunu kullandım olmadı.

örnek excelimi ekledim bendede 800e yakın plaka ve satır var çok uğraştıracak yoksa.

Köprü yolundaki "araç arşivi" yazısından öncekiler silinecek.

yardım lütfen...

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

Sub KopruAdresleriDegistir2()
For Each h In ActiveSheet.Range("B:B").Hyperlinks
    kes = WorksheetFunction.Search("ARAÇ ARŞİVİ", h.Address)
    h.Address = Right(h.Address, Len(h.Address) - kes + 1)
Next
End Sub

 

[therochas]

Teşekkür ederim YUSUF44 işe yaradı sorunum çözüldü. süpersin.

 

[therochas]

son olarak her kopruye bastığımda bu uyarıyı veriyor. sıkıntısız çalışıyor ama hızlı işlem yaparken kapatmak yoruyor insanı

 

[mustafaakdas]

Bu şekilde deneyin.

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

Merhaba kodu kullandığım zaman ekteki gibi hata alıyorum out of memory