|
|
Hola bueno dias, tengo una inquietud como puedo hacer para modificar en masa una buena cantidad de hipervinculos que tengo en un libro lo que necesito es modificar la celda destino por ejemplo si tengo el hipervinculo que al darle click pase a la celda F10 del al hoja 1 que en lugar de F10 sea X21 son como 40 hipervinculos en la hoja se podra hacer alguna macro para esto, consegui esta macro buscando en la web pero no le encuentro como decirle que me modifique solo los rango de la celda espero me comprendas aqui esta la macro. es de otro experto pero creo que no esta activo espero me ayudes saludos.
Sub ChangeAddress()
' Store the old hyperlink so you can get its properties.
'
Set oldlink = Worksheets("cc").Cells(1, 1).Hyperlinks(1)
' Store the old Anchor and SubAddress properties. Note that the
' oldAddress line is optional and that the oldAnchor line must
' be preceded by "Set" since it is using a Range.
'
Set oldAnchor = oldlink.Range
oldAddress = oldlink.Address
oldSubAddress = oldlink.SubAddress
' Create the new link using the new Address and the original
' Anchor and SubAddress.
Set newLink = Worksheets("Sheet1").Hyperlinks.Add( _
Anchor:=oldAnchor, _
Address:=oldAddress, _
SubAddress:=oldSubAddress)
End Sub
|