Visual Basic - Contar celdas con color y números y sin color y números

Muy buenas a todos

Alguien por favor me puede ayudar con este ejercicio se trata de sumar por separado las celdas que estan en color amarillo con un -7,5 y las que no estan con fondo en amarillo por otro lado, viendo el ejemplo que he subido se ve con claridad lo que me hace falta, he puesto solo un ejemplo para unos dias del año pero seria para los 365 dias y para unas 1000 filas

muchas gracias

Jaime

• sumar-color.xlsx.zip(7,2 KB)

HOLA

Yo tengo una solución parcial a tu problema, porque la hago usando el control Mshflexgrid en lugar de celdas del Excel.

Lo único que tienes que hacer es adaptarla con la sintaxis adecuada que usas para las hojas electrónicas.

Solo te pongo la parte del cálculo, porque lo anterior únicamente lleno y pinto manualmente las celdas del grid, que dudo necesites.

Aqui va:

With MshFlexgrid

Dim Colum As Integer
Dim Fila As Integer
Dim ContAmarillo As Integer
Dim ContSinColor As Integer
For Fila = 1 To .Rows - 1
For Colum = 0 To .Cols - 3
If .TextMatrix(Fila, Colum) <> "" Then
.Row = Fila
.Col = Colum
If .CellBackColor = &H80FFFF Then ContAmarillo = ContAmarillo + 1
If .CellBackColor = &H80000005 Then ContSinColor = ContSinColor + 1
End If
Next
.TextMatrix(Fila, 5) = ContAmarillo
.TextMatrix(Fila, 6) = ContSinColor
ContAmarillo = 0
ContSinColor = 0
Next

End With

Que te vaya muy bien