How to edit "ComboBox" at Userform option

[2avrham]

Hi,

I want to set one of my columns to "ComboBox" drop down selection at Userform option and I wonder how can i do it.

What I would to get in the end is drop box selection with "WIP", "Hold","Ready" choices selection and after I chose one of them the data is filtered according to it.

My column data:

[TABLE="width: 103"]
<tbody>[TR]
[TD]vpo_status[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]Hold[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]Done[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]Ready[/TD]
[/TR]
[TR]
[TD]Ready[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP[/TD]
[/TR]
[TR]
[TD]WIP


Thanks!![/TD]
[/TR]
</tbody><colgroup><col></colgroup>[/TABLE]

 

[Fluff]

These 3 lines

Option Explicit
Private Dic As Object
Private ws As Worksheet

Need to go at the very top of the module, before any code.

 

[RoryA]

If you are going to cross-post (which is, IMO, a little rude in mid-flow), please have the decency to follow the forum rules and provide links here to your cross-posts in other forums. For example:

https://stackoverflow.com/questions/50620218/edit-combobox-code-at-userform-option

 

[2avrham]

Thanks, now it works but after I click on one of my items the sheet becomes empty.

 

[Fluff]

Try

Private Sub Product_Filter_Change()
If ws.AutoFilterMode Then ws.AutoFilterMode = False
ws.Range("A5:T5").AutoFilter 5, Me.product_filter.Value
End Sub

Also have you seen post#12?
If so, have you asked this question anywhere else?

 

[2avrham]

thanks it works great!

Regarding post 12 I do ask it and I remove it. sorry about it.

 

[Fluff]

thanks it works great!

You're welcome