colorear celdas según condiciones

11/11/2006 - 23:28 por leonardo | Informe spam
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
 

Leer las respuestas

#1 Tux
12/11/2006 - 10:46 | Informe spam
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

Preguntas similares