Kerstine tiene una hoja de trabajo con muchos, muchos hipervínculos diferentes. Se pregunta si hay alguna forma de reemplazar solo una parte de cada enlace.

Por ejemplo, le gustaría cambiar cualquier instancia de http://www.mysite.com/ por c: / documents / mycopy /. Si hay algo adicional en los enlaces, esa parte debería permanecer. Entonces, por ejemplo, si el enlace original es http://www.mysite.com/thispage.html, se cambiaría a c: /documents/mycopy/thispage.html.

Esto se puede hacer fácilmente con una macro. La razón es que los hipervínculos se pueden examinar y cambiar utilizando funciones de cadena normales.

La siguiente macro proporciona una forma sencilla de abordar el problema.

Sub EditHyperlinks()

Dim lnkH As Hyperlink     Dim sOld As String     Dim sNew As String

sOld = "http://www.mysite.com"

sNew = "c:/documents/mycopy/"



For Each lnkH In ActiveSheet.Hyperlinks         lnkH.Address = Replace(lnkH.Address, sOld, sNew)

lnkH.TextToDisplay = Replace(lnkH.TextToDisplay, sOld, sNew)

Next End Sub

Esta rutina recorre todos los hipervínculos en la hoja de trabajo actual y realiza modificaciones, si es necesario, en cada uno. Tanto el hipervínculo como el texto mostrado se cambian, según corresponda. Todo lo que necesita hacer es realizar cambios en las cadenas sOld y sNew para especificar qué está buscando y con qué desea reemplazarlo.

Debe tener en cuenta que esta macro utiliza la función Reemplazar, que está integrada en las versiones posteriores de VBA. Si está utilizando una versión anterior que no incluye la función Reemplazar (lo sabrá porque obtendrá un error cuando intente activar la macro), entonces deberá crear su propia función Reemplazar que reemplace una parte de un cadena con otro. Estas funciones se han tratado en otros números de ExcelTips.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3358) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Changing_Portions_of_Many_Hyperlinks [Cambiar partes de muchos hipervínculos].