Jump to content
Sign in to follow this  
Favic

Concatenar celdas con formato diferente y mantenerlo

Recommended Posts

Hola amigos nuevamente como siempre.

Traigo una Macro si a alguno el interesa con mucho gusto esta disponible para que la usen. "Pero hay que perfeccionarla"

Tengo 3 Columnas pero cada columna tiene un dato pero algunos datos tienen un color diferente en el texto y tengo esta macro que me Concatena las 3 Filas manteniendo el formato. (Hasta aqui esta genial la macro).

Lo que pasa es que no necesito solo concatenar la celdas A2 B2 Y C2 sino son toda la columna A B Y C, (como si uno arrastrara la formula).

Alguna sugerencia asi el tema dejo aqui la macro y tambien el archivo.

ub 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

[/CODE]

concatenar celdas con formato color diferente.rar

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy