ComboBox only shows 3 items on the list.

[katydid56]

Hello everyone,

I have a ComboBox named cboEmp1. It is in a frame on a UserForm. The list to use to populate the combo box is located in column A of the worksheet 'Reference'
Here is my code. (I don't think I entered it here correctly )

Private Sub PopulateEmployee()
With Worksheets("Reference")
Me.cboEmp1.List = .Cells(2, 1).Resize(.Cells(.Rows.Count, 2).End(xlUp).Row - 1, 1).Value
End With
End Sub

No matter how many entries are on the list only the first 3 show up in the ComboBox.
Any help is appreciated.

Thanks
katydid

 

[katydid56]

Hi

Private Sub PopulateDisposition()
With Worksheets("Reference")
Me.cboDisp.List = .Cells(2, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1, 1).Value
End With
End Sub

From your original post, looks like you have changed the Column number to 3 - change it back to 1 as shown & see if resolves your issue

Dave

I changed the column number to 3 because this sub get the data from column C. The original post was for data from column A. The code for Column A is working with 38 rows of data. The other combo boxes wants to have lost of row when there is only 3 thing in the list?

 

[dmt32]

in that case you should reference correct column in both places in your code

Me.cboDisp.List = .Cells(2, 3).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1, 3).Value

Dave