Display the value in combo box in Excel VBA 2019

[EF_2023]

Hi all,

I am fetching the rows from Database table. I want to populate one field value in Combo Box. Actually there are 6 different values say "Pending", "Open", "Close", "Work in Progress", etc. If the fetched record has the value "Open", I have to show it as "Open" in the combo box. At the same time, I have to allow the user to modify the options from "Open" to any value, say "Work In Progress", etc.

Since I didn't know the no of records to be fetched from the database table, I only create the combo box only after the database operation. I hardcoded the 6 values.

What I want is the combo box should display the value fetched from the table.

How can I do that?

This is my code:

Please Login or Register  to view this content.

thank you

ComboBox_Error.jpg

[Andy Pope]

The value property is a reference to the position of the item in the list.
So you could use the Match function to get that value, assuming the text to find is present in the list

Please Login or Register  to view this content.

or write a function to loop through the list items comparing text and then setting the value property. This way you can more easily handle no matching values.

[EF_2023]

Thanks Andy for your response.

I tried your code and also as per your suggestion to iterate the combo box items. But both gives error number as "1004".
I am able to match the values with all the list of all combobox. No errors are there. but when I select the value on the combobox, displays error.

Kindly see the picture.

thank you

EF_DropDownError.jpgEF_DropDownError1.jpgEF_DropDownError2.jpg

[EF_2023]

my excel version is 2019 64 bit,
OS : MS Windows 10 64 bit

[Andy Pope]

.Select should be .Value

[EF_2023]

done. succeeded.

Thank you