Después de enviar el mensaje he pensado hacer lo que tu dices, pero me he dado cuenta que los enlaces los tengo insertados como hipervínculos La única solución es la de Oskar, empezar a cambiarlos uno a uno , son aproximadamente 1400 enlaces x2 (orden de lectura mutante en grapas y lo mismo en tomos) y otra vez x2 pues lo he de cambiar en el hipervinculo y en el texto (aquí si que puedo utilizar lo de buscar y reemplazar) para volverlo a subir aquí aproximadamente cambiar 5600 líneas de excel y confiar en que mis nietos puedan acabar el trabajo.
Gracias a los dos
Te atreves con macros de Excel?
Yo te recomendaría, primero hacer una copia de la hoja por si acaso, y después hacer una macro. Para hacer una macro, selecciona en la cinta de opción el grupo de opciones cinta, luego el botón macro, escribir el nombre de la macro (macro1 está bien), y dar a crear. Entonces se te abrirá una pantalla similar a la siguiente, salvo porque la parte recuadrada no estará:
http://prntscr.com/ubprii
En ese momento, tienes que escribir en la parte del recuadro el siguiente código para que quede como la imagen (ten cuidado con no borrar en Sub nombre_macro() y el End Sub y que sean respectivamente la primera y la última línea). En el código que te paso en las filas 6 y 7 tienes que sustituir el valor 10 que he puesto en el ejemplo por los números de la fila y columna más alta donde tengas enlaces (en las columnas, la columna A = 1, B = 2, C = 3, y así sucesivamente)
Dim Sheet As Worksheet
Set Sheet = Application.ActiveSheet
For RowIndex = 1 To 10 'Sustituir el valor 10 por la cantidad de filas que tengas
For ColumnIndex = 1 To 10 'Sustituir el valor 10 por la cantidad de columnas que tengas
Dim cell As Range
Set cell = Sheet.Cells(RowIndex, ColumnIndex)
If cell.Hyperlinks.Count <> 0 Then
Dim h As hyperlink
Set h = cell.Hyperlinks(1)
h.Address = Replace(h.Address, "www.universomarvel.com/fichas", "fichas.universomarvel.com")
End If
Next
Next
Después das al botón de "play" y se deberían cambiar todos los hipervínculos. Si algo sale mal, recupera la copia de seguridad, y me dices por aquí, a ver qué puede pasar.
Muchas gracias por tu paciencia. Para empezar tengo un excel bastante antiguo (creo que 2007) así que todo lo que comentas de grupo de opciones y demás no lo encuentro. He hecho alguna que otra macro, pero muy sencillas y utilizo combinaciones de teclas como son Alt+F11 para abrir el Editor de Visual Basic (VBE) luego copio el texto y para finalizar presiono Alt + Q para volver a Excel. No se si será lo mismo, pues donde dices en Sub nombre_macro, no puedo poner el nombre, pues no lo se. Por otra parte, no me queda muy claro lo de sustituir el valor 10 por los números de la fila y columna más alta donde tengas enlaces. Te he puesto una página del libro en spoiler para ver que número debería poner en la captura.
Sorry but you are not allowed to view spoiler contents.
Si los administradores piensan que todo esto no debería ir aquí puedo borrar mis mensajes sin ningún problema y continuar en el hilo que me digan.
Gracias.