Texto Y formato condicional

Hola KL.Cómo sería para aplicar Formatos con colores de Fondo?

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

Luis,

Solo tienes q reemplazar:

With Target.Font

con:

With Target.Interior


Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Luis Caro" wrote in message
news:%

Hola KL.Cómo sería para aplicar Formatos con colores de Fondo?

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

Carlin,

El codigo de abajo evita el error q se puede producir al cambiar el
contenido de varias celdas a la vez:

'inicio codigo
Private Sub Worksheet_Change(ByVal Target As Range)
'Hacemos q solo funcione en la columna A
'Puedes cambiar la columna o columnas,
'por ejemplo "A:D" extenderia el efecto a
'las columnas A, B, C y D.
If Intersect(Target, Range("A:A")) Is Nothing Then _
Exit Sub

For Each c In Intersect(Target, Range("A:A"))
With c.Font
Select Case c
Case "UNION"
.ColorIndex = 3 'rojo
Case "HORZ"
.ColorIndex = 41 'azul
Case "PROF"
.ColorIndex = 54 'violeta
Case "INTEGRA"
.ColorIndex = 7 'fucsia
Case "ONP"
.ColorIndex = 1 'negro
Case Else
'si el color por defecto q usas
'en la columna evaluada no es el
'automatico, cambia el 0 por el
'numero correspondiente.
.ColorIndex = 0 'automatico
End Select
End With
Next
End Sub
'fin codigo


Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Carlin" wrote in message
news:

MuChas Gracias por el Codigo VBA
Con ese Ejemplo pude resolver el problema...

"KL" escribio:

Carlin,

Ya me lo imaginaba - acabo de escribirlo. Prueba copiar el siguiente
codigo
en el modulo de la hoja donde quires aplicar el formato condicional. Para
ello:

1) Haz clic derecho sobre la pestana con el nombre de la hoja (abajo de
todo)
2) Elige la opcion "Ver codigo". Se abrira el editor de VBA
3) En la ventana q aparecera a la derecha pega el codigo de abajo.
4) Modifica lo q haga falta en el codigo
5) Vuelve a la hoja y haz pruebas.

Saludos,
KL

'inicio codigo
Private Sub Worksheet_Change(ByVal Target As Range)
'Hacemos q solo funcione en la columna A
'Puedes cambiar la columna o columnas,
'por ejemplo "A:D" extenderia el efecto a
'las columnas A, B, C y D.
If Intersect(Target, Range("A:A")) Is Nothing Then _
Exit Sub

With Target.Font
Select Case Target
Case "UNION"
.ColorIndex = 3 'rojo
Case "HORZ"
.ColorIndex = 41 'azul
Case "PROF"
.ColorIndex = 54 'violeta
Case "INTEGRA"
.ColorIndex = 7 'fucsia
Case "ONP"
.ColorIndex = 1 'negro
Case Else
'si el color por defecto q usas
'en la columna evaluada no es el
'automatico, cambia el 0 por el
'numero correspondiente.
.ColorIndex = 0 'automatico
End Select
End With
End Sub
'fin codigo

"Carlin" wrote in message
news:
> Bueno me interesaria saber como hago para poder extender el limite de
> los
> formatos condicionales... y si me podrias dar una explicacion de estos
> ...
> Y claro m epuede escribir uno
>
> "KL" escribio:
>
>> Para poder extender este limite habria q hacer uso del codigo VBA. Di
>> si
>> queres q te escriba uno.
>>
>> Saludos,
>> KL
>>
>> "Carlos Duran Urenda" wrote in message
>> news:
>> > Solo puedes tener 3 formatos condicionales
>> >
>> >
>> >
>> > "Carlin" escribio en el mensaje
>> > news:
>> >> Bueno mi consulta es sobre como hacer cambios en el formato de las
>> >> celdas..
>> >> Bueno lo que yo quiero hacer es algo parecido a esto... Cambiar el
>> >> color
>> >> de
>> >> el texto de la celda si el numero era positivo cambiaba a azul y si
>> >> era
>> >> negativo cambiaba a rojoeso si lo hice cambiando el formato de
>> >> una
>> >> celda
>> >> para personalizarla
>> >> Bueno pero lo que yo quiero hacer ahora..es que cuando escriba
>> >> UNION
>> >> aparezca en rojo , cuando escriba HORZ aparezca en azul , cuando
>> >> escribo
>> >> PROF
>> >> aparezca en violeta, cuando escribo INTEGRA aparezca en fucsia y
>> >> cuando
>> >> escriba ONP aparezca en negro el texto...
>> >>
>> >> Bueno si alguien tuviera una respuesta a esta accion que no se como
>> >> realizarla...
>> >> si tuviera una respuesta me puede escribir tambien a :
>> >>
>> >> Seria de mucha ayuda...
>> >> Muchas Gracias
>> >
>> >
>>
>>
>>

Luis,

Este codigo evita el error q se podria producirse al cambiar el contenido de
varias celdas a la vez:

'inicio codigo
Private Sub Worksheet_Change(ByVal Target As Range)
'Hacemos q solo funcione en la columna A
'Puedes cambiar la columna o columnas,
'por ejemplo "A:D" extenderia el efecto a
'las columnas A, B, C y D.
If Intersect(Target, Range("A:A")) Is Nothing Then _
Exit Sub

For Each c In Intersect(Target, Range("A:A"))
With c.Interior Select Case c
Case "UNION"
.ColorIndex = 3 'rojo
Case "HORZ"
.ColorIndex = 41 'azul
Case "PROF"
.ColorIndex = 54 'violeta
Case "INTEGRA"
.ColorIndex = 7 'fucsia
Case "ONP"
.ColorIndex = 1 'negro
Case Else
'si el color por defecto q usas
'en la columna evaluada no es el
'automatico, cambia el 0 por el
'numero correspondiente.
.ColorIndex = 0 'automatico
End Select
End With
Next
End Sub
'fin codigo


Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"KL" wrote in message
news:

Luis,

Solo tienes q reemplazar:

With Target.Font

con:

With Target.Interior


Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Luis Caro" wrote in message
news:%

Hola KL.Cómo sería para aplicar Formatos con colores de Fondo?

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

che en excel 97 no me funciona esta formula pero en el excel XP si
utiliza otros comandos en el codigo. creo que color.index no esta?


"KL" escribió en el mensaje
news:#$

Luis,

Este codigo evita el error q se podria producirse al cambiar el contenido

de

varias celdas a la vez:

'inicio codigo
Private Sub Worksheet_Change(ByVal Target As Range)
'Hacemos q solo funcione en la columna A
'Puedes cambiar la columna o columnas,
'por ejemplo "A:D" extenderia el efecto a
'las columnas A, B, C y D.
If Intersect(Target, Range("A:A")) Is Nothing Then _
Exit Sub

For Each c In Intersect(Target, Range("A:A"))
With c.Interior Select Case c
Case "UNION"
.ColorIndex = 3 'rojo
Case "HORZ"
.ColorIndex = 41 'azul
Case "PROF"
.ColorIndex = 54 'violeta
Case "INTEGRA"
.ColorIndex = 7 'fucsia
Case "ONP"
.ColorIndex = 1 'negro
Case Else
'si el color por defecto q usas
'en la columna evaluada no es el
'automatico, cambia el 0 por el
'numero correspondiente.
.ColorIndex = 0 'automatico
End Select
End With
Next
End Sub
'fin codigo


Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"KL" wrote in message
news:
> Luis,
>
> Solo tienes q reemplazar:
>
> With Target.Font
>
> con:
>
> With Target.Interior
>
>
> Saludos,
> KL
> (XL 97, 2000, 2002)
>
> Ojo - mi separador de argumentos en las formulas es la coma ",".
> Puede q necesites cambiarla por punto y coma ";".
>
> Para usar mi direccion de correo electronico privada
> borra "NOSPAM" y "PLEASE" antes de usarla.
>
> "Luis Caro" wrote in message
> news:%
>> Hola KL.Cómo sería para aplicar Formatos con colores de Fondo?
>>
>> Cordialmente
>> Luis Caro
>>
>> No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
>> http://usuarios.lycos.es/maderascolombianas2/
>> http://www.geocities.com/maderascolombianas2002
>>
>>
>
>