Texto Y formato condicional

Hola,

Lo he probado en XL97 y funciona a la perfeccion. La propiedad ColorIndex si
q esta en XL97 VBA. A falta de informacion sobre q clase de error te da el
codigo, mirate estas dos cosas:

1) Que los macros esten habilitados. Si al abrir el fichero Excel no te
prgunta si quieres habilitar macros o no - es posible q tengas establecido
el nivel de seguridad alto. Solucion: ve al menu
Herramientas>Macro>Seguridad y cambia al nivel Medio.

2) Que las lineas del codigo no esten desplazadas como lo q estoy observando
en la copia de mi codigo q aparece mas abajo la siguiente linea en vez de:

With c.Interior Select Case c

deberia ser:

With c.Interior
Select Case c

Saludos,
KL
(XL 97, 2000, 2002)

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

wrote in message
news:e$

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

ME PARECE MUY ÚTIL ESTA SOLUCIÓN, SIN EMBARGO QUIERO SABER COMO CABIAR LOS
COLORES, ES DECIR LA TABLA DE LOS NÚMEROS DE COLORES. TE AGRADEZCO MUCHO TU
AYUDA.

"KL" escribió:

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