Texto Y formato condicional

Solo puedes tener 3 formatos condicionales



"Carlin" escribió 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

Para poder extender este limite habria q hacer uso del codigo VBA. Di si
queres q te escriba uno.

Saludos,
KL

"Carlos Durán Urenda" wrote in message
news:

Solo puedes tener 3 formatos condicionales



"Carlin" escribió 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

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" escribió:

Para poder extender este limite habria q hacer uso del codigo VBA. Di si
queres q te escriba uno.

Saludos,
KL

"Carlos Durán Urenda" wrote in message
news:
> Solo puedes tener 3 formatos condicionales
>
>
>
> "Carlin" escribió 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
>
>

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

MuChas Gracias por el Código VBA
Con ese Ejemplo pude resolver el problema...

"KL" escribió:

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