Esta macro permite obtener el código de un color:
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
Reemplaza el 10 por el número de líneas que deseas utilizar.
Reemplaza "I" por la columna que deseas utilizar para el resultado (código y color).
Reemplaza “B” por la columna que contiene los colores a filtrar.
PD: El
artículo original fue escrito por Furtif, contribuidor de
CommentCaMarche