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
