Transforming a color to digital value
You can make use of this macro to get the color code:
Sub distri_color()
Dim i
For i = 1 To 12
Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color
Next i
End Sub
'Replace
10 by the number of rows you want to use.
'Replacing the
I in the column that you want to use for the result (color code).
'Replace the
B by the column containing the color you want to filter.