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/ubpriiEn 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.