Una de las herramientas muy útiles que se proporcionan en Excel es Buscar y reemplazar, que le permite ubicar y cambiar la información almacenada en las celdas. Sin embargo, un lugar en el que Buscar y reemplazar no funcionará es la información almacenada en los encabezados o pies de página de las hojas de trabajo.

La única forma de manejar la búsqueda y reemplazo de información en un encabezado o pie de página es usar una macro. Es una tarea bastante trivial acceder a lo que está almacenado en las distintas partes del encabezado y pie de página, verificar lo que desea encontrar y luego reemplazarlo con texto nuevo. La siguiente macro proporciona un ejemplo.

Sub FnR_HF()

Dim sWhat As String, sReplacment As String     Const csTITLE As String = "Find and Replace"



sWhat = InputBox("Replace what", csTITLE)

If Len(sWhat) = 0 Then Exit Sub     sReplacment = InputBox("With what", csTITLE)



With ActiveSheet.PageSetup         ' Substitute Header/Footer values         .LeftHeader = Application.WorksheetFunction.Substitute( _                       .LeftHeader, sWhat, sReplacment)

.CenterHeader = Application.WorksheetFunction.Substitute( _                         .CenterHeader, sWhat, sReplacment)

.RightHeader = Application.WorksheetFunction.Substitute( _                        .RightHeader, sWhat, sReplacment)

.LeftFooter = Application.WorksheetFunction.Substitute( _                       .LeftFooter, sWhat, sReplacment)

.CenterFooter = Application.WorksheetFunction.Substitute( _                         .CenterFooter, sWhat, sReplacment)

.RightFooter = Application.WorksheetFunction.Substitute( _                        .RightFooter, sWhat, sReplacment)

End With End Sub

Observe cómo la macro realiza los reemplazos en las tres partes del encabezado y las tres partes del pie de página.

Si prefiere no usar su propia macro, o si desea un Buscar y reemplazar con más funciones para Excel, podría considerar el complemento gratuito FlexFind de Excel MVP Jan Karel Pieterse:

http://www.jkp-ads.com/officemarketplaceff-en.asp

Esto agrega búsquedas regularmente, pero también búsquedas en muchas otras áreas, incluidos encabezados y pies de página.

_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 (3388) 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-Find_and_Replace_in_Headers [Buscar y reemplazar en encabezados].