Buscador de datos en Excel interactivo (Super Bueno): Si trabajas con una cantidad considerable de información y te toma mucho tiempo ubicar algún dato específico dentro de un listado, entonces tenemos la solución a tus problemas, se trata de una aplicación desarrollada en excel (programada en macros) realmente efectiva, con respecto a su funcionamiento podríamos decir que es más práctico que el uso de un filtro personalizado y obviamente es mejor que utilizar el buscador por defecto de office (El que se ejecuta con ctrl + B).

La gran funcionalidad de esta macro es que los resultados se van mostrando de acuerdo a la coincidencia que se va ingresando en la búsqueda, los cuales se van pintando de color azúl de forma gradual mientras se teclea en el campo de búsqueda, de esta forma basta con escribir letras o palabras claves del dato a buscar, en segundos podrás obtener el resultado.

La macro que realiza este procedimiento de búsqueda puede ser editado, no tiene contraseña por lo cual es libre y permite modificaciones.

Para cambiar los rangos del archivo, basta con indicar la letra de la columna donde necesitan hacer la búsqueda, para el presente caso todo se desarrolla en la columna «A» por lo cual debe modificarse de acuerdo a tus necesidades, dejaré en color rojo lo que deben de cambiar para ajustar los rangos de la aplicación.

Private Sub Nombre_Change()
Dim i As Long, UF As Long
Menor = 65537
UF = Range(«A65536″).End(xlUp).Row
Range(«A1:A» & UF).Font.ColorIndex = xlAutomatic
For i = UF To 1 Step -1
If Not IsEmpty(Trim(Nombre)) Then
If LCase(Range(«A» & i)) Like LCase(Nombre) & «*» Then
If Trim(Nombre) <> «» Then
Range(«A» & i).Font.ColorIndex = 32
If i < Menor Then Menor = i
Else
ActiveWindow.ScrollRow = 1
End If
End If
Else
ActiveWindow.ScrollRow = 1
End If
Next i
If Len(Trim(Nombre)) = 1 Then ActiveWindow.SmallScroll Down:=Menor – 2
End Sub