Create combobox list from autofiltered range without advance filter.

Hello everyone. I've been using previous posts here for some time now to help in my daily VBA problems. Now I have one of my own, and any help would be terrific.

I have a combo box that I would like add items too from an autofiltered worksheet. I understand this means I can't use .RowSource. At the same time, the workbook will be shared so I can't use AdvancedFilter as well. Is there a way to search for only visible items on an autofiltered worksheet and add them to the combobox?

Here is my current code, though it doesn't seem to work:

Please Login or Register  to view this content.

Hi

Try changing

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Are you on sheet1 when you raise the form and try to fill the combobox?

rylo

Hi,

Try the following 4 lines of code in place of your first 3 lines of code

Please Login or Register  to view this content.

HTH

Thanks for your help thus far:

I've tried both of your solutions now with little luck.

The line

Please Login or Register  to view this content.

Produces an error:
"Runtime Error 91: Object variable or with type variable not set."

Any ideas? Btw, I'm using Excel 2003 for this application.

Struggling somewhat since it works OK for me.
Please check:
1. You have a filtered list of rows in col A on the VBA sheet name Sheet1
2. You have declared the rRowSource variable as a Range variable.

HTH

Well I figured out what was wrong. I did not have the command "set" In my script. Now it appears I'm stuck in an infinite loop with the rest of the code though. Back to the drawing board! I appreciate your help!

Just wanted to clear things up a bit:

This thread was NOT crossposted at Ozgrid. I only posted at Ozgrid AFTER seeking help here. You guys have been a great source of information to me, but my code is still hanging and I didn't want to clutter the thread up with more questions. I did not get the opportunity to even really explain what was going on before some internet bullies felt the need to cancel my account there. If you don't condone such behavior as seeking help on multiple sites then I apologize.