For examples you can look here: http://spreadsheetpage.com/index.php/tip/displaying_a_progress_indicator/
http://spreadsheetpage.com/index.php/blog/progress_bars_the_movie/ regards r 2010/10/21 roberto mensa <[email protected]> > the module of userform is a class module. > you have two form then you have two class modules (frmMain,frmWaiting) > > you can in your loop run a sub for change the appearance of userform, try > the ontime method combined with doevents but you can not get two separate > macros to run at the same time. > > you try posting all code > regards > r > > > > 2010/10/21 Ed from AZ <[email protected]> > > Thank you for your reply. >> But I'm afraid I don't understand very well. >> You use "class", and I don't have any special classes?? >> All I have is the two forms. >> >> The main code in Private Sub CommandButton1_Click() in frmMain does >> not contain any loops. It just begins and runs through until the >> end. My thought is to call a separate form (frmWaiting) that has a >> looping "action" indicator (as opposed to a "progress" indicator, >> because this isn't intended to show any specific amount of progress, >> just that action is happening). >> >> I am unclear about DoEvents and where it needs to be placed to allow >> this to happen - if it's even possible for this to happen. >> >> If I have in frmMain: >> CommandButton1_Click() >> frmWaiting.Open vbModeless >> DoEvents >> <rest of macro> >> >> won't the code hit the Open command, open the form and begin executing >> that loop, and never drop into the DoEvents and run the rest of the >> macro? >> >> I guess I'm actually trying to see if I can get two separate macros to >> run at the same time: my main code in one form, and the looping code >> in the second form. Am I trying to do the impossible? >> >> Ed >> >> On Oct 20, 4:13 am, roberto mensa <[email protected]> wrote: >> > try this soluction: >> > >> > 'in the class moduleuserform2 >> > 'showmodale=false >> > >> > Private Sub CommandButton1_Click() >> > Dim d >> > d = Now >> > UserForm1.Show vbModeless >> > 'your code >> > 'for example >> > Do >> > Loop Until Now > (d + TimeValue("00:00:10")) >> > >> > Unload UserForm1 >> > End Sub >> > >> > 'in the class moduleuserform1 >> > Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) >> > If CloseMode = vbFormControlMenu Then >> > Cancel = True >> > End If >> > End Sub >> > >> > regards >> > r >> > >> > https://sites.google.com/site/e90e50/user/excel-grafico-semaforo >> > 2010/10/20 Ed from AZ <[email protected]> >> > >> > >> > >> > > I've got a pretty long-running macro inside a UserForm, and I wanted >> > > to open a second form just to show that things are still working and >> > > not crashed. It's pretty simple - four labels and I cycle around >> > > turning one at a time a different color. >> > >> > > I call it from the main form with >> > > Private Sub CommandButton1_Click() >> > >> > > DoEvents >> > > frmWaiting.Show vbModeless >> > > DoEvents >> > >> > > Unfortunately, once the code drops into the second form, the main >> > > code >> > > in the first form never executes. >> > >> > > I thought DoEvents was supposed to let the running code "drop >> > > through" >> > > to allow both forms to run their code. Obviously, I'm very >> > > incorrect!! 8>( >> > >> > > How can I make this happen correctly? >> > > Ed >> > > (XL2007, Vista Pro) >> > >> > > -- >> > >> > > >> ---------------------------------------------------------------------------------- >> > > Some important links for excel users: >> > > 1. Follow us on TWITTER for tips tricks and links : >> > >http://twitter.com/exceldailytip >> > > 2. Join our LinkedIN group @ >> http://www.linkedin.com/groups?gid=1871310 >> > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com >> > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com >> > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com >> > >> > > To post to this group, send email to [email protected] >> > >> > > <><><><><><><><><><><><><><><><><><><><><><> >> > > Like our page on facebook , Just follow below link >> > > >> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&...-Hide >> quoted text - >> > >> > - Show quoted text - >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to [email protected] >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> >> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts >> > > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to [email protected] <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
