I need to filter my listbox with my Combo box

[DarrenSmith1981]

Afternoon All

How can you filter a listbox with a combo box

MT in advance

[torachan]

A couple I 'knock-up' earlier.
torachan.

[DarrenSmith1981]

I wonder if I could send my workbook to you?
Sorry struggling to get my head around how to filter the Listbox?
Combobox Model_Type needs to Filter Listbox Quote Details.
Combobox to filter the second column in Listbox Vehicle Model.

[torachan]

See big yellow banner - how to upload a workbook - desensitise any confidential info - note the 'paperclip' attachment does not work.
The purpose of the site is to put solutions into the public domain, so doing then advantages many, rather than just the individual.
Also then as others subscribe to the link more solutions are explored.
torachan.

[DarrenSmith1981]

I am having a go at a solution myself see below.
But it says Run-Time Error 381?

[DarrenSmith1981]

Here is the workbook

[torachan]

Your error is not in the code you posted (I have no way of running that yet as there is a multitude of errors prior to it).
The error is the line between the two 'Stop' commands in the SnipClip.
I will look at your other query later - however a lot of your code thinking is alien to me and needs a mass tidy-up.
torachan.Capture.JPG

[DarrenSmith1981]

I`ve Taken that line away and the Listbox fill works.
But my headers are not working on the Listbox
The header is true on the properties window for Listbox?

Also when I try to run it it says Run-Time error 91

[torachan]

The ModelType list box is going round in circles, you are trying to part fill by the additem method after you have partly filled from Worksheet("Drawing No")
This confusion needs to be resolved before you even look at headers.
Headers are only available to the 'rowsource' fill method - which is best avoided as it is the least stable method and least versatile.
I think you need to revisit this app as it becoming a 'patchwork' of disjointed code.
Take a step back and debug what you have produced.
Step one, place 'Option Explicit' at the head of the 'UserForm' code - step two, take all of your declarations (Dim statements) out of all the Subs and place them at the head of the code immediately under 'Option Explicit' - now run 'Debug' and correct each error as they occur - then maybe the 'firefighting' can begin.
torachan.

[DarrenSmith1981]

The ModelType list box is going round in circles, you are trying to part fill by the additem method after you have partly filled from Worksheet("Drawing No")
This confusion needs to be resolved before you even look at headers.

I think I`ve solved the above error above but now have Run-Time error 1004.

[torachan]

Without details of what you have altered we waste time guessing ???????????????
As a minimum post your code changes.

[DarrenSmith1981]

Ok sorry.

When I try to open the form it says run time error 1004

Gets to this line below then crashes?

[torachan]

You are dealing with a table not a range.
the syntax is slightly different.
not sure why you have chosen column 3 ??????
there is no warning use a copy sheet to trial.

replace this

Please Login or Register  to view this content.

with this

Please Login or Register  to view this content.