Comments on: Yet Another Progress Bar

By: Marie

Marie — Thu, 20 Nov 2008 16:58:00 +0000

This worked great for me... I had to show the form modeless though or else it didn't let my code finish and I needed a DoEvents after the first selection is updated. The two additions I made to the code were below

Dim ufUpdate As UUpdate
Dim dtTime As Date

'instantiate the userform
Set ufUpdate = New UUpdate
ufUpdate.lbxStatus.AddItem "Started Process..."
ufUpdate.lbxStatus.AddItem "Refreshed Pivot Table..."
ufUpdate.lbxStatus.AddItem "New Report Created!"
ufUpdate.Show vbModeless

'show step as complete
ufUpdate.lbxStatus.Selected(0) = True
DoEvents

By: Mailme

Mailme — Wed, 10 Sep 2008 23:54:00 +0000

Just to add a little more to the above, it shows/works perfectly when I run it in Debug mode.

Thanks.

By: Mailme

Mailme — Wed, 10 Sep 2008 23:53:00 +0000

Hi,

Thank you for this excellent idea. I am using it in my current work. All works well except that the Progress Bar form is not visible.....it comes in grey mode and stays there as if it is waiting to get repainted.

Thanks again.

By: Jan Terje Augestad

Jan Terje Augestad — Wed, 06 Aug 2008 09:27:00 +0000

Just wanted to thank you for this excellent code. I’m using it in my projects and have also received great feedback on it!

By: Dick Kusleika

Dick Kusleika — Tue, 08 Jan 2008 15:49:00 +0000

dion: It's a tip from Professional Excel Development. By using my own variable, I can control when it's created and destroyed, rather than relying on VBA to do it.

By: dion

dion — Tue, 08 Jan 2008 14:08:00 +0000

This is plain awesome!! Thanks a ton Dick.

One small question, why did you use "ufUpdate" to hold an instance of the form? Why not just do this - Userform1.lbxStatus.additem = whatever ?

Dion

By: Mike Alexander

Mike Alexander — Sat, 29 Sep 2007 16:00:00 +0000

A7n9,

A combination of SetWarnings and Do Events should work for most situations.
For example:

SetWarnings False
'action 1
Do Events
'action 2
Do Events
'action 3
Do events
SetWarnings True

By: a7n9

a7n9 — Thu, 27 Sep 2007 15:19:00 +0000

Hey Dick,
I tried to replicate the same in Access, and it works. However, I’m turning of the echo and warnings as soon as my process starts, so I’m seeing all the updates after the process has stopped . Any other solutions to have the warnings off and still show updates? Thanks.

By: Hendrik

Hendrik — Tue, 21 Aug 2007 13:35:00 +0000

I can’t seem to get this working. Is it Office XP tested?

By: Paulvan

Paulvan — Mon, 13 Aug 2007 13:18:00 +0000

Internally I record the start and end times of each component in the progress stream and then calculate the duration. In a db table or a very hidden worksheet if using Excel VBA, I record the times for last 5 or 10 executions of the each component. The status window displays the average duration time for each of the components so the user can have a sense for how long each part will take. Since I run the process many times in test before it goes to the user, they start off with average times on their first use of it.