¿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

Hola nomo. Lo de texto "por defecto", creo que no es aplicable pues si en
una celda tienes un 1 (blanco y negrita) y posteriormente cambias a 4,
tendrias "por defecto" blanco y negrita sobre sobre un fondo amarillo claro,
por lo que he optado por declarar "por defecto": texto negro y no negrita.
Si lo quieres de otra forma corrige o comenta.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A10:Z10")) Is Nothing) Then
Target.Font.ColorIndex = 0 ' texto negro y no
Target.Font.Bold = False ' negrita "por defecto".
Select Case Target
Case 1
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Target.Font.Bold = True
Case 2
Target.Interior.ColorIndex = 38
Target.Font.ColorIndex = 2
Target.Font.Bold = True
Case 3
Target.Interior.ColorIndex = 34
Case 4
Target.Interior.ColorIndex = 36
Case 5
Target.Interior.ColorIndex = 35
Case 6
Target.Interior.ColorIndex = 6
End Select
End If
End Sub

Saludos desde Tenerife.
********************************
"nomo" escribió en el mensaje
news:O5G5S8x$

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.

AnSanVal escribió:

Hola nomo. Lo de texto "por defecto", creo que no es aplicable pues si en
una celda tienes un 1 (blanco y negrita) y posteriormente cambias a 4,
tendrias "por defecto" blanco y negrita sobre sobre un fondo amarillo claro,
por lo que he optado por declarar "por defecto": texto negro y no negrita.
Si lo quieres de otra forma corrige o comenta.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A10:Z10")) Is Nothing) Then
Target.Font.ColorIndex = 0 ' texto negro y no
Target.Font.Bold = False ' negrita "por defecto".
Select Case Target
Case 1
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Target.Font.Bold = True
Case 2
Target.Interior.ColorIndex = 38
Target.Font.ColorIndex = 2
Target.Font.Bold = True
Case 3
Target.Interior.ColorIndex = 34
Case 4
Target.Interior.ColorIndex = 36
Case 5
Target.Interior.ColorIndex = 35
Case 6
Target.Interior.ColorIndex = 6
End Select
End If
End Sub

Saludos desde Tenerife.
********************************
"nomo" escribió en el mensaje
news:O5G5S8x$

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 de nuevo :-)

Y añadiendo entre la linea de codigo >>Dim cell As Object>> y >>For Each
cell In Range("A1:j20")>> entre estas dos lineas añadir esto:

Range("A1:j20").Interior.ColorIndex = xlNone
Selection.Font.Bold = False
Selection.Font.ColorIndex = 0
Range("F11").Select

¿Tambien serviria no? bueno seria un poco extenso el codigo :-S


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

AnSanVal escribió:

Hola nomo. Lo de texto "por defecto", creo que no es aplicable pues si en
una celda tienes un 1 (blanco y negrita) y posteriormente cambias a 4,
tendrias "por defecto" blanco y negrita sobre sobre un fondo amarillo claro,
por lo que he optado por declarar "por defecto": texto negro y no negrita.
Si lo quieres de otra forma corrige o comenta.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A10:Z10")) Is Nothing) Then
Target.Font.ColorIndex = 0 ' texto negro y no
Target.Font.Bold = False ' negrita "por defecto".
Select Case Target
Case 1
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Target.Font.Bold = True
Case 2
Target.Interior.ColorIndex = 38
Target.Font.ColorIndex = 2
Target.Font.Bold = True
Case 3
Target.Interior.ColorIndex = 34
Case 4
Target.Interior.ColorIndex = 36
Case 5
Target.Interior.ColorIndex = 35
Case 6
Target.Interior.ColorIndex = 6
End Select
End If
End Sub

Saludos desde Tenerife.
********************************
"nomo" escribió en el mensaje
news:O5G5S8x$

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 otra vez :-)

Gracias Ansaval, se me paso por alto ese detalle :-S, voy a probar la
tuya ahora en cuanto tenga un ratin libre :-)

¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Distinguido, has probado con el formato condicional ?

Menu Formato/Formato Condicional. (Al menos así me sale en el antiguo Excel
97.)

Saludos.
MZ



"nomo" escribió en el mensaje
news:O5G5S8x$

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.