Excel - Modificar hipervinculos de todas las celdas-

[danielico3]

Buenos dias, resulta que tengo un excel con muchas celdas y cada una de ellas tiene un vinculo a una web, ejemplo:

http//laweb/esta/la_una.php

Yo necesito modificar este enlace por este otro:

http//nuevo_enlace/otro/la_una.php

Solo tengo que cambiar la primera del enlace... he estado buscando información y se ve que microsoft excel solo deja modificar los hipervinculos manualmente celda por celda... yo tengo miles de celdas, podria estar semanas para realizar este cambio.

quizas con macros pueda solucionar el problema:

Sub modifica_viculos()

Dim hpVinc As Hyperlink
Dim strOldAddress As String, strNewAddres As String

strOldAddress = "D:\My Documents\blog\"
strNewAddres = "D:\My Documents\algodistinto\"

For Each hpVinc In ActiveSheet.Hyperlinks
hpVinc.Address = Replace(hpVinc.Address, strOldAddress, strNewAddres)
Next

End Sub


**********************************************

Pero me da error al ejecutar el macro, sabeis si hay alguna otra forma de hacer esto o donde esta el error de esta macro yo no se mucho de macros...

Muchas gracias
Dani

[danielico3]

He encontrado este codigo en la pagina de microsoft, pero solo me modifica la primera fila de la hoja de excel:

************************************************** ******
Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink

' These can be any text portion of a hyperlink, such as ".com" or ".org".
oldtext = "http://192.168.10.xx/antiguo/consulta_celda.php?/"
newtext = "http://192.168.100.xxx/nuevo/consulta_celda.php?/"

' Check all hyperlinks on active sheet.
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
If h.TextToDisplay = h.Address Then
h.TextToDisplay = newtext
End If
h.Address = Application.WorksheetFunction. _
Substitute(h.Address, oldtext, newtext)
End If
Next
End Sub
************************************************** *******

Alguien sabe acomo retocarlo para que me modifique todas las celdas del documento????'

GRACIAS

[rid501]

Creo que no haría falta una macro. Seleccionas toda la hoja haciendo click en el vértice superior izquierdo de la hoja y a continuación utilizas la opción Reemplazar para sustituir un texto por otro

[danielico3]

hola rid501, lo que me propones esta muy bien para modificar los textos de las celdas, lo que yo necesito es modificar los hipervinculos que llevan las celdas, con esa opcion de reemplazar no encuentra los vinculos.

Gracias de todas formas por contestar

[danielico3]

Puede ser que hay demasiados datos o que los vinculos tengan demasiados caracteres porque me suele dar un error de falta de memoria cuando ejecuto la macro??