NB.SI(color)

NO, no están bajo condiciones.

re

se impone una macro VBA, aquí hay una función propuesta por Myta en el foro esta mañana
- a pegar en un módulo (Alt+F11 para acceder al editor y luego pegar este código)
- a usar como una nueva función

Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long 'Contar el número de celdas de un color dado en un rango dado 'Plage: rango de celdas a inspeccionar 'Couleur: valor del color buscado Application.Volatile Dim Cellule As Range For Each Cellule In Plage If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then NbreCellulesCouleur = NbreCellulesCouleur + 1 End If Next Cellule End Function

Modo de uso de la fórmula
B9=NbreCellulesCouleur(B4:B8;3)

RQ. (excel 2003) para los códigos de colores pones un botón en una hoja y pegas el código

Private Sub CommandButton2_Click() dim i as long For i = 1 To 56 Range("A" & i).Value = i Range("A" & i).Interior.ColorIndex = i Next i End Sub 

buena continuación