Macro muy lenta
Publicado por Indigo112 (1 intervención) el 09/08/2023 12:14:41
Muy buenas, tengo una macro muy sencilla que va muy lenta y no se por qué. Puede que sea porque son muchos datos y tengo graficas que lo realentizan pero me gustaría saber si lo puedo agilizar. También me gustaría añadir una barra de progreso para ver como va el cálculo. Muchas gracias.
Sub Optimizar()
Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual'
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Dim i As Integer
i = 4
For i = 4 To 204
Range("G" & i).Copy: Range("C9").PasteSpecial xlPasteValues
Range("B11").Copy: Range("H" & i).PasteSpecial xlPasteValues
Range("C11").Copy: Range("I" & i).PasteSpecial xlPasteValues
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Sub Optimizar()
Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual'
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Dim i As Integer
i = 4
For i = 4 To 204
Range("G" & i).Copy: Range("C9").PasteSpecial xlPasteValues
Range("B11").Copy: Range("H" & i).PasteSpecial xlPasteValues
Range("C11").Copy: Range("I" & i).PasteSpecial xlPasteValues
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False
End Sub
Valora esta pregunta
0
