Macro ajustar alto celda combinada lenta

[maylex]

Estimados, muchas gracias por ver mi tema, el tema es que tengo una macro que me funciona a la perfección para ajustar alto de celdas combinadas pero el problema es que me funciona muy lenta, y nose como poder hacerla mas efectiva. agradeceria su pronta ayuda. La macro es la siguiente:

Sub AjustarA1_A10()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Dim rngC As Range

For Each rngC In [Reporte!H5:H14]

AjustarTextoEnCeldasCombinadas rngC.MergeArea

Next rngC

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

Sub AjustarTextoEnCeldasCombinadas(rngRango As Range)

'Este sub cambiará la altura de la fila que tenga las celdas combinadas para que el texto & _

que tengan sea visible sin cambiar el ancho de las columnas.

If rngRango.Rows.Count <> 1 Then

MsgBox prompt:="El rango a ajustar no puede tener más de una fila.", Buttons:=vbCritical + vbOKOnly

Exit Sub

End If

Dim sngAnchoTotal As Single, sngAnchoCelda As Single, sngAlto As Single

Dim n As Integer

For n = 1 To rngRango.Columns.Count

sngAnchoTotal = sngAnchoTotal + rngRango.Cells(1, n).ColumnWidth

Next n

With rngRango.Cells(1, 1)

sngAnchoCelda = .ColumnWidth

.HorizontalAlignment = xlJustify

.MergeCells = False

.ColumnWidth = sngAnchoTotal

rngRango.Parent.Rows(rngRango.Row).AutoFit

sngAlto = .RowHeight

End With

With rngRango

.Merge

.Columns(1).EntireColumn.ColumnWidth = sngAnchoCelda

.Columns(1).RowHeight = sngAlto

End With

End Sub

Desde ya muchas gracias

[Antoni]

Ha mi me funciona muy rápido con el rango H5:H14. Instantaneo.

He probado con 1000 filas "H5:H1000" y tarda menos de 2 segundos.

Debe ser algo de tu archivo, con lo que si no lo subes, no se puede hacer nada mas.

[maylex]

Estimado envío archivo, creo que por la cantidad de macros que utilizo es tan lento, pero todas las macros son necesarias

nose como optimizarlo. Porsiacaso no es el archivo completo solo es una parte, la mas importante.

Saludos

reporte.rar

[Antoni]

No veo nada que justifique una duración excesiva.

[maylex]

Gracias por la respuesta, pero que me recomiendas hacer?

[Enigma25]

Buenas tardes

con el permiso del señor Macro Antonio y queriendo aportar algo mas, tengo unas lineas que quizas tambien le pueda servir. Desafortunadamente no tengo las opciones para envolver los codigos en su respectiva etiqueta y por ende los estoy dando normal. Tal vez es algo que no sale por la computadora que uso en el trabajo, pero ahi les va:

Este es para una hoja1 para ajustar el tamaño de la fila

Sub Ajustar_Ancho_Celdas()

With Hoja1

.Cells.EntireRow.AutoFit

End With

End Sub

[maylex]

Gracias, Enigma25 pero esa rutina creo que no sirve para celdas combinadas

[maylex]

Estimado Macro Antonio, alguna idea de como ayudarme porfaaaa, que esto me tiene loco nose como optimizarla.

gracias