Akinél mondjuk van vagy több mint 1000, vagy csak 10 hyperlink vagy hivatkozás egy táblában, akkor hogy cseréli le egy részét simán? Én nem találtam más megoldást, csak a kattintgatást. Ja nem... Még mindig itt van a VBA
Jobb egér, hivatkozás szerkesztése... Ez kicsit sokáig tartott volna
Nade!
Változik a szerver neve, változik az útvonal, akármi... nincs mit csinálni, végig kell gyalogolni mindegyik linken.
Tehát, mielőtt kipróbálod, csinálj mentést! Ha nem tudod hogyan kell, akkor ne próbáld ki! Ez a kis makró, nem biztos hogy jó, vagy bármire is lehet vagy tudnád használni!
Ha valaki ebbe beleszaladna, akkor itt a megoldás.
'kicserélni a linkekeket jó linkekre...
Sub MindenlinkCsereje()
Dim hLink As Hyperlink
Dim wSheet As Worksheet
For Each wSheet In Worksheets
For Each hLink In wSheet.Hyperlinks
hLink.Address = Replace(hLink.Address, "\\régisrv\", "\\újsrv\")
Next hLink
Next
End Sub
Megjegyzések
Megjegyzés küldése