¿Cómo buscar y reemplazar texto específico en cuadros de texto en Excel?

La herramienta Buscar y Reemplazar es una característica esencial para actualizar rápidamente el contenido o las fórmulas de las celdas dentro de una hoja de cálculo. Sin embargo, manejar el texto dentro de múltiples cuadros de texto puede ser un desafío si estás limitado a actualizaciones manuales. Si necesitas encontrar texto específico en los cuadros de texto y reemplazarlo de manera eficiente, este tutorial te guiará a través del uso de código VBA para realizar esta tarea en solo unos pocos pasos.

Buscar y reemplazar texto específico en múltiples cuadros de texto

Buscar y reemplazar texto específico en múltiples cuadros de texto

Puedes buscar y reemplazar texto manualmente uno por uno, pero este proceso se vuelve tedioso y consume mucho tiempo cuando se trata de múltiples cuadros de texto. El siguiente código VBA proporciona una manera eficiente de completar esta tarea de una sola vez.

1. Activa tu hoja de cálculo y mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Buscar y reemplazar texto específico en cuadros de texto de la hoja de trabajo actual

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que ingreses el texto antiguo que deseas reemplazar. Ver captura de pantalla:

4. Continúa haciendo clic en Aceptar, y en este cuadro de diálogo, escribe el nuevo valor de texto que deseas. Ver captura de pantalla:

5. Luego haz clic en el botón Aceptar, los valores antiguos han sido reemplazados con los nuevos valores que ingresaste en la hoja de trabajo actual. Ver capturas de pantalla:

Artículos relacionados:

¿Cómo buscar y reemplazar texto en títulos de gráficos en Excel?

¿Cómo buscar y reemplazar texto dentro de comentarios en Excel?

¿Cómo cambiar varias rutas de hipervínculos a la vez en Excel?