Formato condicional de más de 3 condiciones

Hola. Necesito ayuda con el formato condicional en excel. Lo que quiero es que la celda se coloree según el valor que contenga, es decir, si el valor es 0 o 1 que se coloree en gris, si es mayor de 2 y menor de 10 en rojo, mayor de 11 y menor de 20 en naranja, ... Y así hasta 10 rangos y colores. Sé que con una macro se podría hacer. ¿Sería muy complicado? Mi nivel de VBA es casi nulo. Gracias por tu ayuda.

1 Respuesta

Respuesta
1
No necesitas una macro te vale con formato condicional
¿Qué excel tienes 2003 ó 2007?
Si es 2007 y no te aclaras tienes 2 opciones te lo explico por aquí ó bien me dices que casillas u hojas quieres con formato condicional y te creo un archivo
si lo prefieres me mandas el archivo y te lo modifico eso si dime los valores y colores para cada valor
Es 2003, se me olvidó aclararlo
Si me pasas tu archivo te lo modifico
[email protected]
Creo que tienes razón en 2003 no te deja más de 3 condiciones de formato condicional
Dejame que intente una macro cuando tenga tiempo
Gracias por tu preocupación. Te paso un archivo con lo que quiero más o menos a ver si te haces una idea. Gracias de nuevo.
Estoy con tu archivo te lo mando en cuanto lo termine
Disculpa la tardanza pero estoy bastante liado
No te preocupes y muchas gracias de nuevo.
Te mando el archivo con lo que necesitas le puse este código
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Salida
For Each c In Range("E14:E200,K14:K200,Q14:Q200,W14:W200")
    Select Case c.Value
        Case Is = ""
        c.Interior.ColorIndex = xlNone 'color de relleno sin relleno
        Case Is <= 1
        c.Interior.ColorIndex = 16 'gris
        Case Is = 2, Is < 11
        c.Interior.ColorIndex = 3 ' rojo
        Case Is = 11, Is < 21
        c.Interior.ColorIndex = 46  'beigeoscuro
        Case Is = 21, Is < 41
        c.Interior.ColorIndex = 45  'beige
        Case Is = 41, Is < 81
        c.Interior.ColorIndex = 44  'beigeclaro
        Case Is = 81, Is < 101
        c.Interior.ColorIndex = 6   'amarillo
        Case Is = 101, Is < 141
        c.Interior.ColorIndex = 34  'azulito
        Case Is = 141, Is < 501
        c.Interior.ColorIndex = 43  'verdeclaro
        Case Is = 501, Is < 5001
        c.Interior.ColorIndex = 10  'verdeoscuro
       Case Is > 5001
        c.Interior.ColorIndex = 29  'morado
         Case Else: GoTo Salida
End Select
Next c
Exit Sub
Salida:
   Target.Interior.ColorIndex = xlNone 'color de relleno sin color
End Sub
Si te sirve puntúa y cierra la pregunta si necesitas alguna aclaración dímelo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas