kopru link verme hk.

[zetkatamet]

Arkadaslar,
Simdilik 50 satirlik fatura listem bulunmakta. Faturalarin hepsini pdf olarak tarattim. Excelde tek tek her fatura icin kopru ile link verdim. Ilk etapta faturalar asagidaki yolda idi.

C:\BELGELERİM\FATURALAR

Daha sonra FATURALAR klasorunu tasimam gerekti ve suan linkler hata veriyor, tek tek hepsini duzeltmek zamanimi alacak. Hizli bir sekilde hepsini nasil duzeltebilirim. Yada en bastan bir yontem varmidir, formul vs. klasor nereye tasinirsa tasinsin link dogru adrese gitse.
Umarim bir yontemi vardir.

Herkse iyi calismalar.

 

[Merhum İdris SERDAR]

.

Sub HyperLinkdeg()
   Dim Eskiadres As String
   Dim Yeniadres As String
   Dim hyp As Hyperlink


       Eskiadres = "C:\BELGELERİM\FATURALAR" 'Eski adres yazılacak
       Yeni Adres = "D:\Faturalar" 'Yeniadres yazılacak


       For Each hyp In ActiveSheet.Hyperlinks
       x = InStr(1, hyp.Address, Eskiadres)
       If x > 0 Then
           If hyp.TextToDisplay = hyp.Address Then
                hyp.TextToDisplay = Yeniadres
           End If
           hyp.Address = Application.WorksheetFunction. _
           Substitute(hyp.Address, Eskiadres, Yeniadres)
       End If
       Next
End Sub

Bu şekildeki kodu deneyin.



.

 

[zetkatamet]

sn.yurttas cok tesekkur ederim.
makrosuz en bastan yapilabilecek bir islem yok sanirim.
iyi calismalar.
saygilar.

 

[Merhum İdris SERDAR]

sn.yurttas cok tesekkur ederim.
makrosuz en bastan yapilabilecek bir islem yok sanirim.
iyi calismalar.
saygilar.

.

Find / Replace ---- Bul / Değiştir yöntemini uygulayın.

.