Macro to find bold cells and add to combo box

[JoTedy]

Hi guys, my code would need to look in column B from row 5 for cells that have bold text and each cell value would become an option in the combo box list from the user form.

here's my code as I tried to adapt but if I don't specify a limit it will crash even if the column is not formatted as bold.

Please Login or Register  to view this content.

I tried it with find, findnext but still can't do it.
Thank you in advance

[Norie]

Do you mean a limit to the range you look in?

That should be limited.

[JoTedy]

Well, I want it to search in the whole column for cells that have bold text. The user may have 1,000 rows or 10,000 rows. is that even possible? if not I'll figure out another way to do it

[Norie]

If you mean limit the search to the no of rows with data, yes it is possible.

Please Login or Register  to view this content.

[JoTedy]

Yes, that's what I mean. Because in order to distinguish a category from an item I said that it would be best to be bold. So when a user would want to add an item under a category he should select the one that he prefers from a list with all the available categories.

But now (with the code you suggested) it shows only one blank option in the combobox, even if I have 2 rows with bold text in column B.

[JoTedy]

So, it works perfectly if I give it the range manually (eg. B5:B1000) but it stops working if I try to do it dynamically (eg. Range B5 to the last row with data in column B). Do you know why?

[Norie]

Bit of a typo, the & in the code I posted should be a comma.

[JoTedy]

you mean like this:

Please Login or Register  to view this content.

cause it doesn't work that way

[JoTedy]

I did it, with your help of course
the code is:

Please Login or Register  to view this content.

Thank you for your help Norie

[Norie]

I must have been half asleep when I was writing the code - the .Row shouldn't be there.

Anyway, you got it yourself with an alternative.