Formato condicional

hola, Roberto !

... como poner mas de 3 condiciones en el formato condicional.

[hasa donde se] los formatos condicionales 'solo aceptan' 3 condiciones :((
podrias usar eventos ;)

¿cuales serian las condiciones?
¿que 'se debe hacer' segun cada condicion?

saludos,
hector.

Es tan simple como cambiar el color de la fuente y de la celda (ambos
iguales) segun tome un valor que puede ser de 1 a 7
Si meto un 1 me lo pone todo azul y asi con 6 o 7 numeros y colores

Gracias

"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

> ... como poner mas de 3 condiciones en el formato condicional.

[hasa donde se] los formatos condicionales 'solo aceptan' 3 condiciones

:((

podrias usar eventos ;)

¿cuales serian las condiciones?
¿que 'se debe hacer' segun cada condicion?

saludos,
hector.

hola, Roberto !

... tan simple como cambiar el color de la fuente y de la celda (ambos iguales)
segun tome un valor que puede ser de 1 a 7 [...]

prueba metiendo las siguientes lineas en el modulo de codito de 'la hoja'
______
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:b5")) Is Nothing Then Exit Sub
If Target > 0 And Target < 8 Then
Target.Interior.ColorIndex = Target + 4
Target.Font.ColorIndex = Target + 4
Else
Target.Interior.ColorIndex = xlColorIndexNone
Target.Font.ColorIndex = xlColorIndexAutomatic
End If
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
toma nota de que al modificar valores/formatos de celdas por codigo... SE PIERDE el 'beneficio' del 'undo' :((
saludos,
hector.

Funciona Bien, muchas gracias

Roberto

"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

> ... tan simple como cambiar el color de la fuente y de la celda (ambos

iguales)

> segun tome un valor que puede ser de 1 a 7 [...]

prueba metiendo las siguientes lineas en el modulo de codito de 'la hoja'
______
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:b5")) Is Nothing Then Exit Sub
If Target > 0 And Target < 8 Then
Target.Interior.ColorIndex = Target + 4
Target.Font.ColorIndex = Target + 4
Else
Target.Interior.ColorIndex = xlColorIndexNone
Target.Font.ColorIndex = xlColorIndexAutomatic
End If
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
toma nota de que al modificar valores/formatos de celdas por codigo... SE

PIERDE el 'beneficio' del 'undo' :((

saludos,
hector.