Pausar actualización de pantalla en Excel al ejecutar una macro con ScreenUpdating

En el suguiente video muestro como con la propiedad ScreenUpdatin del objeto Application nos permite apagar la actualización de pantalla para ejecutar una macro que se lleve muchos pasos, y en cambio sólo muestre el resultado final.

En el artículo Lista incompleta de tips para programar macros en Excel sugiero el uso de dicha propiedad con el objeto de ahorrar memoria y hacer nuestras macros más eficiente.

Código utilizado en el video

Private Sub CommandButton1_Click()
'Con actualización de pantalla
Range("A2").Select
Do While ActiveCell <> ""
    ActiveCell.Value = ActiveCell.Value & Contador
    Contador = Contador + 1
    ActiveCell.Offset(1, 0).Select
Loop
Range("A2").Select
End Sub

Private Sub CommandButton2_Click()
'Sin actualización de pantalla
Range("D2").Select
Application.ScreenUpdating = False
Do While ActiveCell <> ""
    ActiveCell.Value = ActiveCell.Value & Contador
    Contador = Contador + 1
    ActiveCell.Offset(1, 0).Select
Loop
Range("D2").Select
Application.ScreenUpdating = True
End Sub

Video

You may also like...