Combinar y Centrar Aprendamos
Gracias EXPERTO APRENDAMOS, funciona a la perfección, tal y como solicite tu ayuda.
El texto queda abajo y centrado tal y como pedí tu asesoría, pero al tratar de de
hacer manualmente la alineación de texto horizontal GENERAL y vertical SUPERIOR
no lo hace, y queda una sola línea de texto y tengo que ampliarla manualmente.
Hay alguna forma de que se haga lo descrito anteriormente, en la macro que hiciste favor de
enviarme.
Es decir que el alto del campo se ajuste al texto (ya sea poco o mucho).
Sub centrar()
'Por.DAM
For i = 15 To Range("A" &
Rows.Count).End(xlUp).Row
Range("A" & i & ":C" & i).Merge
Range("A" & i & ":C" & i).HorizontalAlignment = xlCenter
Next
End Sub
1 Respuesta
Prueba con esta:
Sub centrar()
'Por.DAM
For i = 15 To Range("A" & Rows.Count).End(xlUp).Row
ajustarfila Range("A" & i & ":C" & i)
Next
End Sub
Sub ajustarfila(rngRango As Range)
'Por.DAM
Application.ScreenUpdating = False
For n = 1 To rngRango.Columns.Count
sngAnchoTotal = sngAnchoTotal + rngRango.Cells(1, n).ColumnWidth
Next n
With rngRango.Cells(1, 1)
sngAnchoCelda = .ColumnWidth
.MergeCells = False
.ColumnWidth = sngAnchoTotal
rngRango.Parent.Rows(rngRango.Row).AutoFit
sngAlto = .RowHeight
End With
With rngRango
.Merge
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.Columns(1).EntireColumn.ColumnWidth = sngAnchoCelda
.Columns(1).RowHeight = sngAlto
End With
Application.ScreenUpdating = True
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
Experto Aprendamos, no cabe duda eres un genio, gracias por tu excelente y efectiva ayuda.
Eres la salvación de un pueblo.
Que los Reyes Magos cumplan todas tus peticiones,
Saludos y que tengas un excelente año, te desea
Raul Ortiz
