Buscador Súper Rápido en Excel 🔍

Aprende a crear un buscador super rápido en Excel que permitirá filtrar en tiempo real cualquier palabra, número o fecha mientras escribes, independientemente de la posición del texto en la celda. Este buscador en Excel con un cuadro de texto multicriterio, sigue estos pasos.

Crear el Cuadro de Búsqueda en Excel

Habilitar la pestaña Programador

• Si aún no la tienes activada, ve a Archivo > Opciones > Personalizar cinta de opciones y selecciona Programador.

Insertar un cuadro de texto ActiveX

• Ve a la pestaña Programador > Insertar > selecciona Cuadro de Texto (ActiveX). Colócalo y ajústalo en el área deseada para la búsqueda.

Renombrar los cuadros de búsqueda (opcional)

• Haz clic derecho sobre cada cuadro de texto > Propiedades, el nombre en la propiedad Name para identificarlo mejor (por ejemplo, TextBox1 si buscará autores).

Configurar la Tabla para Filtrado

Asegurarse de tener datos en formato de tabla

• para que Excel reconozca fácilmente los datos a filtrar. Selecciona la tabla y presiona Ctrl + T o ve a Inicio > Dar formato como tabla.

Aplicar filtros en la tabla

• Selecciona cualquier celda dentro de la tabla y en la pestaña Datos selecciona Filtro. Esto agregará los íconos de filtro en cada encabezado.

Programar el Cuadro de Texto

1. Salir del modo de diseño:

Primero, haz clic derecho en el cuadro de texto que usarás para búsqueda, ve a Modo de diseño en la pestaña Programador y asegúrate de que esté desactivado para escribir código VBA.

2. Asignar el evento Change (cambio) en VBA

Haz doble clic en el cuadro de texto para abrir el Editor VBA. Aquí se creará el código que activará el filtro de búsqueda cada vez que ingreses un texto. Copia el siguiente código para el evento Change en el cuadro de texto:

   Private Sub TextBox1_Change()

Range("B9").AutoFilter Field:=2, Criteria1:="*" & Me.TextBox1 & "*"

    If Me.TextBox1.Value = "" Then
        Range("B9").AutoFilter Field:=2
    End If

End Sub

Private Sub TextBox4_Change()


Range("B9").AutoFilter Field:=7, Criteria1:=Me.TextBox4
    If Me.TextBox4.Value = "" Then
        Range("B9").AutoFilter Field:=7
    End If


End Sub

Private Sub TextBox5_Change()


Range("B9").AutoFilter Field:=6, Criteria1:="*" & Me.TextBox5 & "*"

    If Me.TextBox5.Value = "" Then
        Range("B9").AutoFilter Field:=6
    End If


End Sub

3. Ajustar el código

Cambia TextBox1 por el nombre de tu cuadro de texto y NombreTabla por el nombre de tu tabla en Excel.

• Field: Cambia el número según la columna que deseas filtrar (1 para la primera columna, 2 para la segunda, etc.).
• criterio: Usamos el * antes y después para que busque la palabra en cualquier parte de la celda.

Guardar el archivo como Libro de Excel habilitado para macros (XLSM)

1. Ve a Archivo > Guardar como y elige el tipo Libro de Excel habilitado para macros.
2. Guarda el archivo y asegúrate de tener habilitadas las macros para poder ejecutarlo.

Probar el Buscador

1. Escribir un valor en el cuadro de texto y observar cómo se filtra automáticamente la tabla. Puedes realizar búsquedas con palabras, números o fechas.
2. Combinar filtros: Repite el proceso para crear varios cuadros de búsqueda si necesitas filtros en múltiples columnas.

¡Con estos pasos tendrás un buscador de Excel rápido y potente, útil para bases de datos grandes y búsquedas multicriterio!

Parte 1. Macros para Casos Reales

• Ordenar Datos automáticamente
• Macro para eliminar tíldes, acentos y caracteres especiales
• Actualizar Tabla Dinámica Automáticamente
• Evitar Parpadeo en ejecución de Macro (Próximo)
• Enviar Datos de Excel A Word (Próximo)
• Eliminar celdas vacías de un Rango (Próximo)
• Filtros Dinámicos (Próximo)
• Hacer Hablar a Excel (Próximo)
• Protegiendo el código de tus Macros (Próximo)
• Insertar Link a Etiqueta en Formulario VBA (Próximo)