Acoplar textos largos a celdas de ancho fijo y altura variable
Tengo que meter textos en celdas con un ancho fijo y altura variable en función de la longitud del texto, como en el ejemplo de la figura adjunta. Manualmente pongo el cursor al final de la palabra “encuentran” y clic en ALT+INTRO con lo que la altura de la celda se adapta automáticamente . Se trata de crear una macro que realice el proceso.
1 Respuesta
Revisa lo siguiente: selecciona la columna donde pones los textos, en el menú inicio, selecciona Ajustar texto.
En automático toda las celdas se ajustan:
Lo puedes hacer manual, o con la siguiente macro:
Sub Macro2()
'Por.Dante Amor
Columns("B").WrapText = True
End SubSaludos.Dante Amor
Si es lo que necesitas.
Gracias Dante, la respuesta es perfecta.
Un paso más: ¿se puede justificar el texto introducido?
En el menú Inicio, Formato, Formato de celdas, Alineación, Horizontal: Justificar y Aceptar.
Con macro:
Sub Macro2()'Por.Dante Amor Columns("B").WrapText = True Columns("B").HorizontalAlignment = xlJustifyEnd Sub
