Para evitar que se
observe en pantalla la ejecución de cada sentencia y el cálculo se realice a
solicitud del usuario no automáticamente
Sub Macro1()
Application.ScreenUpdating = False
‘desactivamos la vista sentencia a sentencia
Application.Calculation = xlCalculationManual
‘activamos el cálculo manual y no automatico
‘escriba el código aqui
Application.Calculation =
xlCalculationAutomatic ‘reponemos el cálculo automático
Application.ScreenUpdating = True
‘activamos la ejecución sentencia a sentencia
End Sub
No hay comentarios:
Publicar un comentario