Gerry tiene un libro de trabajo que contiene 22 hojas de trabajo. Cada hoja de trabajo tiene alrededor de 20 comentarios. Algunos de los comentarios hacen referencia a una división de la empresa.

Le gustaría hacer una búsqueda masiva y reemplazar los comentarios para encontrar cada referencia (por ejemplo, «División ABC») y reemplazarla con otra cosa (por ejemplo, «subsidiaria XYZ»).

No hay forma de hacer esto sin usar una macro. Las capacidades normales de Buscar y Reemplazar en Excel no le permiten buscar texto dentro de los comentarios, pero puede usar comandos de macro. La siguiente es una macro simple para hacer el reemplazo:

Sub ReplaceComments()

Dim cmt As Comment     Dim wks As Worksheet     Dim sFind As String     Dim sReplace As String     Dim sCmt As String

sFind = "ABC Division"

sReplace = "XYZ subidiary"



For Each wks In ActiveWorkbook.Worksheets         For Each cmt In wks.Comments             sCmt = cmt.Text             If InStr(sCmt, sFind) <> 0 Then                 sCmt = Application.WorksheetFunction. _                   Substitute(sCmt, sFind, sReplace)

cmt.Text Text:=sCmt             End If         Next     Next     Set wks = Nothing     Set cmt = Nothing End Sub

Las líneas clave aquí son las que establecen las variables sFind y sReplace.

Debe configurarlos para que reflejen lo que está buscando y con lo que desea reemplazarlo, respectivamente. La macro recorre cada comentario en cada hoja de trabajo del libro de trabajo actual y realiza los cambios en cualquier lugar donde se encuentren.

_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 (3534) 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 posterior) aquí:

link: / excelribbon-Finding_and_Replacing_Text_in_Comments [Encontrar y reemplazar texto en comentarios].