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

 

[Fluff]

The initialize should be

Private Sub UserForm_Initialize()

 

[excelenergy]

Hey,

thanks for the reply. When I change it to Private Sub Userform_Initialize

- I get this error:
"Run Time error 424
Object Required"

If I do it as

Private Sub Userform1_Initialize

There is no error. BUT the comboboxes don't populate

The initialize should be

Private Sub UserForm_Initialize()

 

[dreid1011]

Is the initialize sub in the userform object?

 

[excelenergy]

Yeah, so when I put it in, what I did was insert the userform > right click, hit view code for the userform....Then added in the initialize Sub.

 Private Sub Userform_Initialize()
With Combobox1
.additem.... etc...etc..

end with
end sub

Is the initialize sub in the userform object?

 

[Fluff]

Do you have a combobox called ComboBox1?
If you put

Option Explicit

At the very top of the module (before any subs) & try to open the userform, what message do you get?

 

[excelenergy]

I was actually about to respond and address that question.

So my code is in two places.
1. The command button code to trigger the userform is within the VB editor and Sheet114.
2. The userform code is within the userform > right click > view code - in the VB editor.

Now I do have Module1 ....but I don't have any code in Module 1....Is that where all the code should be?

Do you have a combobox called ComboBox1?
If you put

Option Explicit

At the very top of the module (before any subs) & try to open the userform, what message do you get?

 

[excelenergy]

Oh and I put Option Explicit at the top of all the sub routines...and this time I got,
Compiler Error - Variable Not Defined

Do you have a combobox called ComboBox1?
If you put

Option Explicit

At the very top of the module (before any subs) & try to open the userform, what message do you get?

 

[Fluff]

That means that you don't have anything on the userform called ComboBox1

 

[excelenergy]

I do though. The first drop down, is called ComboBox1

And the Sub for it is:

 Private Sub ComboBox1_Change()

That means that you don't have anything on the userform called ComboBox1