I have a macro with 2 listboxes that I want to use for selecting values from
2 lists. The main macro shows both lists sequentially and then uses the 2
selected values to process data. Unfortunately when certain values in the
first list are selected, the 2nd list box is not displayed but the main macro
code continues as if a val;ue from the 2nd list had been selected.

Below is the code in which the same form is used for both lists. I tried
using two separate forms but that didn't help. If I uncomment the msgbox code
in the init routine, the lists work properly.

Column A has values a,b,c,d,e,blank and column b has values 1,2,3, blank

======================

Private Sub ListBox1_Click()
poolName = ListBox1.Value
Unload Me
End Sub

Private Sub userform_initialize()

'MsgBox "form 1 init"

Windows("InvoiceMacro.xls").Activate

Sheets("Lists").Select

If listnum = 1 Then Range("a1").Select Else Range("b1").Select

Do Until ActiveCell.Value = ""
ListBox1.AddItem (ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop

End Sub
Private Sub UserForm_Click()

End Sub


++++ main macro

Sub doboth()

listnum = 1
frmListbox1.Show


listnum = 2
frmListbox1.Show


End Sub

Why don't you put both listboxes on the same userform?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"macroplay" wrote in message
...
I have a macro with 2 listboxes that I want to use for selecting values
from
2 lists. The main macro shows both lists sequentially and then uses the 2
selected values to process data. Unfortunately when certain values in the
first list are selected, the 2nd list box is not displayed but the main
macro
code continues as if a val;ue from the 2nd list had been selected.

Below is the code in which the same form is used for both lists. I tried
using two separate forms but that didn't help. If I uncomment the msgbox
code
in the init routine, the lists work properly.

Column A has values a,b,c,d,e,blank and column b has values 1,2,3, blank

======================

Private Sub ListBox1_Click()
poolName = ListBox1.Value
Unload Me
End Sub

Private Sub userform_initialize()

'MsgBox "form 1 init"

Windows("InvoiceMacro.xls").Activate

Sheets("Lists").Select

If listnum = 1 Then Range("a1").Select Else Range("b1").Select

Do Until ActiveCell.Value = ""
ListBox1.AddItem (ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop

End Sub
Private Sub UserForm_Click()

End Sub


++++ main macro

Sub doboth()

listnum = 1
frmListbox1.Show


listnum = 2
frmListbox1.Show


End Sub

It seemed simpler to have each inoput form pop up separately so the user is
stepped through each input requirement. Puting everything in one form makes
things complex.

I'll look into it and see if it helps.

"Bob Phillips" wrote:

Why don't you put both listboxes on the same userform?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"macroplay" wrote in message
...
I have a macro with 2 listboxes that I want to use for selecting values
from
2 lists. The main macro shows both lists sequentially and then uses the 2
selected values to process data. Unfortunately when certain values in the
first list are selected, the 2nd list box is not displayed but the main
macro
code continues as if a val;ue from the 2nd list had been selected.

Below is the code in which the same form is used for both lists. I tried
using two separate forms but that didn't help. If I uncomment the msgbox
code
in the init routine, the lists work properly.

Column A has values a,b,c,d,e,blank and column b has values 1,2,3, blank

======================

Private Sub ListBox1_Click()
poolName = ListBox1.Value
Unload Me
End Sub

Private Sub userform_initialize()

'MsgBox "form 1 init"

Windows("InvoiceMacro.xls").Activate

Sheets("Lists").Select

If listnum = 1 Then Range("a1").Select Else Range("b1").Select

Do Until ActiveCell.Value = ""
ListBox1.AddItem (ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop

End Sub
Private Sub UserForm_Click()

End Sub


++++ main macro

Sub doboth()

listnum = 1
frmListbox1.Show


listnum = 2
frmListbox1.Show


End Sub

I have to disagree, managing multiple forms is an unneeded complexity.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"macroplay" wrote in message
...
It seemed simpler to have each inoput form pop up separately so the user
is
stepped through each input requirement. Puting everything in one form
makes
things complex.

I'll look into it and see if it helps.

"Bob Phillips" wrote:

Why don't you put both listboxes on the same userform?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"macroplay" wrote in message
...
I have a macro with 2 listboxes that I want to use for selecting
values
from
2 lists. The main macro shows both lists sequentially and then uses
the 2
selected values to process data. Unfortunately when certain values in
the
first list are selected, the 2nd list box is not displayed but the
main
macro
code continues as if a val;ue from the 2nd list had been selected.

Below is the code in which the same form is used for both lists. I
tried
using two separate forms but that didn't help. If I uncomment the
msgbox
code
in the init routine, the lists work properly.

Column A has values a,b,c,d,e,blank and column b has values 1,2,3,
blank

======================

Private Sub ListBox1_Click()
poolName = ListBox1.Value
Unload Me
End Sub

Private Sub userform_initialize()

'MsgBox "form 1 init"

Windows("InvoiceMacro.xls").Activate

Sheets("Lists").Select

If listnum = 1 Then Range("a1").Select Else Range("b1").Select

Do Until ActiveCell.Value = ""
ListBox1.AddItem (ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop

End Sub
Private Sub UserForm_Click()

End Sub


++++ main macro

Sub doboth()

listnum = 1
frmListbox1.Show


listnum = 2
frmListbox1.Show


End Sub