Pressi ALT + F11 ning avanevas VBA-rakenduses vali Insert > Module ja lisa järgmine koodirida:
Sub ReplaceHyperlinks()
'Updateby20140220
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "Hyperlinkide asendaja"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Vana link:", xTitleId, "", Type:=2)
xNew = Application.InputBox("Uus link:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub
Seejärel vajuta F5 ning sisesta aknasse Vana link lingi osa, mida soovid vahetada ning sellele lisaks ka uus link.

Programm teeb su töölehel kõik vajalikud muudatused ise ära.

The post Veeru hüperlinkide muutmine Excel 2016 first appeared on Digitugi.