Como autoajustar la altura en celdas combinadas
Para Dante Amor.
Hola buenas tardes. Tengo tres columnas creadas con celdas combinadas por tanto la función de autoajuste de altura (Row Height) no se puede ejecutar, quiero una macro que realice ese autoajuste, pero que la altura dependa de la comparación de las tres columnas y que la ajuste a la de mayores caracteres (con el objeto que se pueda apreciar el contenido de todos los valores en las tres columnas).
Respuesta de Dante Amor
1
H o l a:
Envíame tu archivo, en la hoja, márcame de amarillo las celdas combinadas que tienen el problema. En otra hoja me pones la misma información de las celdas combinadas pero ahí pones el ejemplo de cómo quieres el resultado.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jair Abelardo Bustamante Moreno” y el título de esta pregunta.
Te anexo la macro para ajustar las filas
Dim wmax
'
Sub centrar()
'Por.Dante Amor
Application.ScreenUpdating = False
celda1 = Array("P", "U", "Z", "AJ")
celda2 = Array("T", "Y", "AD", "AN")
For i = 10 To Range("B" & Rows.Count).End(xlUp).Row
wmax = 0
For j = LBound(celda1) To UBound(celda1)
If Range(celda1(j) & i) <> "" Then
ajustarfila Range(celda1(j) & i & ":" & celda2(j) & i)
End If
Next
Next
Application.ScreenUpdating = True
MsgBox "Filas ajustadas"
End Sub
'
Sub ajustarfila(rngRango As Range)
'Por.Dante Amor
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
If sngAlto > wmax Then wmax = sngAlto + 15
If wmax > 409 Then wmax = 409
With rngRango
.Merge
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.Columns(1).EntireColumn.ColumnWidth = sngAnchoCelda
.Columns(1).RowHeight = wmax
End With
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
tengo un problema similar, quiero que se ajusten un rango de celdas combinadas por ejemplo: de la fila 20 columna "P" hasta la columna "BN". aclaro que no soy nada experto en macros y cuento con conocimientos muy básicos.gracias por su respuesta¡¡slds - Daniel Trevino
H ola: No se puede poner código en estos comentarios. Con mucho gusto te ayudo con todas tus peticiones. Crea una nueva pregunta en Todoexpertos dentro del tema de microsoft excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle lo que necesitas. Sal u dos - Dante Amor