Convertir un color en valor numérico

Abril 2018

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.
Publicado por Carlos-vialfa. Última actualización: 13 de abril de 2009 a las 18:24 por Carlos-vialfa.
El documento «Convertir un color en valor numérico» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (https://es.ccm.net/) como tu fuente de información.
Cambiar el color de las etiquetas de una hoja Excel
Cómo pasar datos de una hoja Excel a otra