Alto de fila II

Hola Christian, qué tal!... otra vez con dudas... Te comento, en una consulta anterior, me facilitaste la siguiente macro:
Sub formato()
Dim acolb As Double, acolc As Double, acold As Double, acole As Double
Application.ScreenUpdating = False
If Sheets("Registre").Visible = True Then
acolb = Columns("B:B").ColumnWidth
acolc = Columns("C:C").ColumnWidth
acold = Columns("D:D").ColumnWidth
acole = Columns("E:E").ColumnWidth
Columns("A:A").ColumnWidth = acolb + acolc + acold + acole
Rows("12:12").EntireRow.AutoFit
Rows("14:14").EntireRow.AutoFit
Rows("16:16").EntireRow.AutoFit
Rows("24:24").EntireRow.AutoFit
Rows("30:30").EntireRow.AutoFit
Columns("A:A").EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
La macro anterior ajusta el alto de fila automáticamente en celdas combinadas.
La duda que me ha surgido es poder conseguir ajustar alto de fila cuando tengo predeterminado un alto de fila de 22.75 pts, ya que por "defecto" siempre toma como alto de fila 12.75.
Es posible, a partir de la macro anterior, alguna modificación para que ajuste alto de fila en celdas combinadas partiendo, por ejemplo, de un alto de 22.75, ¿y no 12.75 pts?
Gracias, una vez más, por tu ayuda y tiempo!
Saludos

1 respuesta

1
Respuesta de
Hola jordserr!
Que tal, bueno dejame probar como va la macro y considerando lo que necesites. Favor de no finalizar hasta que el tema este finiquitado del todo.
Saludos
Christian
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: