Formato Condicionado

15/07/2004 - 05:55 por Compumakro | Informe spam

Amigos
He hecho varios Ensayos y no he podido lograr que se cambie el color de la
fuente en una celda dependiendo de la palabra que se escriba en otra ("En
Servicio" o "Fuera de Servicio")

(Posible) Rango "D2:D500"

If Range("D2") = "En Servicio" then
Range("C2") = FontColorIndex = Azul
End If
If Range("D2") = "Fuera de Servicio" then
Range("C2") = FontColorIndex = Rojo
End If
End Sub

Gracias
Oscar
Barranquilla

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

15/07/2004 - 07:12 | Informe spam

hola, Oscar !

... que se cambie el color de la fuente en una celda dependiendo de la palabra que se escriba en otra [...]
If Range("D2") = "En Servicio" then
Range("C2") = FontColorIndex = Azul
End If
If Range("D2") = "Fuera de Servicio" then
Range("C2") = FontColorIndex = Rojo
End If

If Range("d2") = "En Servicio" Then Range("c2").Font.ColorIndex = 5 ' <= azul '
If Range("d2") = "Fuera de Servicio" Then Range("c2").Font.ColorIndex = 3 ' <= rojo '

consulta la ayuda [en vba] para los valores de cada color [ColorIndex] de la paleta de colores de excel ;)
saludos,
hector.

p.d. [quizas] te 'convendria' usar los formatos condicionales en lugar de usar macros [???]

Responder a este mensaje

#2 Compumakro

15/07/2004 - 13:54 | Informe spam

Hector gracias.
Lo de los formatos condicionales, estuve "cacharreándolo" pero la verdad no
pude ponerlo a funcionar.
Me enfoqué por fórmula, que creo que es lo correcto, pero no di con la
sintaxis de la condicional.
Voy a intentarlo nuevamente
Un Abrazo
Oscar

"Héctor Miguel" escribió en el mensaje
news:

hola, Oscar !

> ... que se cambie el color de la fuente en una celda dependiendo de la

palabra que se escriba en otra [...]

> If Range("D2") = "En Servicio" then
> Range("C2") = FontColorIndex = Azul
> End If
> If Range("D2") = "Fuera de Servicio" then
> Range("C2") = FontColorIndex = Rojo
> End If

If Range("d2") = "En Servicio" Then Range("c2").Font.ColorIndex = 5 ' <azul '
If Range("d2") = "Fuera de Servicio" Then Range("c2").Font.ColorIndex = 3

' <= rojo '

consulta la ayuda [en vba] para los valores de cada color [ColorIndex] de

la paleta de colores de excel ;)

saludos,
hector.

p.d. [quizas] te 'convendria' usar los formatos condicionales en lugar de

usar macros [???]

Responder a este mensaje

#3 Héctor Miguel

15/07/2004 - 23:58 | Informe spam

hola, Oscar !

... los formatos condicionales ... enfoque por formula ... pero no di con la sintaxis de la condicional.

solo es necesario usar una formula que pueda ser 'evaluada' como verdadero [para que 'aplique' la condicion]
en el caso que planteas, habria que 'emplear' 2 [de las 3 posibles] condiciones de formato [p.e.]
- selecciona el rango al que se le aplicarian los colores de fuente: 'C2:C500'
- ve a [menu] formato / formato condicional y 'aplica'...
para la 'condicion1': la formula: Ò="en servicio" y un color de fuente azul
para la 'condicion2': la formula: Ò="fuera de servicio" y un color de fuente rojo
- 'acepta' y... ¡ listo !!! ;)

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida