Una primera medida puede ser desactivar la actualización de
pantalla
...en las primeras líneas
Application.screenupdating=False
No debes olvidar colocarlo en True al finalizar el procedimiento
Application.screenupdating=True
Apagar los eventos automáticos
Lo hacemos con la instrucción: Application.EnableEvents=False
Evita ejecutar macros de evento
Lo hacemos con la instrucción: Application.EnableEvents=False
Evita ejecutar macros de evento
Apagar visualización de saltos de página
Lo hacemos con la instrucción: ActiveSheet.DisplayPageBreaks = False
Esto evita problemas entre macros Excel 2003 vs. 2007/2010
Lo hacemos con la instrucción: ActiveSheet.DisplayPageBreaks = False
Esto evita problemas entre macros Excel 2003 vs. 2007/2010
Sub Macro_Jes_Test
'Así debiera comenzar tu macro
Application.screenupdating=False
Application.calculation=xlCalculationManual
Application.EnableEvents=False
Application.calculation=xlCalculationManual
Application.EnableEvents=False
'Así debiera finalizar
Application.screenupdating=True
Application.calculation=xlCalculationAutomatic
Application.EnableEvents=true
Application.calculation=xlCalculationAutomatic
Application.EnableEvents=true
End Sub
No hay comentarios:
Publicar un comentario