Formato condicional

25/10/2005 - 23:48 por FM | Informe spam
Hola a todos y buenas noches:

Estoy tratando de hacer una hoja de Excel y tengo un problema.

Quiero establecer un formato condicional, pero no puedo poner más de tres
condiciones y necesito al menos 5. ¿Cómo puedo modificar esto? Gracias.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
26/10/2005 - 02:07 | Informe spam
hola, FM !

... establecer un formato condicional, pero no puedo poner mas de tres condiciones y necesito al menos 5



-> el limite [en los formatos condicionales] es de 3 :(
para 'ir mas alla' de los 3 formatos...
-> [sin aplicaciones de terceros] emplea los eventos de hoja segun cambios/condiciones/etc.
si comentas cuales serian las condiciones y cuales los formatos [y donde]...
-> [o visita: http://www.xldynamic.com/source/xld...nload.html]

saludos,
hector.
Respuesta Responder a este mensaje
#2 FM
26/10/2005 - 17:25 | Informe spam
Bien gracias, de antemano, te explico: imagina que tengo 4 códigos 1, 2, 3,
4 y 5. Bien pues si escribo 1 en la celda quiero que esta se ponga de color
rojo, 2 de color verde, 3 de amarillo, 4 de azul y 5 de morado (por
ejemplo). En excel solo se pueden poner tres condiciones, con el programa
que me has ofrecido puedo poner muchas mas, pero da pantallazos.

Gracias.
Respuesta Responder a este mensaje
#3 Héctor Miguel
26/10/2005 - 22:04 | Informe spam
hola, FM !

... tengo 4 codigos 1, 2, 3, 4 y 5
... si escribo 1 en la celda... esta se ponga de color rojo, 2 de color verde, 3 de amarillo, 4 de azul y 5 de morado (por ejemplo) [...]



el ejemplo que expones -curiosamente- [casi] coincide con los indices de colores en vba-excel [con excepcion de 3 <-> 4] :))
suponiendo que 'la celda' es A1... copia las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
Select Case Range("a1")
Case 1 To 5: Range("a1").Interior.ColorIndex = Range("a1") + 2
Case Else: Range("a1").Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

toma nota que se pierde el beneficio del des-hacer... undo... ctrl+Z :-(
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida