Show filtered data in listbox on a userform

Hello,

In a worksheet I have a list with different kinds or records (errors, warnings, etc). I also have a userform that can show these. What I want to accomplish is that I can use a optionbutton to filter 1 type of record and show that in that listbox of my userform. See attached.

I am able to show all data in the listbox. And I am also able to filter the data in the table. However, I cannot get only the filtered data in the listbox.

Please Login or Register  to view this content.

Hi Sintek,

I made a few small changes and it does what I need.
Thanks for helping me in the right direction :-)

one question in your code..

Please Login or Register  to view this content.

why do you not define the variables as a type?
e.g. Dim Data as Range, Arr as Array, etc

in my mastersheet I call this userform form another worksheet. Then the filtering does not work.
So, when I move the CommandButton to a second sheet (in my example file) I see this same behavior. Why would that be? Is that because the filter is applied to the active sheet?

I have moved the CommandButton1 to "Sheet1"

That did it :-)
Problem solved. :-)

There is still one tiny issue with the code... When I only have 1 line in the table, then the alignment of the columns is messed up.. :-(

@Kammend did you test optionbutton(Both Errors and Warnings) it doesn't seem to work. it should show all of data as when run the userform from the first time

yes, it now works as I want it. Thanks

And one more variation on a theme. The solution uses Recordset.

I checked all three examples for 100k records. They all managed in an acceptable time.

Artik