Convertir un color en valor numérico

Septiembre 2017

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.

Consulta también

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 (es.ccm.net) como tu fuente de información.