ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Multiple UserForms not closing (https://www.excelbanter.com/excel-programming/365150-multiple-userforms-not-closing.html)

ceshelman[_4_]

Multiple UserForms not closing
 

I have code that opens a users form, gets some diata via some optio
buttons. When OK is pressed, there is logic to inerprit the result an
set it into a public variable. the OK button code ends with Unload Me

Depending on the result the code may or may not open a dialog box t
get some additional information and write that to a cell.

It then exicutes a few lines of code to copy some information from on
Wb to another. Finally it opens another very simmilar userForm and ge
some additional information from some additional Option Buttons.

My problem: After I click OK on the first UserForm with it set to po
up the dialog box it pops up the dialog box with out closing th
UserForm, then after I hit OK on the dialog box, the dialog box close
and the second userForm opens (with the first one still open), the
when I click OK on the second form, it exicutes the code that shoud
have been exicuted before the second userForm pop'd up. I a
completely at a loss as to why this is happening.

Here si the code:

Dim Internet_Options As New Internet_Access
Internet_Options.Show 1
ThisWorkbook.Worksheets("Working").Range("P2").Val ue
Inet_Opts
If Inet_Opts = 4 Then
Get_Response:
Response = InputBox("This address must be on the sam
IP subnet as the LAN interface of the host router.", "Next Hop Route
Address")
If Response = "" Then GoTo Get_Response
.Range("J69").Value = Response
End If

'Copy the information
.Range("D83").Value = wb.Worksheets("Orde
Form").Range("L14").Value
.Range("D79").Value = wb.Worksheets("Orde
Form").Range("H14").Value
.Range("F79").Value = wb.Worksheets("Orde
Form").Range("J14").Value

'Now lets look at what it accesses.
If wb.Worksheets("Order Form").Range("O14").Value = "Yes
Then
Dim NetVPN_DBU As New NetVPN_DBU_Config
NetVPN_DBU.Show 1
.Range("D72").Value = "Enabled - " & DBU_Access
Else
.Range("D72").Value = "None"
End If

Thanks, Carl

--
ceshelma
-----------------------------------------------------------------------
ceshelman's Profile: http://www.excelforum.com/member.php...fo&userid=2431
View this thread: http://www.excelforum.com/showthread.php?threadid=55477



All times are GMT +1. The time now is 11:31 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com