Concatenar.

04/05/2005 - 22:24 por Noe´s | Informe spam
Hola y saludos

Tengo dos textos y los quiero concatenar pero deseo que el primer texto
mantenga tanto como su formato y tamaño de letra, espero haberme explicado
gracias a todos.
Noe´s
 

Leer las respuestas

#1 Héctor Miguel
05/05/2005 - 03:41 | Informe spam
hola, Noe´s !

Tengo dos textos y los quiero concatenar pero... que el primer texto mantenga... su formato y tamaño de letra [...]



puesto que las formulas y funciones de hoja de calculo no pueden 'alterar' esas caracteristicas :-(
y si no es inconveniente [el 'tener que'] usar macros :))... prueba con algo +/- como lo siguiente...
-> selecciona el rango con las celdas con formato y el codigo la agregara con 'la siguiente' a una tercera 'columna'
-> toma nota de que deberas 'encontrar' [y 'complementar' el codigo] segun el estilo 'normal' que usas <-

si cualquier duda... comentas?
saludos,
hector.
en un modulo de codgo 'normal' ==Sub ConcatenarDosCeldasLaPrimeraConFormato()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Selection
With Celda
.Copy .Offset(, 2)
.Offset(, 2) = .Value & " " & .Offset(, 1)
With .Offset(, 2).Characters(Len(Celda) + 1).Font
.Name = "Arial"
.Size = 8
.Bold = False
.Italic = False
.Underline = False
.ColorIndex = xlColorIndexAutomatic
End With
.Offset(, 2).EntireColumn.AutoFit
End With
Next
End Sub

Preguntas similares