Problem with - UserForm Initialize

[excelenergy]

Hello

I have a command button, located on my spreadsheet. The code for the command button is in the vba editor within the name of the sheet - which is sheet114.

When the command button is clicked, a userform pops up. The userform has combo-boxes on it.

The userform is failing to initialize, and populate the combox boxes. Here is the code for the user-form initialize sequence and the drop downs, I was curious why isn't it initializing and populating? It should be, I'm not getting any kind of errors from VBE.

Code for the Command Button:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Code for Initialization of the Form:

Private Sub UserForm1_Initialize()
With ComboBox1
 .AddItem "Telephones"
 .AddItem "Computers"
 .AddItem "Monitors"
End With
End Sub

This is the code for combo-box1:

Private Sub ComboBox1_Change()
Dim index As Interger
 index = ComboBox1.ListIndexComboBox2.Clear

Select Case index
     
Case Is = 0
With ComboBox2
.AddItem "CISCO
.AddItem "Bell"
.AddItem "Oracle"
        End With
     
     
     Case Is = 1
         With ComboBox2
.AddItem "Sony"
.AddItem "Hewlet Packard"
.AddItem "Dell"
End With

Case Is = 2
With ComboBox2
.AddItem "Acer"
.AddItem "Dell"
.AddItem "Samsung"
End With

End Select
End Sub

 

[excelenergy]

Fantastic all, that worked. I just don't know whats so different about your code than my original. I fixed the spelling mistake. Maybe it was the way I did the line break or something.

Much appreciated. Thank you for helping solve this!

The userform code should be

Private Sub UserForm_Initialize()
   With ComboBox1
    .AddItem "Telephones"
    .AddItem "Computers"
    .AddItem "Monitors"
   End With
End Sub

Private Sub ComboBox1_Change()
   Dim index As Integer
   index = ComboBox1.ListIndex
   ComboBox2.Clear
   
   Select Case index
      Case Is = 0
         With ComboBox2
            .AddItem "CISCO"
            .AddItem "Bell"
            .AddItem "Oracle"
         End With
      Case Is = 1
         With ComboBox2
            .AddItem "Sony"
            .AddItem "Hewlet Packard"
            .AddItem "Dell"
         End With
      Case Is = 2
         With ComboBox2
            .AddItem "Acer"
            .AddItem "Dell"
            .AddItem "Samsung"
         End With
   End Select
End Sub

 

[hotabae]

after the userform pops up - the boxes still don't populate.

Just to be clear, I think the two issues keep popping up:

Command Button to Call the form should be

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

wheras the initialize should be:

Private Sub UserForm_Initialize()

The difference being you need the specific name (UserForm1) to call the form, but the generic name (UserForm) to initialize it.

Edit: Glad you got it figured out!

 

[excelenergy]

That makes sense. I definitely see what you are saying...thanks for the help. I guess it was just silly amateur errors on my part. I appreciate the help with the troubleshooting.

Just to be clear, I think the two issues keep popping up:

Command Button to Call the form should be

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

wheras the initialize should be:

Private Sub UserForm_Initialize()

The difference being you need the specific name (UserForm1) to call the form, but the generic name (UserForm) to initialize it.

Edit: Glad you got it figured out!

 

[excelenergy]

In the event anyone ever comes across this problem...Hotabae and Fluffs solutions worked perfectly.

I wanted to add my two cents though. Hotabae originally said add a break after Cisco...I actually had to add breaks at the end of every ".additem" line. Then the combo boxes populated.


Thanks to everyone who contributed. The solution provided worked perfectly

Just to be clear, I think the two issues keep popping up:

Command Button to Call the form should be

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

wheras the initialize should be:

Private Sub UserForm_Initialize()

The difference being you need the specific name (UserForm1) to call the form, but the generic name (UserForm) to initialize it.

Edit: Glad you got it figured out!