Show UserForm Animation While Another Is Processing
Nov 20, 2009
I've been working on a variety of ways to display a 'loading' animation into Excel while other processes are running and although there seems to be a lot of strategies out there, none seem to jive with the form I've created. I've been reading a lot about "DoEvents", because that seems to be the common theme in trying to display a UserForm while other processes are running. However, I just don't have enough of a grasp of how it works to make it function properly with my form.
Basically, the form I have features several combo boxes, several command buttons, a few text fields and a bunch of labels. On initializing the form, captions for the labels and items in the combo boxes are added based on the ActiveCell and its surrounding values. Additionally, it includes an 'UPDATE' button that changes the captions and values on the form itself without hiding it, and once again makes reference to the active cell. This 'UPDATE' function can take quite some time and this is where I want to have a loading animation running.
Like I said, I've tried to achieve this in a few ways and the most hopeful avenue seems to be creating a separate UserForm with a WebBrowser element that references the animated GIF in question. However, when one UserForm is showing, the code from another will not run until it is closed. Thus, if I call the animation from the UPDATE button, the animation form will appear, but the update itself will not occur until the animation has been manually closed. Which defeats the purpose of a loading animation.
I understand that "DoEvents" is supposed to surrender some of the allotted processor power from the application so other code run, but the documentation surrounding it is rather convoluted to me. I can get it to work for simple operations, but I have not been able to simulate a situation where the command button on one form will show the animation form, run some code and then hide the animation with one click.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Application.ScreenUpdating = True Unload Me RestrictedOptions.Show Else Cancel = True End If End Sub
Trying to use above code to unload active userform and show new userform when red X (close) selected by operator. With the code as is, the Unload Me leaves the form on the screen and displays the RestrictedOptions form. If i remove the Restrictedoptions.Show, the Unload Me does remove the original form.
having trouble with the details of actually making these features work for me. I figured out how to create a UserForm with a ListBox and 2 buttons, but I don't know how to proceed from here.
1. Populate the ListBox in the UserForm with a list of names from the sheet "Totals_Dropdowns", cells K2:K11
2. Make the UserForm pop up and enter the user's selection into cell C40 of the "Regenerate Request"
I know these are very basic operations, and I'm pretty sure I can figure out the rest of my problems once I can get past the above.
I have an Excel workbook which runs a query via DAO against an Access database. The query usually takes about 6-7 seconds. Id like to do some animation while the query is running. My animation is just a simple Autoshape that I rotate (1 degree at a time) in a loop. Is there a way I can excecute my query and then continue to run my code while the query is excecuting?
I want to move a shape across the screen without the judder associated with using lots of small steps and application. screenupdating = true every time etc.
In Excel 2013, there is a transition in the cell when values change. I have a DDE feed updating data every few seconds and the folding animation is distracting. Is there a way to turn this off?
I have a userform button that when clicked loads another userform. I am getting a Runtime Error 13: Type mismatch on the line in bold in the code below
Private Sub cmdAdd_Click() Me.txtAdd.Value = Me.VarNo.Value VariationsForm.Show Unload Me End Sub
I do not get an error on the "Edit" button code which is similar so why is the above not working.
Private Sub CmdEdit_Click() Me.txtEdit.Value = Me.VarNo.Value VariationsForm.Show Unload Me End Sub
I'm trying to show a form from inside another form. Example: form1 has a command button and when clicked, I want it to show form2. But I always get a run-time error '32': type mismatch.
I have worksheet with cell A1 always change simultaneously (input from other source), in cell A2 I put formula, so value in A2 always change depending value in cell A1. The problem is I want to show that value A2 in userform VBA. I tray using textbox (in property textbox control source I set to A2) but not working because Cell A2 change from formula to static value.
I have a userform that is working perfectly, but when I try to make it an add-in I can't even get it to load. When loading the userform as an add-in I get the error "Run error nr. '9'.: The Index is out of the interval" (freely translated from Swedish to English). The code I'm using to load the userform is
I have a userform with multiple tabs. I have buttons on the excel sheet that correspond with the tabs. How do I get the buttons to open up their respective tabs in the userform?
For example: Button 1 opens Userform-Tab1; Button 2 opens Userform-Tab2; Button 3 opens Userform-Tab3; etc.
Right now they all open the userform, but open the first tab.
I have created a user form where I have two Dates fields. Date Leave (three comboxes, CmbDay, CmbMonth and CmbYear) and then I have written the following code
Private Sub Label4_Click() If CmbDay.ListIndex -1 And CmbMonth.ListIndex -1 And CmbYear.ListIndex -1 Then If IsDate(CmbDay & " " & CmbMonth & " " & CmbYear) Then MsgBox "You selected " & Format(CmbDay & " " & CmbMonth & " " & CmbYear, "dd/mm/yyyy"), , "Date selected"
[Code]....
I have got the code from there.
But I want the show the same date field in another field as Date Join. I have changed the names of Combo Boxes but it is not working.
I want to show the same combo boxes in another field. How do I do that?
I want to temporarily display a userform (maybe for 4seconds) when my spreadsheet loads.
I cannot grasp the ontime function, and from what I can tell most messages posted on here relate to using it for intervals, or to be used at a set time in the day. (I have looked at the Helpsheet for the Ontime function, but struggle to apply what is being said to my situation)
I bet you're getting sick of the "X" questions, and I have done an exhaustive search but the search filter kills searching for (X) or 'X' or "X" .. but nothing I did find is what I am looking to do. I have any # of userforms that when you click the "X" in the top right side, it will hide the userform... once.. Is there a fix to the code below to make it do it every time its clicked?
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 UserForm15.Hide UserForm11.Show If CloseMode = 1 Then Cancel = 1 UserForm15.Hide UserForm11.Show End Sub
Like I said, I don't want to disable it, I tried that off of one of the posts I found and thats just plain annoying, I just want it to hide the one userform and show the other. This will do it once and then you can click it all you want and it wont do anything.. see the annoying trait above.. this lasts until you exit the program.. so the X button can be hit repeatedly though out the day. The userform 15 is visible, userform 11 isn't shown, IE not behind userform 15.
Can the userform be coded so that it loads somewhere other than where it appears. I know that the user can move it after it loads but it would look better moved on its own prior to it being used. I have coded ThisWorkbook which loads on a double click:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub
I need the userform to display over to the right and up a bit
I've got a sheet with 5 UserForms (1..5). Whenever I hide one with a command button there is always a piece of code securing that the basic UserForm1 will be shown in the end. But this is only so when the UserForms get hidden with the use of the command buttons. When the user simply closes the UserForms by usign the x sign he ends up with the active sheet and no UserForms present. How can I secure that closing the last active UserForm with the x sign will cause the basic UserForm1 to show up.
how to creat a userform with a button (1) to show anouther userform with a button (2). you click the button on 1 and it shows 2. then when you click the button on 2 and it shows 1. I'm having a problem with the second part.
I've created a userform on one computer which launchs when I open the excel workbook. The userform contains comboboxs and a picture. But when i saved it on another computer and tried to open it and it errors. (Run-Time error 9). (Still works fine on the computer that created it). All references are to this workbook only. Userform is contained within the Forms folder of this workbook(not personal.xls) and the userform name is PDM_SPLASH1. Also, if i go into VBA I can see the form, but it wont launch when i try to play in manually. (Run-Time error 9)
I have aworkbook with Employee details data sheet. And, I have built two userforms to search and view the employee’s full details. I don’t know how to link the rowsource for combobox and textbox.
I have attached the excel file of what I'm trying to accomplish.
