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.

Gema,

?Alguna razon de por q no te vale el formato condicional? Para q inventar la
rueda si ese es nativo de Excel y muy rapido.

KL



"julian-Vlc-Sp" wrote in message
news:

> ¡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.

Ok todo perfecto usando Formato Condicional... pero la celda se queda sin
bordes grises..¿como se soluciona eso?

Muchas Gracias.

KL wrote:

Gema,

?Alguna razon de por q no te vale el formato condicional? Para q inventar la
rueda si ese es nativo de Excel y muy rapido.

KL



"julian-Vlc-Sp" wrote in message
news:
> > > ¡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.
>>
>
>

Dentro del Formato Condicional hay una opcion de formatear los bordes (la
segunda pestana). Puedes configurar los border come a ti te guste. Si dejas
esta opcion sin tocar, los bordes siempre permaneceran intactos, de lo
contrario Excel usara tu formato cuando se cumpla la condicion.
KL

"Gema" wrote in message
news:%

Ok todo perfecto usando Formato Condicional... pero la celda se queda sin
bordes grises..¿como se soluciona eso?

Muchas Gracias.

KL wrote:

Gema,

?Alguna razon de por q no te vale el formato condicional? Para q inventar
la
rueda si ese es nativo de Excel y muy rapido.

KL

"julian-Vlc-Sp" wrote in message
news:
> >> > ¡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.
>>
>
>