Cambiar color de fuente

22/11/2008 - 18:48 por Carlos | Informe spam

saludos
Por favor un ayuda
tengo que introducir en una columna valores en formato texto que terminan
en un numero por ejemplo 2; 3; 4; 5.
colum A colum B colum C colum d
fila1 xyz-12 ffffff ss
fila2 xgt-13 ddd oo
fia 3 xjy-14 ccc 555
Necesito que cuando se introduzca el dato en culaquiera de las celdas de la
columna A, (en este ejemplo en A1) cambie el color de la fuente de las celdas
adyacentes, es decir, b1;c1; etc. segun el valor del ultimo caracter del
valor de la celda, en este caso el numero 2 de colum A Fila 1 xyz-12.
Si termina en 2 color rojo, si termina en 3 color verde, etc.
Esto se puede hacer utilizando la funcion de formato condicional de excel,
el problema es que en la version de excel que tengo que hacer el trabajo,
solo acepta 3 cambios de formato, por lo tanto es necesario hacerlo en vba
estare muy agradecido por su ayuda
carlos

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Carlos

25/11/2008 - 15:15 | Informe spam

Saludos Hector Miguel
Todo perfecto
gracias por tu invalorable ayuda
Te felicito, no por tus conocimientos, sino por tu enorme capacidad para
ayudar y colaborar.
Att
Carlos

"Héctor Miguel" wrote:

hola, Carlos !

> ... para cada ultimo digito un diferente color. 2 rojo 3 verde 4 azul 5 amarillo y 6 cafe.
> ... de A1 a A80 si introduzco 145-13 en A1 el color de los valores de B1 a N1 sera verde y asi sucesivamente ...

copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa" hoja (clic-secundario sobre la etiqueta con su nombre):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Color As Byte
If Target.Count > 1 _
Or Intersect(Target, Range("a1:a80")) Is Nothing _
Then Exit Sub _
Else Color = Right(Target, 1) + 1
Color = Color - 46 * (Color = 7)
Target.Offset(, 1).Resize(, 13).Interior.ColorIndex = Color
End Sub

OJO: si en la realidad "afectas" MAS de una celda a la vez... sera necesario modificar (ligeramente) el codigo -?-
y... procura utilizar (SOLO) las terminaciones indicadas (1, 3, 4, 5 y 6) los otros digitos tendran diferente "efecto" de color

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida