Transformar formato condicional

Hola Jos?:
Desde luego tiene que ser con VBA...y seguro que hay una solución mas
sencilla..pero mientras llega..
Una solución podría ser apoyándose en el valor que tiene Excel asignado a
sus colores, yo te he escrito dos macros dependiendo de si la celda que
deseas modificar tiene una formula o cambias el valor a mano:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Celd In [A1:A10]
Select Case Celd
Case Is < 5

If Celd.Interior.ColorIndex < 45 Then
Celd.Interior.ColorIndex = 45
Exit Sub
End If


Case Is < 10
If Celd.Interior.ColorIndex < 46 Then
Celd.Interior.ColorIndex = 46
Exit Sub
End If

Case Is < 15
If Celd.Interior.ColorIndex < 47 Then
Celd.Interior.ColorIndex = 47
Exit Sub
End If
End Select
Next
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:A10], Target) Is Nothing Then
Select Case Target
Case Is < 5

If Target.Interior.ColorIndex < 45 Then
Target.Interior.ColorIndex = 45
Exit Sub
End If


Case Is < 10
If Target.Interior.ColorIndex < 46 Then
Target.Interior.ColorIndex = 46
Exit Sub
End If

Case Is < 15
If Target.Interior.ColorIndex < 47 Then
Target.Interior.ColorIndex = 47
Exit Sub
End If
End Select
End If
End Sub

-Los colores son orientativos siempre que los pongas en orden ascendente
Un saludo.


"Jos?" escribió en el mensaje
news:

Hola!
Tal vez alguien pueda ayudarme a resolver este problema.
Necesito transformar un formato condicional en formato fijo.
Por ejemplo:
Tengo celdas que, cuando superan cierto valor, aparecen de color
verde.
Necesito que una vez aparecido el color, no vuelva a cambiar, a pesar
de que el valor de la celda cambie.
Algo similar a Pegado especial / Valores, pero con los formatos
condicionales.
Desde ya muchas gracias.

José
Buenos Aires