25/10/2013, 10:26
|
| | Fecha de Ingreso: enero-2013
Mensajes: 93
Antigüedad: 11 años, 11 meses Puntos: 0 | |
Cambiar ruta de Hipervinculos excel 2010 Buen día.
Actualmente estoy trabajando con excel 2010, tengo un archivo llamado Archivo 2013 que tiene Hipervinculos.
Me han encargado copiar las celdas de Archivos 2005 al 2012, en cada hoja de Excel vienen hipervinculos y cada hoja esta guardada en su carpeta por año.
Lo que quiero es que al copiar las celdas del año 2005 en adelante a la hoja del año 2013 se muevan los hipervinculos.
Mi jefe me dijo que haga una macro pero hay dos cosas:
1.- Sera mi primer macro.
2.- Ya ví como hacer macros, tengo una idea, pero si utilizo un ejemplo donde le indique la ruta antigua y la nueva ruta:
Sub CambiarCarpetaHipervinculos()
Dim Antes As String, Ahora As String, Salto As Hyperlink
Antes = "pon aqui la ruta a la ubicacion ANTERIOR de los documentos"
Ahora = "por aqui la ruta a la ubicacion ACTUAL de los documentos"
For Each Salto In ActiveSheet.Hyperlinks
If InStr(1, Salto.Address, Antes, 1) Then
If Val(Application.Version) > 8 Then _
If Salto.TextToDisplay = Salto.Address Then Salto.TextToDisplay = Ahora
Salto.Address = Application.Substitute(LCase(Salto.Address), LCase(Antes), Ahora)
End If
Next
End Sub
Como se modificaran las rutas? ya que no siempre sera la misma ruta antigua.
Ayuda por favor! |