Just for the “Cool†factor (gage).

  • Thread starter Thread starter pgarcia
  • Start date Start date
P

pgarcia

Does anyone have a VB Code that will run like a states bar? I found one a
while back and it works great to let me know what the progress is of a very
long macro. But I’m looking for a round gage. Like a tachometer. Thanks
 
Hi,

I have some alternatives to the standard bar visual.
http://www.andypope.info/vba/pmeter.htm

A taco style will require more coding as there is not a built-in control
that allows you to easily draw angled lines.
But is you search the rest of my site you will see it is possible by copying
shapes as images.

Cheers
Andy
 
Cool, (while scratching my head) how do you use them? Meaning, I have the
following VB Code and I would like to us the Rotary Dial, what all do I need
and where does it go?

Thank and very cool.

Sub A_FirstRunDCVReport()

Application.ScreenUpdating = False

Sheets("All Divisions").Select

Columns("D:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"AA1"), Unique:=True

Range("AA2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("AA2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AA2").Select
Selection.Insert Shift:=xlDown

Columns("AA:AA").Copy
Sheets("Quick Search").Select
Range("IG1").Select
ActiveSheet.Paste
Range("override").Select
Sheets("All Divisions").Select
Columns("AA:AA").Delete

Call B_DailyCash

Sheets("All Divisions").Visible = False
Sheets("Domestic").Visible = False
Sheets("Import").Visible = False
Sheets("Export").Visible = False

Sheets("Quick Search").Select
Range("E2:S2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
Sheets("How to...").Select
Range("A1").Select
MsgBox ("The update is now complete.")

End Sub
 
Progress bars, regardless of shape, work best when you have code that is
full of loops. Unless your routine B_DailyCash has loops then a progress
bar is not going to work very well.

You would be better of using the status bar to simply display
descriptive text of the current task the macro will be doing.

Application.Status "Filtering All Divisions... Please wait"

or

Application.Status "Sorting data... Please wait"

Well you get the idea.
And just before the routine ends use this to reset status bar text.

Application.Statusbar = False

Cheers
Andy
 
Back
Top