Solved: Class Modules and UserForm_Initialize

[mphill]

Hello Again,

The code in my Sub UserForm_Initialize() works fine and seemed to be a candidate for a Class Module for use in other projects. I created a clsExlData with the copied code and commented the original out in the UserForm_Initialize().

Under the Option Explicit I entered the Private exlStuff as New clsExlData to instantiate the class and in the
[VBA]
Sub UserForm_Initialize()
Set exlStuff = New clsExlData.
End Sub
[/VBA]

What will I need to do next to populate the cboPerson in the user form now, since it fails to populate? Will I need Property Get procedures and\or Types set?

I have been looking on the web trying to educate myself on this but still not able to get it to work.

See attached file

[Tommy]

[vba]
Private Sub UserForm_Initialize()
Set exlStuff = New clsExlData
exlStuff.clsExlShts
End Sub
[/vba]

I am moving this to the correct forum.

EDIT: Added note and moved to Word Forum. Tommy

[mphill]

Hmm, added the information in and the combo boxes still won't populate. I also tried this...
[VBA]
Private Sub UserForm_Initialize()
Dim exlStuff As New clsExlData
Set exlStuff = New clsExlData
exlStuff.clsExlShts
[/VBA]

I must have something amiss, still. Any other suggestions are appreciated.
Thanks for moving to correct forum, too.

[Tommy]

Is the spreadsheet still located at : "C:\Documents and Settings\MPHILL\Desktop\General_List.xlsx"

You are not adding these items.
[VBA]
cboPerson.List = exlSheetNames.Range("A2:A" & EmptyRow - 1).Value
[/VBA]

You will need to do
[VBA]
cboPerson.AddItem exlSheetNames.Range("A2").Value
[/VBA]
until the whole range has been added to the combo box.

[Tommy]

Anothe thing is you may need to fully qualify the combo boxes, as in:

[VBA]frmInput.cboPerson.List = exlSheetNames.Range("A2:A" & EmptyRow - 1).Value [/VBA]

or

[VBA]frmInput.cboPerson.AddItem exlSheetNames.Range("A2").Value [/VBA]

[mphill]

Yes, the spreadsheet is located in the same location. I will give it a try. Thanks!

[mphill]

Fully qualified, that did it. Makes sense now.