Formatos en distintas partes de una cadena

hola Des,

Como anecdota, comentarte que este tema fue el principal culpable de
mi actual adiccion a VBA.

y, en tanto aparece alguien mas competente, y sin saber lo que pueda
afectar lo que respecta a combinar las celdas, puedes echar un vistazo
a estas conversaciones, en las que practicamente se hace lo que pides


dOS COLORES DE TEXTO EN CELDA CON FORMULA
http://tinyurl.com/37cbw7

Concatenar con formato
http://tinyurl.com/3bxns7

Negrilla cuando 'concateno'
http://tinyurl.com/384tgc

y estos son los resultados busqueda: 'Concatenar con formato'
http://tinyurl.com/3dm8ga

espero te ayude en algo, y si quieres comentas

un saludo y hasta pronto
Ivan

Hola Ivan. Gracias.

Cuando uno se obliga a pensar, se convierte en algo adictivo, y el VBA, para los no expertos, nos
obliga a rompernos los cuernos.

Lo que me mandas, a primera vista, no es exactamente, lo que buscaba, pero creo que tiene todos los
elementos para que llegue a conclusiones.
En caso contrario, comento de nuevo.

Saludos
Des

"Ivan" escribió en el mensaje
news:

hola Des,

Como anecdota, comentarte que este tema fue el principal culpable de
mi actual adiccion a VBA.

y, en tanto aparece alguien mas competente, y sin saber lo que pueda
afectar lo que respecta a combinar las celdas, puedes echar un vistazo
a estas conversaciones, en las que practicamente se hace lo que pides


dOS COLORES DE TEXTO EN CELDA CON FORMULA
http://tinyurl.com/37cbw7

Concatenar con formato
http://tinyurl.com/3bxns7

Negrilla cuando 'concateno'
http://tinyurl.com/384tgc

y estos son los resultados busqueda: 'Concatenar con formato'
http://tinyurl.com/3dm8ga

espero te ayude en algo, y si quieres comentas

un saludo y hasta pronto
Ivan

Hola Ivan.
Al final el código quedó así

With .Range("V97:BQ104")
.Merge
.WrapText = True
.HorizontalAlignment = xlLeft
.Value = Cadena & Entidad & Cadena2 & Cadena3 & CADENA4 & CADENA5 & CADENA6
With .Characters(Len(Cadena) + 1, Len(Entidad)).Font
.Bold = True
.Italic = True
.Size = 10
End With
With .Characters(Len([Cadena]) + Len(Entidad) + Len(Cadena2) + 1, Len(Cadena3)).Font
.Bold = True
.Italic = True
.Size = 10
End With
End With

Saludos
Des

"Ivan" escribió en el mensaje
news:

hola Des,

Como anecdota, comentarte que este tema fue el principal culpable de
mi actual adiccion a VBA.

y, en tanto aparece alguien mas competente, y sin saber lo que pueda
afectar lo que respecta a combinar las celdas, puedes echar un vistazo
a estas conversaciones, en las que practicamente se hace lo que pides


dOS COLORES DE TEXTO EN CELDA CON FORMULA
http://tinyurl.com/37cbw7

Concatenar con formato
http://tinyurl.com/3bxns7

Negrilla cuando 'concateno'
http://tinyurl.com/384tgc

y estos son los resultados busqueda: 'Concatenar con formato'
http://tinyurl.com/3dm8ga

espero te ayude en algo, y si quieres comentas

un saludo y hasta pronto
Ivan

hola Des,

me alegro y gracias por el detalle

un saludo
Ivan