Formato de celda

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias.

Si grabo un macro dando formato a la celda con fondo blanco y numero rojo, y
después agrego formato condicional para menor o igual que 1 como tu
quieres, Excel me escribe lo siguiente:

* * * * * * * * * *
INICIO MACRO
* * * * * * * * * *
Sub Macro3()
'
' Macro3 Macro
' Macro grabada el 15/11/2004 por julian sanchez gomez
'

'
Selection.Interior.ColorIndex = 2
Selection.Font.ColorIndex = 3
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual,
_
Formula1:="1"
Selection.FormatConditions(1).Font.ColorIndex = 5
Selection.FormatConditions(1).Interior.ColorIndex = 3
End Sub
* * * * * * * *
FIN MACRO
* * * * * * * *

SALUDOS.
julian-Valencia-España

http://www.access-facil.tk
http://www.access-sin-codigo.tk

"Gema" escribió en el mensaje
news:%

Hola!

Tengo un documento excel en el que una celda tiene un formato que no sé
configurar mediante codigo vb.

Se trata de una celda en la que se escibe un numero, de tal forma que si:

1) el numero escrito > 1,0: el fondo es blanco y el numero se pinta en
rojo
2) el numero escrito <=1,0: el fondo es rojo y el numero se pinta en azul.


Y no hay código vb que controle el evento de On_Change en la celda en
cuestion.

¿Alguien sabe como configurar el formato de una celda con estas
características?

Muchas gracias.