How do I add Please wait.... in the code

[RAJESH1960]

Hello experts
My code takes more than 45 seconds to display the message box that the code has successfully completed. Is it possible to add some lines in the code like Please wait.... ? I am curious as well as excited to add that line in the code, as I have seen such messages before. This is to inform the user that the code is in motion and running so that he doesn't click any button till the message box is displayed. Once the code is run, the message Please wait.... should disappear and then display the message box that it is successfully completed.

 

[Jimmypop]

Follow below points

1) See below screenshot & draw a shape in excel
2) Edit the shape & add text (what every you like - for example pls wait ect
2) then name the shape "waitmessage"
3) then put the below line at the very beggining of your code

ActiveSheet.Shapes.Range(Array("wiatmessage")).Visible = True

4) the put the below line at the very end of your code

ActiveSheet.Shapes.Range(Array("wiatmessage")).Visible = False

Should your line maybe not read

ActiveSheet.Shapes.Range(Array("waitmessage")).Visible = True

instead of

ActiveSheet.Shapes.Range(Array("wiatmessage")).Visible = True

Just noticed the spelling error

 

[Jimmypop]

How do I name the message?
View attachment 73307

select the shape... then in the circled box just type "waitmessage" and press enter... name of shape should be changed then to it...

from this



to this

 

[RAJESH1960]

select the shape... then in the circled box just type "waitmessage" and press enter... name of shape should be changed then to it...

from this

View attachment 73309

to this

View attachment 73310

Yes. That is what I did exactly. But still the message is not playing while the code is running.

then put the below line at the very beggining of your code

Should I place it above the sub or below the variables.?

 

[RAJESH1960]

If I place it below the variables where they are defined and above the end sub, the code runs but doesn't display Please wait.....
If I place it above in the very beginning below option explicit, it shows an error.

 

[RAJESH1960]

    Dim ws                  As Worksheet
    Dim waitmesaage         As Long

'Code by hrayani

ActiveSheet.Shapes.Range(Array("waitmessage")).Visible = True
waitmesaage = "Please Wait....."



    Set dic = CreateObject("scripting.dictionary")                                              ' Establish dictionary

Placed in the beginning

 ActiveSheet.Shapes.Range(Array("waitmessage")).Visible = False

    MsgBox "Data extracted successfully. Check Mismatched sheet for more Matches."                                         ' Display message to user

End Sub

Placed in the end

 

[Jimmypop]

    Dim ws                  As Worksheet
    Dim waitmesaage         As Long

'Code by hrayani

ActiveSheet.Shapes.Range(Array("waitmessage")).Visible = True
waitmesaage = "Please Wait....."



    Set dic = CreateObject("scripting.dictionary")                                              ' Establish dictionary

Placed in the beginning

 ActiveSheet.Shapes.Range(Array("waitmessage")).Visible = False

    MsgBox "Data extracted successfully. Check Mismatched sheet for more Matches."                                         ' Display message to user

End Sub

Placed in the end

Remove this line...and see what happens...

waitmesaage = "Please Wait....."

 

[RAJESH1960]

The code runs but the message Please wait is nowhere to be seen.

Remove this line...and see what happens...

 

[RAJESH1960]

How do I add a message "Please Wait...." in the code
FYI, I have posted the above query in another group as I still have not found the solution.

 

[RAJESH1960]

The above query is solved now. I placed these 2 lines of code in more than 10 different places in different modules and in the end another line of code to make the message disappear.
I created a userform to display the message and added this to the code

UserForm1.Show 0
DoEvents

and in the end one more line of code

Unload UserForm1

Only thing is I was not able to do was increase the font size of the message.

 

[My Aswer Is This]

I assume this is a Label your using for you message on the UserForm

Click on the label. In the properties window select font and then select the font size you want to make the message font larger