EXCEL TOPLU LİNK DEĞİŞTİRME

Katılım
23 Nisan 2018
Mesajlar
4
Excel Vers. ve Dili
ingilizce
5 BİNİ AŞKIN BİR LİNK SİSTEMİM VAR, SİSTEMDE BİR DEĞİŞİKLİK YAPMAYA KARAR VERDİM VE BU LİNKLERİN ADRESİLİNİ BELİRLİ BİR YERE KADAR DEĞİŞTİRMEK İSTİYORUM, BİR KAÇ YOL DENEDİM SONUCA VARAMADIM, GEREKLİ BİLGİLER EKTEDİR; KULANNDIĞIM YOL, AMA ADRES BİR TÜRLÜ DEĞİŞMİYOR

Sub KopruAdresleriDegistir1()
End Sub
eski = "192.168.1.134\e\E-PLAN ?EMALAR\S?PAR??LER\"
yeni = "Z:\E-PLAN ?EMALAR\S?PAR??LER"
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, eski, yeni)
Next
End Sub
 

muratboz06

Destek Ekibi
Destek Ekibi
Katılım
23 Mart 2017
Mesajlar
568
Excel Vers. ve Dili
Office365 TR
ikinci satırdaki End Sub ifadesini siliniz. Kodunuz çalışıyor.
 
Katılım
23 Nisan 2018
Mesajlar
4
Excel Vers. ve Dili
ingilizce
teşekkür ederim , sorun çözüldü
 
Üst