Create combobox if left cell has a value

[excelit]

Hey guys,

Hopefully a simple question for you all

Check Image: o9gsiijgm55z1o53qpwb.jpg

I have some code which populates the Primary Key column with Numbers..
what I need to do is automatically setup a combo box right beside who's source comes from a static list on another sheet.

Does anyone know the correct VBA code to setup a combo box on the cell as shown in the image? The combo box should only be setup if the cell beside it (i.e. column A) has a value.

Thank you!

[Solus Rankin]

Untested:

Please Login or Register  to view this content.

Also this just adds a blank validation list. After xlValidateList you'll have to add where you'd like to pull the list items from.

[Solus Rankin]

Untested:

Please Login or Register  to view this content.

Also this just adds a blank validation list. After xlValidateList you'll have to add where you'd like to pull the list items from.

[excelit]

Untested:

Please Login or Register  to view this content.

Also this just adds a blank validation list. After xlValidateList you'll have to add where you'd like to pull the list items from.

Yep works! I used a Named Range.

Quick question...earlier on, the user typed in a value in the ComboBox column, and then underlying code on the sheet (Private Sub Worksheet_Change(ByVal Target As Range)) copied this value onto a new sheet.

Ive noticed that with the combo boxes, the worksheet_change code doesn't seem to have any effect since the cell itself isnt being filled.

Any ideas on how I can fix that?

[Solus Rankin]

Change in a combobox doesn't fire the worksheet_change event. You'll have to use the combobox_change event.