display message while code is running
How can I display a message while a macro is running and then have the
message automatically stop displaying when the macro completes. Example: "Please wait while the list is updating." I've tried MsgBox but this seems to require a user to click on "OK". Thank you. Dave |
display message while code is running
Have you tried using
Application.StatusBar = "Please wait while the list is updating." And Application.StatusBar = FALSE to Turn off. -- HTH, Barb Reinhardt If this post was helpful to you, please click YES below. "Bassman62" wrote: How can I display a message while a macro is running and then have the message automatically stop displaying when the macro completes. Example: "Please wait while the list is updating." I've tried MsgBox but this seems to require a user to click on "OK". Thank you. Dave |
display message while code is running
Consider:
Sub Macro1() ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 255#, 99.75, _ 202.5, 96#).Select Selection.Name = "waitabit" Selection.Characters.Text = "PLEASE WAIT" Range("H5").Select Application.Wait Now() + TimeValue("00:00:02") ActiveSheet.Shapes("waitabit").Select Selection.Cut End Sub -- Gary''s Student - gsnu200812 "Bassman62" wrote: How can I display a message while a macro is running and then have the message automatically stop displaying when the macro completes. Example: "Please wait while the list is updating." I've tried MsgBox but this seems to require a user to click on "OK". Thank you. Dave |
display message while code is running
"Gary''s Student" wrote: Consider: Sub Macro1() ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 255#, 99.75, _ 202.5, 96#).Select Selection.Name = "waitabit" Selection.Characters.Text = "PLEASE WAIT" Range("H5").Select Application.Wait Now() + TimeValue("00:00:02") ActiveSheet.Shapes("waitabit").Select Selection.Cut End Sub -- Gary''s Student - gsnu200812 "Bassman62" wrote: How can I display a message while a macro is running and then have the message automatically stop displaying when the macro completes. Example: "Please wait while the list is updating." I've tried MsgBox but this seems to require a user to click on "OK". Thank you. Dave |
display message while code is running
Sorry. My last reply did not display my text.
- Thank you for your suggestion. I accoumplished my goal by calling Macro1 from my main macro but did not include the "Wait" or "Cut" lines. I then "Cut" the shape at the end of my main macro. Thanks again. Dave "Gary''s Student" wrote: Consider: Sub Macro1() ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 255#, 99.75, _ 202.5, 96#).Select Selection.Name = "waitabit" Selection.Characters.Text = "PLEASE WAIT" Range("H5").Select Application.Wait Now() + TimeValue("00:00:02") ActiveSheet.Shapes("waitabit").Select Selection.Cut End Sub -- Gary''s Student - gsnu200812 "Bassman62" wrote: How can I display a message while a macro is running and then have the message automatically stop displaying when the macro completes. Example: "Please wait while the list is updating." I've tried MsgBox but this seems to require a user to click on "OK". Thank you. Dave |
display message while code is running
Sounds like a good approach
-- Gary''s Student - gsnu200812 "Bassman62" wrote: Sorry. My last reply did not display my text. - Thank you for your suggestion. I accoumplished my goal by calling Macro1 from my main macro but did not include the "Wait" or "Cut" lines. I then "Cut" the shape at the end of my main macro. Thanks again. Dave "Gary''s Student" wrote: Consider: Sub Macro1() ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 255#, 99.75, _ 202.5, 96#).Select Selection.Name = "waitabit" Selection.Characters.Text = "PLEASE WAIT" Range("H5").Select Application.Wait Now() + TimeValue("00:00:02") ActiveSheet.Shapes("waitabit").Select Selection.Cut End Sub -- Gary''s Student - gsnu200812 "Bassman62" wrote: How can I display a message while a macro is running and then have the message automatically stop displaying when the macro completes. Example: "Please wait while the list is updating." I've tried MsgBox but this seems to require a user to click on "OK". Thank you. Dave |
All times are GMT +1. The time now is 04:45 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com