Pickup Values from Cells to Combobox in user form

skamat · Jan 6th 2014

Attached is the sample sheet.
I require the combobox to pickup values from sheet1 cells A7:A11, and whenever any value changes from A7:A11, the same should be reflected in combobox.

Further one more list value should be added in combobox "Select Data" This is seperate and should only appear in combobox and not in sheet1

ashu1990 · Jan 6th 2014

Re: Pickup Values from Cells to Combobox in user form

Hi skamat,

Try this

Code

public sub workbook_open
sheet1.combobox1.additem "Select data"
for i = 1 to 6
sheet1.combobox1.additem range("A" & 6+i).value
next i 
sheet1.combobox1.listindex = 0
end sub

put this code in the workbook code page.

skamat · Jan 6th 2014

Re: Pickup Values from Cells to Combobox in user form

I cannot get it right could you please show how to do it

snb · Jan 6th 2014

Re: Pickup Values from Cells to Combobox in user form

Have a look over here:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html

**royUK** · Jan 6th 2014

Re: Pickup Values from Cells to Combobox in user form

Simplest way is to use the ListProperty of the ComboBox, not looping through the range. This may need adapting if your example data is not the same as the actual data

Code

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Sheet1.Range("B7").CurrentRegion.Value
End Sub

Pickup Values from Cells to Combobox in user form

Participate now!

Share