Concatenar celdas conservando el estilo

04/07/2003 - 18:43 por Diego | Informe spam
Hola a todos!

Necesito mostrar en UNA celda el nombre (celda c1) y
apellidos (celda c2) de una persona.

El problema está en que el nombre debe salir en negrita,
entonces cuando asigno a esa celda el valor =concatenar
(c1;c2) me pierde el estilo del nombre, y o pongo los dos
en negrita o ninguno. ¿Hay alguna forma de copiar texto
conservando el estilo?

Muchas gracias
 

Leer las respuestas

#1 -José Luis-
04/07/2003 - 22:30 | Informe spam
Hola, espero que este código te sirva:

vF = Range("A1").End(xlDown).Row
For I = 1 To vF
v1 = Len(Range("A" & I).Value)
v2 = Len(Range("B" & I).Value)
Range("C" & I).Value = Range("A" & I).Value & Range("B"
& I).Value
Range("C" & I).Characters(Start:=1,
Length:=v1).Font.FontStyle = "Normal"
Range("C" & I).Characters(Start:=v1 + 1,
Length:=v2).Font.FontStyle = "Negrita"
Next I




Hola a todos!

Necesito mostrar en UNA celda el nombre (celda c1) y
apellidos (celda c2) de una persona.

El problema está en que el nombre debe salir en negrita,
entonces cuando asigno a esa celda el valor =concatenar
(c1;c2) me pierde el estilo del nombre, y o pongo los


dos
en negrita o ninguno. ¿Hay alguna forma de copiar texto
conservando el estilo?

Muchas gracias
.

Preguntas similares