Populate combo box for Userform in Excel 2002

[Myrna Rodriguez]

Hi...
I created a UserForm containing 2 combo boxes.
UserForm will be used for data entry in excel.
I've enter the code in the module sheet.
When I run for module sheet, combo box displays list.
However when I run from Userform sheet, not successful.
Any guidance?? Where did I go wrong?
Thanks & have a happy day...
Myrna

This this code I've used:
Sub PopulateComboBox()
Dim MyArray As Variant
Dim MyStorage As Variant
Dim Ctr As Integer
MyArray = Array("Open", "Closed", "Cancelled")
MyStorage = Array("Open", "Archived", "Post-Close")
For Ctr = LBound(MyArray) To UBound(MyArray)
UserForm1.cbostatus.AddItem MyArray(Ctr)
UserForm1.cbostorage.AddItem MyStorage(Ctr)
Next

UserForm1.Show

End Sub



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Bob Phillips]

Myrna,

Presumably, if you run it from the Userform, you are saying that the form is
already visible. If so, the Show is going to error.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Myrna Rodriguez]

Hi Bob,

The UserForm displays when I run but does not populate the combo boxes.

In MyModule I have the following code to display form:
Sub ShowDialog()
UserForm1.Show
End Sub

When I select MyModule & run program the combo box populates. confused?
thanks for your immediate response!
myrna



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Bob Phillips]

So where is the populate routine called?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Myrna Rodriguez]

The populate routine is in MyModule.
Still having trouble viewing items in combo box.
A day of mind tingling fluster...

Sub ShowDialog()
UserForm1.Show
End Sub

Sub PopulateComboBox()
Dim MyArray As Variant
Dim MyStorage As Variant
Dim Ctr As Integer
MyArray = Array("Open", "Closed", "Cancelled")
MyStorage = Array("Open", "Archived", "Post-Close")
For Ctr = LBound(MyArray) To UBound(MyArray)
UserForm1.cbostatus.AddItem MyArray(Ctr)
UserForm1.cbostorage.AddItem MyStorage(Ctr)
Next

UserForm1.Show
End Sub



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Bob Phillips]

Myrna,

If you want to populate the combobox, you need to call the PopulateComboBox
routine from somewhere within the userform initialisation code. But you
also need to remove the Userform1.Show within it.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)