VBA - Función propia contar varios criterios
Espero me puedan ayudar. Tengo una función propia, la cual necesito que además de contar por color (de fórmula condicional) me cuente por otro criterio, o tantos criterios como necesite, una especie de CONTAR. SI. CONJUNTO.
Modifique una fórmula que encontré en una página pero no me da el resultado exacto, me está contando más celdas no sé de dónde….
Adjunto código y pantallazo de la base de datos.
Function CONTARCOLOR(celdaOrigen As Range, RANGO As Range, nombreOrigen As Range, RANGONOMBRE As Range)
Application. Volatile
'Variables
Dim Celda As Range
'Recorremos todas las celdas del rango
For Each Celda In RANGO
'Compara la propiedad Interior.Color
If Celda.Offset(0, 9).Value = nombreOrigen And Celda.Interior.Color = celdaOrigen.Interior.Color Then
CONTARCOLOR = CONTARCOLOR + 1
End If
Next Celda
End Function
2 Respuestas
Te anexo la macro actualizada. Le cambié algunos nombres de variables.
Function CONTARCOLOR(celdaColor As Range, RangoColor As Range, nombre As Range, RangoNombre As Range) Application. Volatile 'Variables Dim Celda As Range 'Recorremos todas las celdas del rango de nombres For Each Celda In RangoNombre fila = Celda.Row If Celda.Value = nombre.Value And _ celdaColor.Interior.Color = Cells(fila, RangoColor.Column).Interior.Color Then n = n + 1 End If Next Celda CONTARCOLOR = n End Function
En tu ejemplo la fórmula quedaría así, pon la siguiente fórmula en la celda AA5:
=CONTARCOLOR($Z$2;F$2:F$464;$Y5;$O$2:$O$464)
Entonces, el primer argumento de la fórmula es la celda con el color, en este caso $Z$2
El segundo, es el rango de celdas con colores: F$2:F$464
El tercer, es la celda con el nombre: $Y5
El cuarto, es el rango con nombres: $O$2:$O$464
Importante: Observa como los signos $ van en diferente posición.
Copia la función hacia la izquierda hasta el último mes y después copia las funciones hacia abajo hasta el último nombre. La función se acomodará en automático y te contará las celdas según el nombre y el color.
Ejemplo:
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Esto es posible aporte algo
[url=https://www.youtube.com/c/programarexcel?sub_confirmation=1 ]
https://www.youtube.com/c/programarexcel?sub_confirmation=1 [/url]