¿Cómo realizar una búsqueda filtrada instantánea mientras escribes en una celda en Excel?
Este artículo proporciona un método para que busques y filtres instantáneamente mientras escribes en una celda en Excel.
Búsqueda filtrada instantánea mientras escribes con código VBA
Búsqueda filtrada instantánea mientras escribes con código VBA
Como se muestra en la captura de pantalla a continuación, tienes una Lista de nombres que deseas buscar y filtrar instantáneamente mientras escribes en una celda específica. Por favor, sigue los siguientes pasos para lograrlo.
1. Primero, necesitas crear una tabla con los datos de la lista y nombrar la tabla como “Name”. Por favor, selecciona toda la lista, haz clic en Insertar > Tabla.
2. En el cuadro de diálogo Crear Tabla que aparece, haz clic en Aceptar. Ver captura de pantalla:
3. Haz clic en cualquier celda de la tabla para activar la pestaña Diseño, y luego cambia el nombre de la tabla a Name en el cuadro de texto Nombre de la Tabla. Ver captura de pantalla:
4. Haz clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX) para insertar un cuadro de texto sobre la lista de la tabla como se muestra en la siguiente captura de pantalla:
5. Haz clic derecho en el Cuadro de Texto y selecciona Propiedades; en la ventana Propiedades, escribe una referencia de celda en el cuadro CeldaVinculada.
6. Haz clic derecho en el Cuadro de Texto y selecciona Ver Código desde el menú contextual. Luego reemplaza el código original con el siguiente código VBA en la ventana Microsoft Visual Basic para Aplicaciones. Ver captura de pantalla:
Código VBA: Búsqueda filtrada instantánea mientras escribes en Excel
Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
On Error GoTo Err01
Application.ScreenUpdating = False
xName = "Name"
xStr = TextBox1.Text
Set xWS = ActiveSheet
Set xRg = xWS.ListObjects(xName).Range
If xStr <> "" Then
xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
Else
xRg.AutoFilter field:=1, Operator:=xlFilterValues
End If
Err01:
Application.ScreenUpdating = True
End SubNota: En el código, TextBox1 es el nombre del cuadro de texto insertado, Name es el nombre de la lista de la tabla. Puedes cambiarlos según tus necesidades.
7. Presiona las teclas Alt + Q para cerrar la ventana Microsoft Visual Basic para Aplicaciones.
8. Desactiva el Modo Diseño haciendo clic en Desarrollador > Modo Diseño.
A partir de ahora, la lista de la tabla se buscará y filtrará instantáneamente en función del valor ingresado en el cuadro de texto. Ver captura de pantalla:
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos