Dynamic validation tables (drop lists) - advanced

[T. Cauwe]

Dear,

I've been using dynamic drop down validation lists for a while and I have been strungling with the fact that the list length is fixed and scrolling through long list is annoying and time consuming.
Using a form object releases me from the fixed list boundary and allows me to type into the list and show only the matches to what has been typed. This is quite more userfriendly.

I tried to use the form list objects to avoid this problems, but I'm strungling quite hard after te first category is selected, to generate the list within the form object that doesn't seem to accept the indirect function.

Any solution to help me out. See example below.

Thanks

Thierry

 

[Somendra Misra]

Hi T.Cauwe,

Please go through this tutorial. This is for access but I think the techique can be adopted in excel also.

Regards,

 

[NARAYANK991]

Hi Thierry ,

Try this :

Private Sub ComboBox1_Change()
            Me.Combobox2.Text = ""
            Me.ComboBox2.ListFillRange = Range(Me.ComboBox1.Text).Address
End Sub

Narayan

 

[T. Cauwe]

Thanks NARAYANK991, works perfectly fine.

I'm loving it!

Great help.

Thierry

 

[T. Cauwe]

Hi Thierry ,

Try this :

Private Sub ComboBox1_Change()
            Me.Combobox2.Text = ""
            Me.ComboBox2.ListFillRange = Range(Me.ComboBox1.Text).Address
End Sub

Narayan

And what to do if you have an excel with e.g. with the dropdownlists. Is there an easier way to make it up instead of having to vba each combobox separately?

Thanks,

Thierry

 

[By_Sal]

ciao vedi se va bene, e confermare con "Enter"

scusate l'inglese

By Sal

 

[T. Cauwe]

ciao vedi se va bene, e confermare con "Enter"

scusate l'inglese

By Sal

Dear,

Seems to work fine, but looks quite complicated in vba. Will have to check it out in details.
How can I copy additional lines on the bottom, to add additional lines on the bottom? Do I only need to change the range in the vba code?

Thanks

Thierry

 

[By_Sal]

Hello, You Just change the range for each column:

This is to clean

If Not Intersect(Target, [f1]) Is Nothing Then eNo: Range("B3:Exx").ClearContents: GoTo 10

this for each column where xx = last row

If Not Intersect(Target, [b3:bxx]) Is Nothing Then

By Sal