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

 

[dmt32]

Hi,
just looking at your code, try changing the column number shown to column A (1) & see if this resolves your issue

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

Dave

 

[katydid56]

That worked, thank you!

 

[dmt32]

That worked, thank you!

welcome glad resolved the issue & appreciate feedback

Dave

 

[katydid56]

Well I thought that worked but now I only get first 4 items in the list?

 

[katydid56]

Well I thought that worked but now I only get first 4 items in the list?

Sorry, I need to figure out what is happening before asking for help. The first column is reading correctly but others are not. They are reading all the items in the list but now I am getting blank at the bottom

 

[dmt32]

Post copy of your worksheet with dummy data using MrExcel Addin XL2BB - Excel Range to BBCode

Dave

 

[katydid56]

Post copy of your worksheet with dummy data using MrExcel Addin XL2BB - Excel Range to BBCode

Dave

Thank Dave, I can't install the addin on my work computer. I just need to figure out how to get rid of blank lines at the bottom when the drop down is used.

 

[katydid56]

'This sub will pull the disposition choices in column C of worksheet Reference

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


It works fine except I get a lot of blanks showing up at the bottom when I click the dropdown. Not sure how to fix that?
THANK YOU!

 

[dmt32]

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