Thread: Drawing pareto chart

You need a user defined function to count the cells colour.

Put in a standard code module.

Function CountColor(Data As Range, BasedOn As Range) As Long
    Dim rngCell As Range
    Dim lngCount As Long
    For Each rngCell In Data.Cells
        If rngCell.Interior.Color = BasedOn.Interior.Color Then
            lngCount = lngCount + 1
        End If
    Next
    CountColor = lngCount
End Function

In cell CC31 use the formula
=CountColor($C$2:$BS$80,BU31)

copy down to CC51

Create a bar chart on the labels in CC and data in BU