Application.Screenupdating

**pike** · Feb 22nd 2021

What is the best way to turn on and off screen updating and other applications to reduce interaction with code and screen.

one way AutoDisplay routine below at the start and finish of synatx for code with more that one update

Code

Sub AutoDisplay()
Application.ScreenUpdating = Not Application.ScreenUpdating
Application.DisplayAlerts = Not Application.DisplayAlerts
Application.Calculation = Array(xlCalculationManual, xlCalculationAutomatic)(CInt(Application.Calculation = xlCalculationAutomatic) + 1)
End Sub

**royUK** · Feb 22nd 2021

Application.ScreenUpdating doesn't need resetting now I believe

Code

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  : 12/03/2006 08:42
' Author    : Roy Cox (royUK)
' Purpose   : Reset Application from one Procedure
' Disclaimer: This code is offered as is and the author
'             accepts no responsibility for it's use.
'             You may use this code freely, but please leave this header intact.
'---------------------------------------------------------------------------------------

'Get current settings
Dim lCalc      As Long
Dim sOldSbar   As String

Public Sub AppSetting(Optional arg1 As String = "")
    If arg1 = "" Then
        lCalc = Application.Calculation
        sOldSbar = Application.DisplayStatusBar
        sOldAlerts = Application.DisplayAlerts
        With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False
            .DisplayAlerts = False
            .DisplayStatusBar = True
            .StatusBar = "Please wait, busy just now...."
        End With
    Else
        With Application
            .Calculation = lCalc
            .ScreenUpdating = True
            .DisplayAlerts = True
            .StatusBar = False
            .DisplayStatusBar = sOldSbar
        End With
    End If
End Sub

Sub Test()
    Call AppSetting
    MsgBox "Replace with your code "
    Call AppSetting("Reset")
End Sub

Display More

**pike** · Feb 22nd 2021

Thanks Roy,

straight to the pool room with this synatx

**royUK** · Feb 23rd 2021

Good to see you around Pike

**pike** · Feb 24th 2021

good to see you fellas are all ok too! - even though they were warning us about it - never would have guest i would see the world pandemic in our life time!

Application.Screenupdating

Participate now!

Share

Users Viewing This Thread