create combo box add item and update

krpatel · Mar 10th 2017

i create combo box in sheet 1 cell "H1"
and its data rang in sheet 2 will A2:A300
how to create a combo box and also how to add item is shown in combo box when item add in sheet 2 data range every time and also how to update combo box every time

**pike** · Mar 11th 2017

Re: create combo box add item and update

Hi krpatel,
what type of combobox form or activeX

krpatel · Mar 14th 2017

Re: create combo box add item and update

activeX

**pike** · Mar 14th 2017

Re: create combo box add item and update

Hello krpatel,
place the code in the sheet module

Code

Option Explicit
Sub WorkSheet_Activate()
    Dim rngList
    Set rngList = Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Cells(Worksheets("Sheet2").Rows.Count, 1).End(xlUp))
    Worksheets("Sheet1").OLEObjects("ComboBox1").Object.List = Application.Transpose(rngList)
End Sub

create combo box add item and update

Participate now!

Share