Más sobre las funciones de bases de datos personalizadas

Silvia, mi amiga auditora, me ha planteado otro reto. Me pregunta: "Oye, si en excel tengo una relación de personas, y una serie de datos asociados a cada uno de ellos, ¿cómo puedo obtener las columnas en las que se obtienen determinados datos?". Como así, a bote pronto, y sin un ejemplo claro, parece un problema un poco abstracto, procedimos a montar un supuesto para dejar claras las cosas. El ejemplo era el siguiente:


La pregunta era bien clara: "¿cómo puedo obtener las columnas en las que se obtienen determinados datos?".

Bien, supongamos que queremos saber las veces que se obtiene el valor 1, para todos esos usuarios. En el caso de MANOLITO, el dato 1, se obtiene en la columna D y F, como se puede ver en la tabla anterior. Pero en el caso de FULANITO, el valor 1 no está presente en ninguna de las columnas.

La cuestión era crear un macro o una fórmula que nos permitiera determinar las columnas en las que obtenemos el dato que busquemos. Al final decidí montar una función, a la que he llamado localizar, y que tiene el siguiente código:

Function Localizar(rango As Range, valor As Variant) 'fichamos la celda donde están los datos 'inicial y final (el rango, vamos) mi_rango = rango.Address 'separamos los datos inicial y final coordenadas = Split(mi_rango, ":") inicio = coordenadas(0) fin = coordenadas(1) 'pasamos a una variable la dirección de la celda inicial celda = Range(inicio).Address 'para todo el rango de datos... For i = 0 To Range(fin).Column - Range(inicio).Column 'Comprobamos el valor introducido If Range(celda) = valor Then columna = columna & " " & Range(celda).Address 'eliminamos el signo de $ de referencia absoluta columna = Replace(columna, "$", "") End If 'pasamos a la siguiente columna celda = Range(celda).Offset(0, 1).Address 'seguimos con el bucle Next 'Si no existe el dato en ninguna columna If columna = 0 Then columna = " No existe" 'eliminamos los números de la fila numeros = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9) For j = 0 To UBound(numeros) columna = Replace(columna, numeros(j), "") Next 'asignamos a la función, el dato del contador 'eliminando previamente el primer espacio vacío Localizar = Mid(columna, 2) End Function

Como veis en la primera línea de la función, aparecen dos argumentos: el rango, y el valor. El rango es precisamente, el área donde tenemos los datos, mientras que el valor es el dato que buscamos. La fórmula nos devolverá las letras correspondientes a las columnas donde aparezca ese valor.

Por ejemplo, si buscamos las columnas donde aparece el valor 1, para MANOLITO, deberemos seleccionar como rango, el área comprendida entre C4 y G4, por lo que la función la llamaremos así:
Como veis en la primera línea de la función, aparecen dos argumentos: el rango, y el valor. El rango es precisamente, el área donde tenemos los datos, mientras que el valor es el dato que buscamos. La fórmula nos devolverá las letras correspondientes a las columnas donde aparezca ese valor.

Por ejemplo, si buscamos las columnas donde aparece el valor 1, para MANOLITO, deberemos seleccionar como rango, el área comprendida entre C4 y G4, por lo que la función la llamaremos así:
Como veis en la primera línea de la función, aparecen dos argumentos: el rango, y el valor. El rango es precisamente, el área donde tenemos los datos, mientras que el valor es el dato que buscamos. La fórmula nos devolverá las letras correspondientes a las columnas donde aparezca ese valor.

Por ejemplo, si buscamos las columnas donde aparece el valor 1, para MANOLITO, deberemos seleccionar como rango, el área comprendida entre C4 y G4, por lo que la función la llamaremos así:

=localizar(C4:G4;1)

Si lo preferimos, también podemos utilizar como valor, las coordenadas de la celda donde tenemos el dato a buscar. Por ejemplo, si en la celda A1 tuviéramos un 1, podríamos haber escrito la función, tal y como la hemos escrito antes, o bien de esta otra forma:

=localizar(C4:G4;A1)

Como podéis ver en la imagen siguiente, aparece a la derecha la fórmula localizar, donde nos devuelve como resultado, las columnas donde aparece el valor buscado. Si no se encuentra el valor, simplemente nos imprimirá en pantalla el texto No existe, tal y como también podéis ver en la imagen:


Desde aquí podéis descargar el fichero de excel, con el ejemplo que os presento, y por supuesto, con la función y el código de este artículo.