Cambiar masivamente la hoja en un hipervínculo
Saludos...
En la hoja 1 tengo una serie de hipervínculos que direccionan a diferentes celdas dentro de la misma hoja 1. Necesito copiar la hoja 1 en otra hoja (La hoja 1 funciona como una plantilla que necesito utilizar varias veces) sin embargo al pegar los datos en la nueva hoja los hipervínculos siguen direccionando a la hoja 1 y necesito que sigan funcionando a las misma celdas pero dentro de la hoja nueva.
Agradezco su ayuda.
1 Respuesta
Ejecuta la siguiente macro en la hoja nueva
Sigue las Instrucciones para ejecutar la macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Cambia en la macro el nombre de "Hoja2" por el nombre de tu hoja nueva, y también cambia "Hoja1" por el nombre de tu hoja plantilla
Sub hipervinculo() 'cambia de hoja los hipervínculos 'por.dam nueva = "Hoja2" anterior = "Hoja1" For Each hiper In Worksheets(nueva).Hyperlinks hiper.SubAddress = Replace(hiper.SubAddress, anterior, nueva) Next End Sub
Saludos.Dam
Si es lo que necesitas.
