Opening a userform while another is open

**rbyrd023** · 12-29-2010, 01:18 PM

Hello all!
Not sure if the title really says what I want.

Anyways, I have a userform that allows me to edit an order. When I edit the order and click "done" (commandbutton) the code changes the order by moving what I typed in the textbox to a cell on a worksheet.

With this userform (and some others in my workbook) I would like to open another userform that has an animated gif in a webbrowser stating that excel is processing, while the first userform is running its code. When the code is finished, I want the second userform (processing) to go away.

I have already tried opening as "vbmodeless", but it says that I cant do that!

Any suggestions?

**Leith Ross** · 12-29-2010, 01:43 PM

Hello rbyrd023,

While the first UserForm is running, hide it and then show the second form. Once the first form is done then close the second form and show the first.

In UserForm1

  Me.Hide
  UserForm2.Show

  'Code to do processing

  'Close UserForm2
   SendKeys "%{F4}"

  Me.Show

**rbyrd023** · 12-29-2010, 01:49 PM

Thank you for the response. I just tried that, but the first userform will not execute the code while the second form is running.

Here is the code I have on that command button:

Private Sub CommandButton1_Click()
Me.Hide

frmTest.Show


Sheets("Material Worksheet").Range("A118").Value = TextBox1.Value
Sheets("Material Worksheet").Range("B118").Value = TextBox2.Value
Sheets("Material Worksheet").Range("C118").Value = TextBox3.Value

Label1.Caption = TextBox1.Value
Label2.Caption = TextBox2.Value
Label3.Caption = TextBox3.Value
CommandButton1.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Edit1.Visible = True
del1.Visible = True
Unload frmTest
SendKeys "%{F4}"
Me.Show



End Sub

**Leith Ross** · 12-29-2010, 02:02 PM

Hello rbyrd023,

You have unloaded the form and then tried to close it. Because the second for is already closed, the SendKeys will close whichever window has the focus. I removed the SendKeys from the code.

Private Sub CommandButton1_Click()

Me.Hide

frmTest.Show


Sheets("Material Worksheet").Range("A118").Value = TextBox1.Value
Sheets("Material Worksheet").Range("B118").Value = TextBox2.Value
Sheets("Material Worksheet").Range("C118").Value = TextBox3.Value

Label1.Caption = TextBox1.Value
Label2.Caption = TextBox2.Value
Label3.Caption = TextBox3.Value
CommandButton1.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Edit1.Visible = True
del1.Visible = True

Unload frmTest

Me.Show

End Sub

**rbyrd023** · 12-29-2010, 02:13 PM

Ok tried that and still have the same result.

while frmtest is open, the remaining code will not run. I have to close frmtest manually for the rest of the code to start.

This is really bothering me....... lol I know it can be done!

Thank you again for your help!

**Leith Ross** · 12-29-2010, 02:24 PM

Hello rbyrd023,

You should post your workbook for review.

**royUK** · 12-29-2010, 02:31 PM

From what you describe I really can't see why your code should take enough time to need the warning form

**royUK** · 12-30-2010, 03:33 AM

I'm not sure if this is correct, but when you start the second form it's code starts to run, that will stop the original code until completed. As I said earlier, I can't see why you should need a progress form for simply writing data to the sheet. I think your time would be better used to improve the efficiency of the code by finding out why it takes so long to run