Simple Question on Screenupdating

[ercedwards]

No biggie here.

While some of my macros are running, I have ScreenUpdating=false . I update the progress for the user by changing the Caption on a Command Button

and then turn on Updating and then turn it off. It works just fine.

I was wondering, however, if there was a way around turning ScreenUpdating on and off by somehow just forcing the Caption to refresh while Updating is still off.

Thanks much for any suggestions.
​

 

[Yongle]

Re: Simple QUestion on Screenupdating

No but you could use the Staus Bar instead

Put this silly code in a standard module and run
- the status bar is updated constantly but cell A1 is only updated once (despite the value changing 53,000 times)

Sub SBar()
Dim oldStatusBar, a, x, msg
Application.ScreenUpdating = False

With Application
    oldStatusBar = .DisplayStatusBar
    .DisplayStatusBar = True
    .StatusBar = "Please be patient..."
        For x = 1 To 3000
            Range("A1") = Range("a1") + 1
        Next
    .StatusBar = False
    .DisplayStatusBar = oldStatusBar


    oldStatusBar = .DisplayStatusBar
    .DisplayStatusBar = True
    .StatusBar = "Please be VERY patient..."
        For x = 1 To 10
            msg = msg & ">"
            For a = 1 To 5000
                Range("A1") = Range("a1") + 1
            Next a
            .StatusBar = msg
        Next
    .StatusBar = False
    .DisplayStatusBar = oldStatusBar
End With
End Sub

 

[ercedwards]

Re: Simple QUestion on Screenupdating

Thanks for the suggestion.

Because I am running FullScreen, the Status Bar is not visible so I can't use it for this purpose.

Cheers