Creando nuestro propio buscador

Muchas veces, si queremos buscar varios valores en una hoja de cálculo, a través del propio buscador de Excel (menú Edición, y luego Buscar...), tenemos el problema de que por defecto, nos devuelve la primera coincidencia con la que se encuentra. Si le decimos que nos busque todo, pulsando el botón correspondiente de la ventana que se nos muestra en la búsqueda, nos localiza todas las celdas que tengan ese patrón de búsqueda coincidente.

Si queremos obtener el mismo resultado que con el buscador de excel, pero de una forma más personalizada, remarcando el texto o los valores de las celdas cuyos datos coinciden con nuestra búsqueda, he aquí un macro donde deberemos informar de lo siguiente:

1. Nos pregunta cual es la celda inicial, a partir de la cual realizaremos la búsqueda (será la celda superior izquierda del rango de datos).

2. Nos pregunta cual es la celda final, donde finalizará la búsqueda (será la celda inferior derecha del rango de datos).

3.- Nos pregunta el valor o dato a buscar.

4. Nos pregunta donde queremos empezar a escribir las referencias de las celdas donde ha encontrado los datos (debe ser una celda fuera del rango comprendido entre la celda inicial y la celda final).

5. Nos pregunta si deseamos encontrar el dato de forma exacta, o si por el contrario deseamos encontrar cualquier celda que contenga parte de ese texto buscado. por ejemplo, si buscamos la palabra moto y le decimos que queremos encontrar el dato exacto, solo nos buscará las celdas que contengan la palabra moto, pero si le decimos que haga una búsqueda que no sea exacta, también nos encontrará las celdas que contengan por ejemplo la palabra motor.

Aquí os dejo el macro que tendréis que pegar en un módulo (ya se que en lugar de utilizar InputBox's, visualmente es mucho más atractivo el uso de UserForm's, pero la finalidad de este macro es otra, ya que deseamos crear una sencilla utilidad):

Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False donde_estamos = ActiveCell.Address '-------------------------------------- 'Hacemos las preguntas de rigor celda_inicial = InputBox("¿Cuál es la celda inicial, donde quieres empezar a buscar?", "Pregunta") celda_final = InputBox("¿Cuál es la celda final, donde quieres parar a buscar?", "Pregunta") valor_buscado = InputBox("Introduce el valor, dato, o texto que deseas buscar:", "Dato a buscar") mostrar_datos = InputBox("Venga, no te duermas, que ya acabo con las preguntas..." & _ Chr(10) & Chr(10) & "¿A partir de qué celda quieres que te muestre las referencias " & _ "de las celdas donde están los datos encontrados?." & Chr(10) & Chr(10) & "(Debe estar " & _ "fuera del rango de la búsqueda)", "Pregunta") exacitud = MsgBox("¿Deseas encontrar el dato exactamente, tal y como lo escribiste?", vbYesNo) If Trim(valor_buscado) = "" Then Exit Sub '-------------------------------------- 'pasamos los datos a variables min_fila = Range(celda_inicial).Row max_fila = Range(celda_final).Row min_columna = Range(celda_inicial).Column max_columna = Range(celda_final).Column 'nos situamos en la primera celda Range(celda_inicial).Select 'comenzamos a buscar el dato For i = min_fila To max_fila For j = min_columna To max_columna If exacitud = vbYes Then 'Sí buscamos el dato exacto If ActiveCell.Value = Trim(valor_buscado) Then 'ponemos el dato en color rojo Selection.Font.ColorIndex = 3 'guardamos la referencia donde se encuentra el dato celdas_datos = celdas_datos & "," & ActiveCell.Address End If Else 'No buscamos el dato exacto If InStr(ActiveCell.Value, valor_buscado) > 0 Then 'ponemos el dato en color rojo Selection.Font.ColorIndex = 3 'guardamos la referencia donde se encuentra el dato celdas_datos = celdas_datos & "," & ActiveCell.Address End If End If ActiveCell.Offset(0, 1).Select Next ActiveCell.Offset(1, -max_columna).Select Next 'quitamos la coma inicial del array de referencias celdas_datos = Mid(celdas_datos, 2, Len(celdas_datos)) 'ahora reemplazamos la referencia absoluta celdas_datos = Replace(celdas_datos, "$", "") 'mostramos las referencias de las celdas Range(mostrar_datos) = "Los datos encontrados están en: " & celdas_datos & ", es decir, aquí:" 'bajamos una fila nuevos_datos = Range(mostrar_datos).Offset(1, 0).Address Range(nuevos_datos).Select 'descomponemos el array celdas = Split(celdas_datos, ",") For i = 0 To UBound(celdas) 'ponemos la celda en cuestión ActiveCell = celdas(i) ActiveCell.Offset(1, 0).Select Next 'Ordenamos el rango de datos con las referencias Range(nuevos_datos).Select Range(Selection, Selection.End(xlDown)).Select Selection.Sort Key1:=Range(nuevos_datos), Order1:=xlAscending 'nos situamos en la celda donde estábamos Range(donde_estamos).Select Application.ScreenUpdating = True End Sub

Este es un ejemplo de lo que obtendríamos para la búsqueda de la palabra moto, y diciéndole que la búsqueda no sea exacta (si le hubiésemos dicho que queríamos una búsqueda exacta, solo habríamos obtenido como resultado, la palabra moto, y no aquellas palabras que contienen esa palabra, como es el caso de motor y motos):


Solo comentaros que una vez realizada la primera búsqueda, si queréis volver a realizar otra búsqueda, deberéis poner todo el texto encontrado en la primera búsqueda, nuevamente con su color original (por defecto, el negro), porque las búsquedas posteriores no reemplazan los colores rojos por sus colores iniciales. Aunque se podía haber hecho, he desestimado volver a poner sus colores originales, pues en una segunda búsqueda el rango de datos donde vamos a buscar, no tiene porqué coincidir con el de la primera búsqueda realizada.