Como hacer una concatenación de varias celdas en excel guardando formato de alguna de esas celdas en negrita, utilizando macro.
Lo máximo a lo que llegué es a esto, las tres celdas las une y con saltos de línea, pero sólo quiero que esté en negrita la segunda celda RC[-2]:
Sub Macro13()
'
' Macro13 Macro
'
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-3],CHAR(10),RC[-2],CHAR(10),RC[-1])"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
1 Respuesta
H o l a:
Utiliza la siguiente macro, para poner en la celda D1 la concatenación y para que la segunda línea te la ponga en negritas.
Sub Concatenar() 'Por.Dante Amor Cells(1, "D") = [A1] & Chr(10) & [B1] & Chr(10) & [C1] ini = Len([A1]) + 1 fin = Len([B1]) + 1 Cells(1, "D").Characters(Start:=ini, Length:=fin).Font.FontStyle = "Negrita" End Sub
¡Gracias!
Muchísimas gracias!! funciona perfecto!
y si tuviese 200 celdas A, B y C con contenido distinto... cómo se podría hacer para que ese resultado que arroja la celda D1, se resolviese en las 200 celdas D?
Así quedaría el ciclo:
Sub Concatenar()
'Por.Dante Amor
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Cells(i, "D") = Cells(i, "A") & Chr(10) & Cells(i, "B") & Chr(10) & Cells(i, "C")
ini = Len(Cells(i, "A")) + 1
fin = Len(Cells(i, "B")) + 1
Cells(i, "D").Characters(Start:=ini, Length:=fin).Font.FontStyle = "Negrita"
Next
End Subsal u dos
¡Gracias!
uff! de verdad que muchísimas gracias!!!
va genial! me ahorraste un montón de trabajo.
Gracias!!!
