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

[omertekin]

Excelde yüzlerce hücreye köprü ekleyerek, tek tıklama ile ilgili klasöre gidiyordum.
Fakat klasör yapısı değiştiği için tüm köprüler(linkler) çalışmaz hale geldi.

Örneğin A1 hücresinde "GIT" verisine, c:/excel/ahmet/a.xls diye bir köprü atadım.
yine B1 hücresinde "GIT" verisine, c:/excel/mehmet/c.xls VS.
VE bunun gibi yüzlerce c:/excel/...... köprüsü atadım.
şimdi ana klasör olan "excel" klasörünün ismini windows ortamından "personel" olarak değiştirdiğimde,
buna bağlı olan linklerinde (köprülerinde) c:/personel/ahmet/a.xls olarak değişmesini istiyorum.
Bu otomatik olarak mümkün olmadığına göre , bul değiştir gibi bir komutla veya başka bir yolla yüzlerce köprüdeki, "excel" klasör ismini nasıl "personel" yapabilirim.
umarım bana yardımcı olabilirsiniz, zira koca personel dosyası köprüleri çalışmıyor artık. Acil yardımlarınız bekliyorum. Sevgiler omertekin@gmail.com

 

[ockucukay]

bul değiştir penceresinde (Ctrl+F) bul kısmına /excel/, değiştir kısmına /personel/ yaparak deneyin.

 

[ockucukay]

cevaba ek: bu işlemi sadece köprülerin olduğu sütunu işaretleyerek yapın.örenğin g sütunuysa g başlığına tıklayıp tüm sütunu seçin.

 

[veyselemre]

Sub KopruAdresleriDegistir()
    For Each h In Worksheets(1).Hyperlinks
        h.Address = Replace(h.Address, "excel", "personel")
    Next
End Sub

 

[omertekin]

maalesef dostlar..

teşekkür ederim ama maalesef CTRL+F ile açtığımız bul değiştir özelliği köprü kelimelerini yakalayamıyor. acaba üzerinde köprü bulunan verilerin hücrede köprü adreslerinin görüntülenmesini ve bul değiştir ile değişiklik yapıldıktan sonra tekrar ver i hallerine dönüştürülmesi mümkün olabilir mi?

köprünün şu anki hali:
C:\Documents and Settings\fatma_ozhan\Application Data\Microsoft\Excel\TURKCELL\_TCELL 2006 TESLİM EDİLENLER\BURSA\60787 KIZYAKUP MAHALLESI

köprünün dönüşmesini istediğim hali:
TURKCELL\_TCELL 2006 TESLİM EDİLENLER\BURSA\60787 KIZYAKUP MAHALLESI

 

[omertekin]

kod kullanmayı bilmiyorum.

Veyselemre teşekkür ederim ama kod kullanmayı bilmiyorum.
bir makro butonu oluşturup altına senin gönderdiğin ifadeyi yazsam olur mu acep?

 

[omertekin]

gönderdiğin kodu bir butonun altına girdim ama 3.satırda hata oluştu!!!


Sub KopruAdresleriDegistir()
For Each h In Worksheets(1).Hyperlinks
***bu satırda hata oluştu*** h.Address = Replace(h.Address, "C:\Documents and Settings\fatma_ozhan\Application Data\Microsoft\Excel\TURKCELL", "TURKCELL")
Next
End Sub

 

[veyselemre]

Şöyle deneyin,

Sub KopruAdresleriDegistir1()
    eski = "Documents and Settings\fatma_ozhan\Application Data\Microsoft\Excel\TURKCELL"
    yeni = "TURKCELL"
    For Each h In Worksheets(1).Hyperlinks
        h.Address = Replace(h.Address, eski, yeni)
    Next
End Sub

 

[omertekin]

kod hatası

bu kezde end sub kısmında hata veriyor dostum.

 

[omertekin]

Dostlar Benİm Sorunum Hala Devam Edİyor...

Başka bir fikri olan varsa, yardımcı olursa sevinirim...

Veyselemre dostum, kod işini çözemedim. son gönderdiğin kodun son satırı olana end sub'ta hata alıyorum.
ben mi yanlış yaptım onuda bilmiyorum.
kod kullanımı ile ilgili bilgi verirsen sevinirim.

ben bir buton oluşturuyorum. buna bir makro atıyorum, makroya düzenle diyerek senin gönderdiğin kodu makronun altına aynen yazıyorum.
Yanlış mıyım?

sevgiler........