Excel 2007 - formateo condicional: ¿cómo convertir los códigos de color en colores? - excel-vba, excel-2007, vba, excel

Tengo un código de macro muy simple que muestra el color del código de color que se registra dentro de una celda:

Sub ShowColour()
ColCod = Selection()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = ColCod
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Ahora estoy buscando alguna manera de cambiar elel contenido de la celda en otro código de color y se le mostrará de inmediato el color. He experimentado con el formateo condicional, pero parece que solo puedo elegir entre formatos predefinidos. ¿Alguien puede darme una pista?

Respuestas

Si te entiendo bien necesitas agregar este código enmódulo de hoja apropiado, como uno llamado "Hoja1 (Hoja1)" (no en módulo estándar como Module1). Como resultado, este código activará el evento apropiado para usted.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandler
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = Target.Value
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Exit Sub
ErrorHandler:
MsgBox "Color number rather doesn"t exists"
End Sub

Guardé tu código básico dentro ya que sería más fácil para ti.