Progress meters on steriods !

[Andy Pope]

Hi all,

It's true, The Devil makes work for idle thumbs.

After answering a recent thread, look here, about displaying a progress meter whilst executing some lengthy code I decided to experiment.

The example contains various design alternatives for displaying your progress.

Hope you find this useful.

Cheers
Andy

[Dave Hawley]

These are really cool Andy! Great job.

[Squire_King]

I agree Dave they do look cool ....Thanks for re-linking.

Nice one Andy!


All the best

[Andy Pope]

Glad you like them. And thanks for the feedback.

[Squire_King]

Andy,

Just a note to say - those charts are awesome!!

I like the Userform "what's this Help " too.

Great site - Very talented

Thank you

[Will Riley]

Post up your code then...

[Will Riley]

Well first you need a userform with a progress meter on it. Just copy one of the tabs in Andy's example

Then just use the relevant tab's code i.e.

Sub DemoProgress1() 
     '
     ' Progress Bar
     '
    Dim intIndex As Integer 
    Dim sngPercent As Single 
    Dim intMax As Integer 
     
    intMax = 100 
    For intIndex = 1 To intMax 
        sngPercent = intIndex / intMax 
        ProgressStyle1 sngPercent, chkPg1Value.Value 
        DoEvents 
         '------------------------
         ' Your code would go here
         '------------------------
        Sleep 100 
    Next 
     
End Sub 

Placing the relevant piece of code within the loop

[Wigi]

Originally Posted by Will Riley

we're a help forum not a drug clinic

ROFLOL

[Dave Hawley]

onowahoo, you are off to a bad start.

1) This forum states no questions
2) No use of code tags altough you agreed to use them, among many other things, when joining.

I'm going to delete all post below your question. Please use the correct forum for Excel/VBA questions and when posting code use code tags.