¿Cómo dar color a una celda con el color de otra con VBA?

[Hola

No estoy seguro pero ¿quieres que en tu primera hoja, si la frase ingresada en la columna "estado" coincide con una de la segunda hoja pues ¿qué tome su mismo color de fondo y de fuente? ¿Cierto? O sea, reducir, por decirlo de un modo, la macro que tienes ahora. Confirma.

@Abraham Valencia, es exactamente eso lo que requiero hacer, pero no sé si será pedirle mucho a Excel.

Veamos:

La idea, de forma sencilla, es que:

Teniendo dos tablas, la primera de ellas expone todos los datos de los trabajos efectuados. La segunda, lista todas las opciones del estado en el que puede encontrarse una tarea ("Pendiente", "En Ejecución", "Atrasado", entre otros). Esta segunda tabla, cada uno de los estados, posee un color de fondo ("Interior.Color") y un color de fuente ("Font.Color") en RGB, ya que de esta forma, me proporciona mayor espectro de colores y personalizados, según requiera el usuario.

Desde la primera tabla, una de las columnas indica el estado de las tareas, corresponde a una lista desplegable, generada por medio de Validación de Datos y la función "Indirecto", llamando desde la segunda tabla las opciones que puedo insertar en este campo.

La idea es que, además de poder utilizar estos datos, es poder utilizar su color de fondo y de fuente, por medio de programación VBA y no por Formato Condicional. La idea es que se pueda reutilizar en otro libro, con otros datos, colores o funciones.

[Hola

Pues teniendo tu archivo no fue nada difícil. Copia y pega esto en el módulo de la hoja "procesos". Ojo, en el módulo de esa hoja y borra todo eso que tienes en el módulo del libro.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CeldaEncontrada As Range
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
    Set CeldaEncontrada = Sheets("Config").Range("B3:B13").Find(Target.Value)
    If Not CeldaEncontrada Is Nothing Then
        CeldaEncontrada.Copy
        Target.PasteSpecial Paste:=xlPasteFormats
    End If
End If
Set CeldaEncontrada = Nothing
Application.EnableEvents = True
End Sub

Ah, en la hoja "config" nada está con formato "negrita", agrégales para que en la hoja "procesos" también se vea dicho formato al ingresar datos. Comentas.

Armando, ahora lo veo y te contesto por si o por no...

Un beso

Nan

¡Gracias!  Nancy Dominguez 

Armando, estuve un rato mirando el cuadro estado y todos sus colores, entiendo lo que te dice Abraham, puede ser cierto, pero la verdad no está del todo claro lo que necesitàs, tal vez (me parece tiene que ver con los dìas de vencimiento, o la fecha en que se deben terminar los trabajos, estarìa entendiendo que en funciòn de el tiempo transcurrido, ¿cambia el estado? Help, si me pasas el excel, me haces un favor ME canseee de pintar esos colores feos! Jjajajajajajajajaj

No se cual es tu apuro, pero Dante Amor de este foro, Elsa Matilde Alberto Pedernera, son muyyyyyyyy capaces y suelen responder rápido, solo te recomiendo que pases el excel y seas lo más claro posible, sino... seguís con esta humilde servidora...

Yo no usaria este còdigo Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) porque te enlentece la maquina puesto que cada movimiento ejecuta el codigo, se usa solo para casos muyyy especiales.

Se me ocurre que en función de tus respuesta de como va el tema, me parece si bien son difíciles, lo mejor es hacer matrices,.

Si el excel lo usas a diario, tengo material muy útil, no es fácil encontrarlo, estoy ciega ya :)