dOS COLORES DE TEXTO EN CELDA CON FORMULA

Increible

no pense que se pudiera :-))



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

hola, IVAN !

... Supongo que tendre que intentar aprender algo de VB, aunque solo sea
por cabezoneria.

no comentas para que o por que necesitas ese tipo de concatenacion que
incluya los formatos 'originales' -?-
[en via de mientras]... haz una prueba con la siguiente macro...
suponiendo que...
-> en 'D2' necesitas concatenar 'A2' - 'B2' - 'C2'' intercalando un
espacio entre cada una...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub ConcatenarConFormato()
[d2] = [a2] & " " & [b2] & " " & [c2]
With [d2]
With .Characters(1, Len([a2])).Font
.ColorIndex = [a2].Font.ColorIndex
.Bold = [a2].Font.Bold
.Italic = [a2].Font.Italic
.Name = [a2].Font.Name
.Size = [a2].Font.Size
.Underline = [a2].Font.Underline
End With
With .Characters(Len([a2]) + 2, Len([b2])).Font
.ColorIndex = [b2].Font.ColorIndex
.Bold = [b2].Font.Bold
.Italic = [b2].Font.Italic
.Name = [b2].Font.Name
.Size = [b2].Font.Size
.Underline = [b2].Font.Underline
End With
With .Characters(Len([a2] & [b2]) + 3, Len([c2])).Font
.ColorIndex = [c2].Font.ColorIndex
.Bold = [c2].Font.Bold
.Italic = [c2].Font.Italic
.Name = [c2].Font.Name
.Size = [c2].Font.Size
.Underline = [c2].Font.Underline
End With
End With
End Sub

hola, Carlos !

no pense que se pudiera :-))

[hasta ahora]... pocas cosas he visto que 'no se puedan hacer', con el 'binomio' excel-vba :D
como... uuhmmm... -?- [no recuerdo, pero creo que no lo han preguntado] :))

saludos,
hector.

Si entiendo bien tu código, me parece que los formatos hay que colocarlos
"manualmente" en el código.

Si es así, sería deseable que existiese otro código donde tome
automáticamente los formatos de las celdas.

Si no es así, entonces no tomen en cuenta este mensaje

Carlos

hola, Carlos !

Si entiendo bien... me parece que los formatos hay que colocarlos "manualmente" en el codigo.
Si es asi, seria deseable que existiese otro codigo donde tome automaticamente los formatos de las celdas.
Si no es asi, entonces no tomen en cuenta este mensaje.

1) puesto que lo has preguntdo/comentado/... tengo que asumir que no lo has probado :))
2) si lo analizas de nuevo, 'veras' que los formatos no se ponen 'manualmente' en el codigo...
lo que si es 'necesario' es 'averiguar' los formatos que tienen las celdas 'de origen'...
[para poderlos 'trasladar' a los caracteres correspondientes en la celda 'concatenada'] :))

[p.e.] escribe tres palabras en las celdas A2, B2 y C2
aplica formatos diferentes al texto en cada celda [fuente, color, negrita, cursiva, tama#o]
ejecuta la macro y observa 'que pasa' en la celda D2 ;)

saludos,
hector.

Héctor Miguel wrote:
Hola Hector:
He probado la macro y efectivamente funciona. De hecho ni siquiera habia
nada enese momento en las celdas pues el valor en las celdas de origen era
0, pero al meter cantidades y ejecutar la macro ha funcionado.

El problema es que elimina la formula y no he podido arrastrarla al rango
y me he atrevido a modificar la macro cambiando a1 x a1:a70, b1 x b1:b70,
etc, pero me da el error: "Se ha producido el error 13. No coinciden los
tipos.

No se si me habre explicado bien, en cualquier caso parece que puede
funcionar y de nuevo gracias.

hola, Carlos !

> Si entiendo bien... me parece que los formatos hay que colocarlos

"manualmente" en el codigo.

> Si es asi, seria deseable que existiese otro codigo donde tome

automaticamente los formatos de las celdas.

> Si no es asi, entonces no tomen en cuenta este mensaje.

1) puesto que lo has preguntdo/comentado/... tengo que asumir que no lo has

probado :))

2) si lo analizas de nuevo, 'veras' que los formatos no se ponen

'manualmente' en el codigo...

lo que si es 'necesario' es 'averiguar' los formatos que tienen las

celdas 'de origen'...

[para poderlos 'trasladar' a los caracteres correspondientes en la celda

'concatenada'] :))

[p.e.] escribe tres palabras en las celdas A2, B2 y C2
aplica formatos diferentes al texto en cada celda [fuente, color,

negrita, cursiva, tama#o]

ejecuta la macro y observa 'que pasa' en la celda D2 ;)

saludos,
hector.