Show Status on Userform While executing Code

by Selva V Pasupathy, HSBC Global Resourcing, Hyderabad

Copy the code below and paste it in code module and make sure that you make a userform with two labels with name property as label1 & label2….

Image of the splash screen that you can use to show to your users on your excel application


Option Explicit
Sub Show_userForm()
Userform1.Show
Userform1.Caption = “Splash screen or Status form”
Userform1.Label1.Caption = “Selva V Psaupathy”
Userform1.Label2.Caption = _
“There’s code in this example that shows ” & _
“the form for at least ten seconds in case ” & _
“the initialization procedure runs to quick. ” & _
“If you go through the trouble of showing a ” & _
“splash screen, you’ll want to make sure that ” & _
“it’s visible long enough for the user to see ” & _
“it. ”
Application.Wait Now() + TimeValue(“00:00:10”)
Unload Userform1
DoEvents
End Sub

Download an Example File Here CLICK HERE

Advertisements

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: