Message while VBA is running

[Portucale]

Hi,

I have a function which calls 8 other macros, I would like to present to the users a message which let them know which routine/function is currently running.

Any idea?

Any help and ALL help is very much appreciated,

Thanks,

 

[Asheesh]

Hi Portucale,

Everytime you call a routine just use msgbox to define the working of that particular routine..you will have to do something like this...see the image

 

[Portucale]

Thanks Asheesh,

Is that means that I need to create 8 different msgbox??

Cheers,

 

[Asheesh]

Ideally yes...coz every routine will contain a different set of codes with different functionality...So definition of every routine will be different..

 

[Portucale]

In fact all the routines are similar just running in different sheets...

 

[Asheesh]

How could I miss this.......You have another option..you may want to use..

Application.StatusBar = “your message”

 

[Portucale]

Yeah, got that one , but don't tell me where in the routine is, hence was looking for something else.

 

[Asheesh]

In that case, you can create a routine to display the messge...and call that routine everytime just before you call the other routines...

 

[Portucale]

Can I have a Information MsgBox which closes after a few seconds?

 

[Asheesh]

Try this...

Const popupinseconds As Integer = 3
Dim myMsg As Integer
Sub test()
myMsg = CreateObject("WScript.Shell").PopUp("your message", popupinseconds, "Routine #")

End Sub

 

[Portucale]

Thanks,

A lot better than my procedure, not sure why but it takes longer than the 10 secs...

Private Sub Timer()
' function to disable MsgBox after determined time

Dim AckTime As Integer, MsgBox As Object
    Set MsgBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case MsgBox.Popup("Now running - SortOverview" & vbCrLf & _
                            "(this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select

End Sub

 

[Asheesh]

Happy that it works for you…However, I tried your code as well but it works absolutely fine..and doesn’t take more than 10 seconds..

 

[Portucale]

Must be me...

All works fine, thanks for the tips and help, much appreciated,

 

[Asheesh]

you welcome..

 

[Hui]

Several techniques are discussed here:
http://www.tushar-mehta.com/publish...display_message_for_a_specific_duration.shtml