Macro excel para buscar texto dentro de otro

Las búsquedas en excel son algo muy cotidiano, pero no siempre es sencillo, imagina tener que buscar una cadena de texto especifica dentro de una enorme plantilla contable en excel y que ademas podría estar contenida dentro de mas texto, así que ahora te mostrare una macro para buscar texto dentro de otro texto, parece complicado, pero ya veras que no lo es tanto.

Descargar MegaPack Contable en Excel

Aunque existen funciones de excel que te pueden decir si una cadena de texto esta contenida dentro de otra ( ENCONTRAR , HALLAR ), estas tienen la limitante que solo aplican a un texto en especifico, que pasa si deseas hacer la búsqueda en muchas cadenas de texto que están en diferentes celdas.?

Esto se puede resolver fácilmente con una macro, usaremos una función de VBA que hace lo mismo que ( ENCONTRAR Y HALLAR ) pero a su vez se ejecutara esta función mediante un ciclo que recorrerá cierta cantidad de filas.

Macro para encontrar texto en otro

Option Explicit

Sub BuscaTexto()
  Dim r As Range
  Dim tx As String
  Dim uFila As Long

  uFila = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

  tx = InputBox("Ingresar el texto a buscar")

  If tx <> "" Then
    For Each r In Range(ActiveCell.Address, Cells(uFila, ActiveCell.Column))
      If InStr(1, ActiveCell.Value, tx) > 0 Then
        ActiveCell.Interior.Color = 65535
      End If
      Selection.Offset(1).Select
    Next r
  End If
End Sub

Explicando el código

Como puedes ver, el código es muy corto, pero tiene un enorme potencial, así que lo explicare.

Obtener la ultima fila con datos

uFila = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row

Con esta linea se obtiene la ultima fila que contiene algún dato, esto tomando como referencia la celda que se ha seleccionado.

Obtener el texto que se desea buscar.

tx = InputBox("Ingresar el texto a buscar")

Con esta linea metemos en la variable tx la cadena que teclearemos en una caja de texto.

Ciclo para recorrer las celdas y buscar el texto en cada posicion

For Each r In Range(ActiveCell.Address, Cells(uFila, ActiveCell.Column))
  If InStr(1, ActiveCell.Value, tx) > 0 Then
    ActiveCell.Interior.Color = 65535
  End If
  Selection.Offset(1).Select
Next r

Ese es un ciclo que recorre todas las celdas con datos y verifica en cada posición si la celda activa contiene el texto buscado, no importa si hay mas texto, es decir, el texto buscado podría estar envuelto en mas texto, pero si esta, la función nos dice a partir de que carácter se encuentra.

La condicion que determina si el texto esta contenido en la cadena

If InStr(1, ActiveCell.Value, tx) > 0 Then
  ActiveCell.Interior.Color = 65535
End If

Con esa sección de código se determina si el texto esta contenido en el texto de cada celda, si lo encuentra, pintara con un fondo amarillo la celda activa.

Para que puede servir esta macro.

Obviamente hay muchas cosas en las que se puede aplicar, te doy una idea ( se puede usar para conciliaciones )