¿Como colorear el Fondo Celda en funcion del resultado de una formula?

nomo escribió:

Hola hace unos dias lance una pregunta, el dia 26 del mes pasado:
¿Como obtener un valor de una celda en funcion del color de su celda?
Ufff!!!, demasié, no lo he conseguido, y aprovecho para saludar a TEX y
Hecto Miquel ;-))

Pues, finalmente desisto en esta idea y me la replanteo de nuevo y a la
inversa.
¿Como colorear el Fondo Celda en funcion del resultado de una formula?

Tengo una serie de formulas en (A10:Z10) cuyo resultados pueden variar en
funcion de los datos de una lista.
Hasta aqui todo bien.
Los resultados de las formulas son valores enteros, del 1 al 6, y quiero que
en funcion del valor me coloree el fondo de la celda.

Los colores son:
- Si es 1 dame: Fondo celda en ROJO y Texto en Blanco y en Megrita. ("el
texto negro normal, no se distingue bien con el fondo).
- Si es 2 dame: Fondo ROSA y Texto en Blanco y en Negrita.
- Si es 3 dame: Fondo AZUL el mas CLARITO. texto por defecto.
- Si es 4 dame: Fondo AMARILLO el mas CLARITO, texto por defecto.
- Si es 5 dame: Fondo VERDE el mas CLARITO, texto por defecto.
- Si es 6 dame: Fondo AMARILLO el mas FUERTE, texto por defecto.

Un saludo a todos, y Gracias por vuestras respuestas.

Hola Salvador :-)

Pues se me ocurre lo siguiente, no obstante esperaremos a ver que nos
comentan Hector Miguel y el resto de las personas, usuarios, compañeros,
que estamos en las news, ya que cada vez que me pongo ha hacer una
macro, como que el codigo y yo siempre acabamos discutiendo :-P

Puedes crearte un boton y asignarle esta macro eso si tendras que darle
al boton cada vez que hagas tus calculos :-)

Sub Mis_colores()

'colores interiores:
'3=rojo/38=rosa/34=azul clarito/36=amarillo clarito/35=Verde clarito/
'Y 6=Amarillo oscuro
'Color de texto: 2=Blanco y 0=por defecto y Bold=Negrita
'--
Dim cell As Object

For Each cell In Range("A1:j20")

If cell.Value = 1 Then
cell.Interior.ColorIndex = 3
cell.Font.FontStyle = "Bold"
cell.Font.ColorIndex = 2
Else

If cell.Value = 2 Then
cell.Interior.ColorIndex = 38
cell.Font.FontStyle = "Bold"
cell.Font.ColorIndex = 2

Else

If cell.Value = 3 Then
cell.Interior.ColorIndex = 34
cell.Font.ColorIndex = 0

Else

If cell.Value = 4 Then
cell.Interior.ColorIndex = 36
cell.Font.ColorIndex = 0

Else

If cell.Value = 5 Then
cell.Interior.ColorIndex = 35
cell.Font.ColorIndex = 0

Else

If cell.Value = 6 Then
cell.Interior.ColorIndex = 6
cell.Font.ColorIndex = 0

End If
End If
End If
End If
End If
End If
Next cell

End Sub

Nos comentas ok?:-)

Saludos
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es