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.

 

[hrayani]

Hello Rajesh,

This is what I use to do with my time taking codes
Just insert a shape... format it the way you like & then set the visible property to True & the beggining of the code & set it to False at the end

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

'Your code here

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

 

[RAJESH1960]

Hello Rajesh,

This is what I use to do with my time taking codes
Just insert a shape... format it the way you like & then set the visible property to True & the beggining of the code & set it to False at the end

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

'Your code here

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

View attachment 73293

Thanks hrayani. in office now. Will check tonight and revert back.

 

[hrayani]

Thanks hrayani. in office now. Will check tonight and revert back.

sure

 

[RAJESH1960]

hrayani. I am unable to insert the lines in the right place. Below the sub after defining the variables I inserted these lines

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

waitmesaage = "Please Wait....."

and before end sub I inserted this line before the msg box.

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

I am getting an error variable not defined. I defined the variable as long.
Are the lines inserted correctly as I am not able to view any message only buffering circle.

 

[hrayani]

Can I have a look at the entire code ?

 

[RAJESH1960]

I am not able to post the code here as there are more than 100000 characters. Sharing the link containing the code. I have commented out your lines of code you shared.
new 3.txt

 

[RAJESH1960]

Just insert a shape... format it the way you like & then set the visible property to True & the beggining of the code & set it to False at the end

I did not understand this part. By the way, the code is in 4 different modules.

 

[hrayani]

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

 

[RAJESH1960]

then name the shape "waitmessage"

How do I name the message?