Gracias de antemano por cualquier ayuda en esto que usted puede ofrecer.
Con la ayuda de este sitio he creado la siguiente función;
Función ColorFunction(rColor como rango, rRange como rango, SUM opcional como booleano)
Dim rCell como rango
Dim lCol siempre
Resultado v tenue
lCol = rColor.Interior.ColorIndex
Si SUMA = Verdadero Entonces
Para cada rCell en rRange
Si rCell.Interior.ColorIndex = lCol Entonces
vResult = WorksheetFunction.SUM(rCell, vResult)
Si terminar
Siguiente celda
otro
Para cada rCell en rRange
Si rCell.Interior.ColorIndex = lCol Entonces
vResultado = 1 + vResultado
Si terminar
Siguiente celda
Si terminar
ColorFunction = vResultado
Función finales
En cada celda de destino que quiero una suma de todas las celdas en esa fila que contienen el color de la celda especificada;
= función de color (AR4, H5: AP5, VERDADERO)
¿Cómo puedo hacer que la venta objetivo se actualice cuando cualquier otra celda de la fila (H5: AP5) cambia de color?
Con la ayuda de este sitio he creado la siguiente función;
Función ColorFunction(rColor como rango, rRange como rango, SUM opcional como booleano)
Dim rCell como rango
Dim lCol siempre
Resultado v tenue
lCol = rColor.Interior.ColorIndex
Si SUMA = Verdadero Entonces
Para cada rCell en rRange
Si rCell.Interior.ColorIndex = lCol Entonces
vResult = WorksheetFunction.SUM(rCell, vResult)
Si terminar
Siguiente celda
otro
Para cada rCell en rRange
Si rCell.Interior.ColorIndex = lCol Entonces
vResultado = 1 + vResultado
Si terminar
Siguiente celda
Si terminar
ColorFunction = vResultado
Función finales
En cada celda de destino que quiero una suma de todas las celdas en esa fila que contienen el color de la celda especificada;
= función de color (AR4, H5: AP5, VERDADERO)
¿Cómo puedo hacer que la venta objetivo se actualice cuando cualquier otra celda de la fila (H5: AP5) cambia de color?