ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Status Message User Form in Excel '97 (https://www.excelbanter.com/excel-programming/285249-status-message-user-form-excel-97-a.html)

Brad[_11_]

Status Message User Form in Excel '97
 
Hi all,

I've created a workbook in Excel 2000 that runs a
series of functions (e.g. imports a file, manipulates the
data, outputs a report, etc.). I wanted to present a
custom status message to the end user to let her know what
step is being processed. So, I put together the following
code:

Sub Update_StatRem(StatRem, ScreenUpdate)
UserForm2.lblStatRem.Caption = StatRem
Application.ScreenUpdating = True
UserForm2.Show (vbModeless)
UserForm2.Repaint
Application.ScreenUpdating = ScreenUpdate
End Sub


In this case, StatRem is a line of text, like "Importing
the file..." that I pass from the calling macro to this
macro. Each time a new step is started in the series of
macros, I pass a new value to StatRem, call this code, and
the userform is updated with a new message. The problem
is some end users are using Office '97 and Office '97
can't run a userform as modeless. Is there a way to make
this work in both Office '97 and Office 2000? If not, is
there a way to accomplish my goal in just Office '97?
Thanks in advance for the help.

-Brad

Dave Ramage[_2_]

Status Message User Form in Excel '97
 
Brad,

You could try Stephen Bullen's 'FloatWind' demo he
http://www.bmsltd.co.uk/Excel/Default.htm

...or set the Application.StatusBar property?

Cheers,
Dave.
-----Original Message-----
Hi all,

I've created a workbook in Excel 2000 that runs a
series of functions (e.g. imports a file, manipulates the
data, outputs a report, etc.). I wanted to present a
custom status message to the end user to let her know

what
step is being processed. So, I put together the

following
code:

Sub Update_StatRem(StatRem, ScreenUpdate)
UserForm2.lblStatRem.Caption = StatRem
Application.ScreenUpdating = True
UserForm2.Show (vbModeless)
UserForm2.Repaint
Application.ScreenUpdating = ScreenUpdate
End Sub


In this case, StatRem is a line of text, like "Importing
the file..." that I pass from the calling macro to this
macro. Each time a new step is started in the series of
macros, I pass a new value to StatRem, call this code,

and
the userform is updated with a new message. The problem
is some end users are using Office '97 and Office '97
can't run a userform as modeless. Is there a way to make
this work in both Office '97 and Office 2000? If not, is
there a way to accomplish my goal in just Office '97?
Thanks in advance for the help.

-Brad
.


Brad[_11_]

Status Message User Form in Excel '97
 
Dave,

Thanks for the information. I opted to use the
statusbar property. The message is not as noticable for
the user, but simpler and faster for a hack like me.

-Brad


-----Original Message-----
Brad,

You could try Stephen Bullen's 'FloatWind' demo he
http://www.bmsltd.co.uk/Excel/Default.htm

...or set the Application.StatusBar property?

Cheers,
Dave.




All times are GMT +1. The time now is 08:28 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com