Formato condicional
En un rango de celdas, quiero que al introducir M, T o N se coloree de una
determinada, digamos, rojo, verde y azul respectivamente. No hay problema; con el formato condicional se puede hacer.
Pero... Cuando se trata de M, T, N y
L ya no lo puedo hacer porque el formato condicional no me permite añadir más de tres condiciones. ¿Esto es así? ¿Cómo se puede resolver?
Gracias de antemano.
determinada, digamos, rojo, verde y azul respectivamente. No hay problema; con el formato condicional se puede hacer.
Pero... Cuando se trata de M, T, N y
L ya no lo puedo hacer porque el formato condicional no me permite añadir más de tres condiciones. ¿Esto es así? ¿Cómo se puede resolver?
Gracias de antemano.
1 respuesta
Respuesta de villaju
1
Vaya, lo que comentas tiene difícil solución. Efectivamente, sólo se pueden poner 3 condiciones, excel no permite más. La única forma de solucionarlo es mediante programación. Te he preparado una macro, que se ejecuta a partir de la celda activa. Cuando la ejecutas, va recorriendo hacia abajo cada una de las celdas, y analizando su valor. En función de éste, le aplica un formato específico:
Sub MiFormatoCondicional()
While ActiveCell.Value <> ""
Select Case ActiveCell.Value
Case "T"
ActiveCell.Interior.ColorIndex = 15
Case "M"
ActiveCell.Interior.ColorIndex = 18
Case "J"
ActiveCell.Interior.ColorIndex = 24
Case "K"
ActiveCell.Interior.ColorIndex = 45
End Select
ActiveCell. Offset(1, 0). Activate
Wend
End Sub
La macro se detiene cuando encuentra una celda en blanco. Si quieres añadir más condiciones, debería añadir más frases "Case". Por ej. Case "A", etc. Como no se si tienes conocimientos de programación, comentarte que cada color es un número. Cambiando el número, cambias el color. Bueno, yo por mi parte estoy realizando un complemento que permita añadir muchas más condiciones, que sea más flexible, pero lleva bastante trabajo si quiere hacerlo "decente", así que aún tardaré. Por ello si quieres puedes escribirme a mi correo, y cuando lo tenga lo envío. Hasta entonces, por favor, si tienes cualquier duda sobre la macro que te he dado, preguntame y te ayudo, sino, no olvides finalizar la pregunta.
Sub MiFormatoCondicional()
While ActiveCell.Value <> ""
Select Case ActiveCell.Value
Case "T"
ActiveCell.Interior.ColorIndex = 15
Case "M"
ActiveCell.Interior.ColorIndex = 18
Case "J"
ActiveCell.Interior.ColorIndex = 24
Case "K"
ActiveCell.Interior.ColorIndex = 45
End Select
ActiveCell. Offset(1, 0). Activate
Wend
End Sub
La macro se detiene cuando encuentra una celda en blanco. Si quieres añadir más condiciones, debería añadir más frases "Case". Por ej. Case "A", etc. Como no se si tienes conocimientos de programación, comentarte que cada color es un número. Cambiando el número, cambias el color. Bueno, yo por mi parte estoy realizando un complemento que permita añadir muchas más condiciones, que sea más flexible, pero lleva bastante trabajo si quiere hacerlo "decente", así que aún tardaré. Por ello si quieres puedes escribirme a mi correo, y cuando lo tenga lo envío. Hasta entonces, por favor, si tienes cualquier duda sobre la macro que te he dado, preguntame y te ayudo, sino, no olvides finalizar la pregunta.
