Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Just for the Cool factor (gage).
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 Im looking for a round gage. Like a tachometer. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Just for the Cool factor (gage).
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 -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info "pgarcia" wrote in message ... 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 Im looking for a round gage. Like a tachometer. Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Just for the Cool factor (gage).
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 "Andy Pope" wrote: 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 -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info "pgarcia" wrote in message ... 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 Im looking for a round gage. Like a tachometer. Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Just for the Cool factor (gage).
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 pgarcia wrote: 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 "Andy Pope" wrote: 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 -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info "pgarcia" wrote in message ... 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 Im looking for a round gage. Like a tachometer. Thanks -- Andy Pope, Microsoft MVP - Excel http://www.andypope.info |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Time factor | Excel Worksheet Functions | |||
how to set-up gage calibration recall by date | Excel Discussion (Misc queries) | |||
IF FACTOR? | Excel Discussion (Misc queries) | |||
how do i get my spreadsheet to give me tank gage amounts. | Excel Worksheet Functions | |||
How do I use Excel to do a Gage Repeatability and Reproducibility. | Excel Worksheet Functions |