colorear celdas según condiciones

leonardo escribió:

hola a todos y gracias por vuestra ayuda.

tengo una lista de nombres con puntajes.
fulano 28
mengano 26
.
.
.
perengano 2

La lista está ordenada en forma descendente por el puntaje.
Quisiera (por código, para ponerlo en un macro) que me pintara los que están
ubicados en los 6 primeros puestos. No siempre habrá en la lista 6 o más 6
participantes, puede haber menos y en este caso que los pinte todos.

Con otro color quisiera pintar, aquellos mayores que determinado valor y que
no sean los 6 primeros (puede no haber ninguno).

por ahora gracias, otra vez.
leonardo

Hola Leornardo :-)

Si lo que necesitas o deseas es una macro y sabiendo que se puede
utilizar el formato condicional más rapido que una macro, pues bien,
suponiendo que el puntaje este en 50 como maximo:

Sub Colorear_Puntajes()

'ColorIndex 3 = rojo
'ColorIndex 5 = azul


For Each Celda In [A1:A50]

If Celda < 50 Then
Celda.Font.ColorIndex = 3

End If

If Celda > 50 Then
Celda.Font.ColorIndex = 5

End If


Next

End Sub

Nos comentas ok? :-)



¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Hola chicos,

suponiendo que...

-la tabla esta en el rango [A1:B30]
-en [A1:A30] estan los nombres
-en [B1:B30] estan los puntos
-50 es el "determinado valor"


Op1: Segun el puntaje (independiente de la ordenacion)
-
- seleccionamos el rango [A1:B30] empezando desde la celda [A1]
- menu Formato>Formato condicional...
- en el 1er desplegable de la Condicion1 seleccionamos la opcion 'Formula es'
- en la casilla para la formula ponemos:
=JERARQUIA($B1;$B$1:$B$30)<=6
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar
- pulsamos el boton Anadir
- en el 1er desplegable de la Condicion2 seleccionamos la opcion 'Formula es'
- en la casilla para la formula ponemos:
=Y($B1>50;JERARQUIA($B1;$B$1:$B$30)>6)
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar y otra vez Aceptar



Op2: Segun la fila (dependiente de la ordenacion)
-
- seleccionamos el rango [A1:B30] empezando desde la celda [A1]
- menu Formato>Formato condicional...
- en el 1er desplegable de la Condicion1 seleccionamos la opcion 'Formula es'
- en la casilla para la formula ponemos:
=FILA()-FILA($A$1)<=5
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar
- pulsamos el boton Anadir
- en el 1er desplegable de la Condicion2 seleccionamos la opcion 'Formula es'
- en la casilla para la formula ponemos:
=Y($A1>50;FILA()-FILA($A$1)>5)
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar y otra vez Aceptar

Saludos,
KL


"Tux" wrote in message news:

leonardo escribió:

hola a todos y gracias por vuestra ayuda.

tengo una lista de nombres con puntajes.
fulano 28
mengano 26
.
.
.
perengano 2

La lista está ordenada en forma descendente por el puntaje.
Quisiera (por código, para ponerlo en un macro) que me pintara los que están
ubicados en los 6 primeros puestos. No siempre habrá en la lista 6 o más 6
participantes, puede haber menos y en este caso que los pinte todos.

Con otro color quisiera pintar, aquellos mayores que determinado valor y que
no sean los 6 primeros (puede no haber ninguno).

por ahora gracias, otra vez.
leonardo

Hola Leornardo :-)

Si lo que necesitas o deseas es una macro y sabiendo que se puede utilizar el formato condicional más rapido que una macro, pues
bien, suponiendo que el puntaje este en 50 como maximo:

Sub Colorear_Puntajes()

'ColorIndex 3 = rojo
'ColorIndex 5 = azul


For Each Celda In [A1:A50]

If Celda < 50 Then
Celda.Font.ColorIndex = 3

End If

If Celda > 50 Then
Celda.Font.ColorIndex = 5

End If


Next

End Sub

Nos comentas ok? :-)



¡Un SAludo!:-)

www.fermu.com
www.zorval.es

KL escribió:

Hola chicos,

suponiendo que...

-la tabla esta en el rango [A1:B30]
-en [A1:A30] estan los nombres
-en [B1:B30] estan los puntos
-50 es el "determinado valor"


Op1: Segun el puntaje (independiente de la ordenacion)
-
- seleccionamos el rango [A1:B30] empezando desde la celda [A1]
- menu Formato>Formato condicional...
- en el 1er desplegable de la Condicion1 seleccionamos la opcion
'Formula es'
- en la casilla para la formula ponemos:
=JERARQUIA($B1;$B$1:$B$30)<=6
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar
- pulsamos el boton Anadir
- en el 1er desplegable de la Condicion2 seleccionamos la opcion
'Formula es'
- en la casilla para la formula ponemos:
=Y($B1>50;JERARQUIA($B1;$B$1:$B$30)>6)
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar y otra vez Aceptar



Op2: Segun la fila (dependiente de la ordenacion)
-
- seleccionamos el rango [A1:B30] empezando desde la celda [A1]
- menu Formato>Formato condicional...
- en el 1er desplegable de la Condicion1 seleccionamos la opcion
'Formula es'
- en la casilla para la formula ponemos:
=FILA()-FILA($A$1)<=5
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar
- pulsamos el boton Anadir
- en el 1er desplegable de la Condicion2 seleccionamos la opcion
'Formula es'
- en la casilla para la formula ponemos:
=Y($A1>50;FILA()-FILA($A$1)>5)
- pulsamos el boton Formato y elegimos el formato deseado
- pulsamos el boton Aceptar y otra vez Aceptar

Hola de nuevo :-)


Po zi :-), mejor asi porque aparte de que es mas rapido, mi macro pues
no respetaria a los participantes 6 primeros sino efectuaria el color a
toda la columna solo para mayor y menores de 50 :-P (y me he quedado tan
ancha al hacerla :-) Ay dios!)

Bueno lo dicho :-)

Saludos
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es