............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ruta de Hipervínculo perdida

Ver el tema anterior Ver el tema siguiente Ir abajo

Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Dom Sep 26, 2010 11:18 am

Hola. He perdido la ruta de los hipervínculos. Encontré esta macro pero al ejecutarla no ocurre nada. No se sobre este lenguaje y por tanto no sé porque falla. Si podéis echarle un vistazo y hacerla funcionar os lo agradecería. Saludos.
Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink
oldtext = "C:\Wil"
newtext = "c:\Iris"
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

Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por GalileoGali el Dom Sep 26, 2010 5:59 pm

Prueba esto:

Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink
oldtext = "C:\Wil"
newtext = "C:\Iris"
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
h.Address = Application.WorksheetFunction.Substitute(h.Address, oldtext, newtext)
h.TextToDisplay = h.Address
End If
Next
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Dom Sep 26, 2010 7:41 pm

Hola. La he probado y sigue sin ocurrir el cambio esperado. Es decir que los hipervínculos siguen apuntando a la carpeta de Wil y no a Iris. Saludos.

Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por GalileoGali el Dom Sep 26, 2010 8:26 pm

Podrias mandar el xls. Reduce la lista de hipervinculos, a unos cuantos, simplemente

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Lun Sep 27, 2010 1:04 pm

Hola. Gracias por el tiempo dedicado a mi consulta. Bien te adjunto el xls. versión 2007. He simulado tres ejemplos de hipervínculo. La idea es que donde dice Wil se sustituya por Iris una vez aplicada la macro. Si llega a funcionar lo aplicaré a los archivos afectados. Saludos y gracias.
Esata es la dirección donde lo he alojado:
[Tienes que estar registrado y conectado para ver este vínculo]

Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por GalileoGali el Lun Sep 27, 2010 7:49 pm

Prueba esto
Código:
Sub HyperLinkChange()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "Wil", "Iris")
'h.TextToDisplay = Replace(h.TextToDisplay, "Wil", "Iris")
Next
End Sub

Código:
'h.TextToDisplay = Replace(h.TextToDisplay, "Wil", "Iris")

Prueba tambien el resultado, quitando el Apóstrofo inicial o dejandolo

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Lun Sep 27, 2010 8:47 pm

¡Funciona! Ha sido estupendo ver que ocurriera, (no fue necesario quitar el apóstrofo). Se me olvido comentarte, si estuvieran los directorios en unidades distinta es decir. C:\Documetos\Wil y por otro lado F:\Documentos\Iris o bien apuntando a redes por ejemplo:
\\Duna\administracion\Iris ¿Como debería ajustar la macro? Para que tuviera en cuenta las unidades al hacer los cambios.
Saludos y una vez más gracias.


Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Mar Sep 28, 2010 9:18 pm

Hola GalileoGali. Iba aplicar la macro, pero se me ha complicado el asunto. Te adjunto un xls con la situación concreta. Verás que en la etiqueta aparece (F:\DirExcel\DirExcel\Archivos Vinculados Mantenimientos\); pero en la modificación lo siguiente: ..\DirExcel\Archivos%20Vinculados%20Mantenimientos\. No dejando sustituir la nueva unidad y carpeta. ¿Cómo puedo superarlo? Para dirigir los vínculos a la unidad y carpeta que estime conveniente. [Tienes que estar registrado y conectado para ver este vínculo]
Gracias por el efuerzo que dedicas a mi consulta. Saludos.

Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por GalileoGali el Mar Sep 28, 2010 10:48 pm

El archivo no baja, No podras establecer lo que quieres de entrada y evitar este "desgaste"

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Miér Sep 29, 2010 6:37 am

Prueba esta, a mi me ha funcionado:
[Tienes que estar registrado y conectado para ver este vínculo]

Por otra parte no pretendía liarte. En el ejemplo adjunto lo verás claramente. Esperaba que tu macro elaborada a baja escala al funcionar la aplicaría al problema de fondo que bien es cierto funciona siempre y cuando lo que te muestro en el xls sean iguales.
Gracias y saludos.

Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por GalileoGali el Miér Sep 29, 2010 7:29 am

Puedes indicar con precision, cual es el cambio que buscas ahora?

"Donde dice: "wrtyuiopasdfghjkl" quiero que diga: "bbasdfffftyujjkkkllñ""

Sería interesante que cuando digas "Prueba esto, A mí me ha funcionado", ocurra que al bajar el archivo aparezca la macro, tal y como resultó efectiva y expreses la posicion Inicial de los hipervinculos, Si te fijas veras que en el archivo que envias no hay ninguna macro, o por lo menos el tiempo que dediqué a buscarla no dio resultados. Intuyo que probablemente debas utilizar Select case.
Aclaracion en este foro: No hacemos macros, sólo contestamos consultas muy puntuales, gralte. a quienes ya estan iniciados en el lenguaje de VBA

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Wilfredo Brenes el Miér Sep 29, 2010 8:26 pm

Hola
Bueno ha valido la pena el esfuerzo en querer solucionarlo. He encontrado una macro y le he hecho unas modificaciones en cuanto a rutas y ha funcionado. Quiero compartirla a través de este foro pues creo que muchos usuarios de excel se encuentran con este tipo de problema en sus hojas. Si se me permite, os las dejo sin más.
Saludos.

Sub FindReplaceHLinks(sFind As String, sReplace As String, _
Optional lStart As Long = 1, Optional lCount As Long = -1)

Dim rCell As Range
Dim hl As Hyperlink

For Each rCell In ActiveSheet.UsedRange.Cells
If rCell.Hyperlinks.Count > 0 Then
For Each hl In rCell.Hyperlinks
hl.Address = Replace(hl.Address, sFind, sReplace, lStart, lCount, vbTextCompare)
Next hl
End If
Next rCell
End Sub

Sub Wil()

FindReplaceHLinks "..\DirExcel\Archivos Vinculados Mantenimientos", "C:\Iris"

End Sub

Wilfredo Brenes

Masculino Cantidad de envíos : 12
Edad : 55
Ciudad - Pais : MADRID ESPAÑA
Version de Excel : Excel 2010
Fecha de inscripción : 01/07/2009

Volver arriba Ir abajo

Re: Ruta de Hipervínculo perdida

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.