Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with stetting Progress Bar
I need some help changing this code to fit my application. When I click on a
control Button I would like for a progress bar to pop up and show the progress of the Update. This Control Button Updates my Workbook and all the Header & Footnotes thru-out the Work Book with input from UserForm1. The Control Button is Located in in UserForm1. Control Button = Update_Engineer_Spec_10 Progress Bar is UserForm2 Sub Main() ' Progress Bar for Status of Engineering Spec Update Dim Counter As Integer Dim RowMax As Integer, ColMax As Integer Dim r As Integer, c As Integer Dim PctDone As Single If TypeName(ActiveSheet) < "Worksheet" Then Exit Sub Cells.Clear Application.ScreenUpdating = False Counter = 1 RowMax = 100 ColMax = 25 For r = 1 To RowMax For c = 1 To ColMax Cells(r, c) = Int(Rnd * 1000) Counter = Counter + 1 Next c PctDone = Counter / (RowMax * ColMax) With UserForm1 .FrameProgress.Caption = Format(PctDone, "0%") .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10) End With ' The DoEvents statement is responsible for the form updating DoEvents Next r Unload UserForm2 End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Progress Bar | Excel Discussion (Misc queries) | |||
Progress Bar | Excel Worksheet Functions | |||
Progress box | Excel Programming | |||
NEED Help - How to capture the Event's progress in Progress Bar | Excel Programming | |||
Progress Bar Help | Excel Programming |