Formato de color de celda

Sólo como prueba, mira si el siguiente código hace más o menos lo que necesitas:

Sub prueba()
Dim bColumna As Byte

With Worksheets("Hoja1") 'Se supone que los datos están en Hoja1, a partir de A1
For bColumna = 1 To .[IV1].End(xlToLeft).Column
.Cells(1, bColumna).Interior.ColorIndex = WorksheetFunction.CountIf(.Range(.[A1], .Cells(1, bColumna)), .Cells(1, bColumna).Value) + 1 'El color de la celda será el número de veces que ha aparecido hasta ahora el valor +1 (para evitar el negro)
Next bColumna
End With
End Sub

Te aconsejo que no lo pruebes con los datos reales: mejor crea un libro nuevo y pon algunos nombres (o, para el caso, sólo letras) en la fila 1. Si ves que el código hace más o menos lo que necesitas, habría que modificarlo para que trabajara con tu lista de colores. También habría que ver si interesaría que se ejecutara automáticamente al cambiar alguna celda de la fila 1.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Miguel" escribió en el mensaje news:%

Como hago que los datos en letras que tengo en supongamos A1,B1,C1,D1,etc la
celda se ponga de un determinado color.

Ósea si en A1 dice Miguel que tome el primer color de una lista de colores
ya hecha por mi.

Si el segundo dice Marisol que tome el segundo color de la lista y así
sucesivamente.

Pero si se repite el nombre que se repita el color de la celda

Me explico que el primer nombre tome la celda el primer color de la lista,
si se repite que use el mismo color sino que siga con el segundo color de la
lista.

Gracias, Miguel.