Application StatusBar

[Steve001]

Morning All,

The status bar looks like it is in two halves ? or am i wrong (i can see a dividing line)

I can put a message in the first part by
Application.StatusBar = ("Updating Sheet Data Please Wait")

i am wanting to put a status of something in the second half is this possible how?

Can somebody please advise

PS please put comments in the code - still learning


Regards

Steve

 

[Steve001]

:edit blonde moment just realised the area i was looking at displays messages from excel ie "save file as ..."
Can i still populate this area with a status message with ease ?

 

[Yongle]

Can I still populate this area with a status message with ease ?

Yes
Paste attached into a module and run from any sheet. Observe status bar.

Sub StatusBarMessages()
'capture original value
    Dim oldStatusBar:  oldStatusBar = Application.DisplayStatusBar

'doing things and updating the status bar
    Application.StatusBar = "Adding data..."
        Application.Wait (Now + TimeValue("00:00:02"))  'dummy VBA action
        
    Application.StatusBar = "30% complete, sorting data ..."
        Application.Wait (Now + TimeValue("00:00:05"))
    
    Application.StatusBar = "85% complete , exporting data ..."
        Application.Wait (Now + TimeValue("00:00:05"))
    
'reset to riginal value
    Application.StatusBar = False: Application.DisplayStatusBar = oldStatusBar
End Sub

 

[Steve001]

Hi Yongle,

Thank you for your reply, I ant ting to put a message in the area to the right of the status bar.
Is this possible?

Steve

 

[Yongle]

I think the usable space is all on the left. But I can see this very long string on my screen

 Application.StatusBar = "abcdefghijklmnopqrstuvwxyz0123456789....ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789....abcdefghijklmnopqrstuvwxyz0123456789....ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789...."

 

[Steve001]

Thank you,

I have managed to do it with a bit of "fudge" factor, a blank string of twenty spaces then another string with my message for status.

Steve

 

[Yongle]

That is not a "fudge" - it is more making the best of an Excel limit in an "ugly" manner
But you could make it look less ugly like this

Application.StatusBar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ " & String(20, " ") & "abcdefghijklmnopqrstuvwxyz"

 

[Steve001]

Hi Yongle,

Thank you again

i like this > String(20, " ")

I had set a string called space = " "(20 spaces in it)

and used this within my messages

Steve