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.

_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 (11081) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Changing_Portions_of_Many_Hyperlinks [Cambiando partes de muchos hipervínculos].