Userform will not exit correctly

  • Thread starter Thread starter Stuart
  • Start date Start date
S

Stuart

I have a form which contains 4 listboxes, each
offering a single option. If listboxes 2 to 4 are
selected, then a different listbox is then presented,
again with a single option.

User should be able to cycle through the original
form interacting with the forms behind the listboxes
before finally choosing Ok or Cancel.

What is happening is that when the user makes a
choice in one of the forms behind a listbox, then
when returned to the original form, that listbox may
have been cleared....so they have to go through
the process again.

Here is the _Change code:

Private Sub ListBox2_Change()
Me.Hide
GetUserHideColumnOptions.Show
GetUserHideColumnOptions.Hide
Me.Show
End Sub

Private Sub ListBox3_Change()
GetUserPrintOptions.Hide
GetUserPrintZeroPagesOptions.Show
GetUserPrintOptions.Show
End Sub

Private Sub ListBox4_Change()
GetUserPrintOptions.Hide
GetUserPrintBlankPagesOptions.Show
GetUserPrintOptions.Show
End Sub

What am I doing wrong, please?

Regards.
 
You don't have any code in the original userform's activate event to reset
the list boxes, do you? The .Show after closing the second form would run
it.
 
Excuse further ignorance, please, but is the Activate event
the same as the Initialise Event? I have the following in the
original form for _Initialise (but nothing for an _Activate
Event):

Private Sub UserForm_Initialize()

'Fill the ListBoxes
With GetUserPrintOptions.ListBox1
.RowSource = ""
.AddItem "You want to print EVERY Worksheet in EVERY chosen Workbook"
End With

With GetUserPrintOptions.ListBox2
.RowSource = ""
.AddItem "You will want to hide Column(s)"
End With

With GetUserPrintOptions.ListBox3
.RowSource = ""
.AddItem "You want to include the printing of pages that total '0.00'"
End With

With GetUserPrintOptions.ListBox4
.RowSource = ""
.AddItem "You want to include the printing of pages with no totals"
End With

End Sub

Many thanks,

Regards,
 
Back
Top