How to set a 2 column combobox default value

[RWWAMS]

Hi everyone,

I've got a two column combo box on an excel form. It displays an employee id and employee name. When the form is activated I'm successfully populating the combo box. I also want to set the default value, but cannot figure out the syntax. This sounds like it should be simple (I'm sure it is), but I'm not familiar with the properties that are used with a two column combobox. All I want to do is set the value of the combo box and display both the first employee id and name. I can only get the employee id to populate.

Thanks

 

[SkipVought]

Hi RWWAMS,

Set the ColumnCount property to 2



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[RWWAMS]

I already had that property set to two.

Any other ideas?

 

[SkipVought]

Do you have the RowSource referencing the 2 columns?

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[RWWAMS]

I'm not using the RowSource property for anything. If I try to enter a value for that property, I receive a VB error "Could not set the RowSource property. Invalid property value."

???

 

[SkipVought]

How did you try to set it?

I gave the data in the 2 columns the name, ListData, and used ListData in RowSource.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[RWWAMS]

Hi Skip, thanks for your patience.

I've tried to set it using combinations of the list, listindex and value properties. But to no avail. I'm not too familiar with these properties so I'm just guessing. And apparently I'm not a very good guesser.

The code I use to populate the combo box:
For I = 8 To EMP_COUNT + 8
cboEMPLOYEE.AddItem
cboEMPLOYEE.List(I - 8, 0) = Sheets("PROD. & QUAL. STATS&quot.Cells(2).ROWS(I).Value
cboEMPLOYEE.List(I - 8, 1) = Sheets("PROD. & QUAL. STATS&quot.Cells(3).ROWS(I).Value
Next I

Thanks

 

[SkipVought]

Try this

For Each c in Sheets("PROD. & QUAL. STATS").range(cells(I, 2), cells(I, 2).end(xltoright))
   cboEMPLOYEE.AddItem c.value
next

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com