RE:FUNCIONES PERSONALIZADAS
si sabés programar, vos mismo tenés q programarte tus funciones
pero estás de suerte... recordé q alguna vez hice algo para alguien
que quería buscar... obviamente no es lo mismo q vos querés,
pero con algunos cambios ya estaría... te paso aquello q hice...
La función es similar a la de BUSCARV de Excel
y puede usarce de la misma manera.
La función es
Buscando(Valor a buscar, Rango donde buscar, Indicador de columna
que posee el resultado de interés,
Indice inferior a partir del cual se
deben mostrar los resultados, Indice superior,
(Opcional="; ") Texto de separación entre resultados)
Ejemplos:
A1:A162 Columna de Nombres
B1:B162 Columna de Ciudades
E2 Valor a Buscar (ciudad2)
'Muestra los primeros 5 resultados encontrados
=Buscando($E$2; $B$1:$B$162; -1; 1; 5)
nom2; nom3; nom7; nom14; nom15
'Muestra los 5 siguientes
=Buscando($E$2; $B$1:$B$162; -1; 6; 10; ", ")
nom19, nom25, nom26, nom30, nom37
... y repitiendo la fórmula algunas veces -cambiando
sólo el índice inicial y final- se obtienen
todos los resultados...
Public Function Buscando(ByVal Valor_buscado As String, ByVal Rango_de_busqueda As Excel.Range, ByVal Indicador_columnas As Integer, ByVal Inicio As Integer, ByVal Final As Integer, Optional ByVal Separador As String = "; ") As String
Dim cell As Excel.Range
Dim count&
On Error Resume Next
For Each cell In Rango_de_busqueda
If cell.Value = Valor_buscado Then
count = count + 1
If count >= Inicio And count <= Final Then
Buscando = Buscando & Separador & cell.Offset(0, Indicador_columnas).Value
End If
End If
Next
Buscando = Mid(Buscando, Len(Separador) + 1)
Set cell = Nothing
End Function
la función SUMAR.SI con 2 o más condiciones te la dejo a vos, no es difícil...
y si buscás en este foro vas a encontrar algo q publiq hace algún tiempo
q puede ser muy útil
Saludos desde Baires, JuanC