UserForm that allows a user to start typing what they need.

[USAMax]

I very much like this link:

Populate userform combobox with unique values from a range

It explains how to get a drop down list of unique values and that is exactly what I need but I have almost 7000 options.

I want the user to be able to start typing the value and have the drop-down populate the first match.

For example, if the user is typing 442810004 and they enter the first five digits and the next value that matches is 442810004 then the user should be able to hit enter to accept this value and go onto the next drop-down.

Private Sub UserForm_Initialize()

Dim v, e
With Sheets("Segments Lookup").Range("AL2:AL6864")
    v = .Value
End With
With CreateObject("scripting.dictionary")
    .comparemode = 1
    For Each e In v
        If Not .exists(e) Then .Add e, Nothing
    Next
    If .Count Then Me.ComboBox1.List = Application.Transpose(.keys)
End With
End Sub

 

[igold]

Hi Dave,

You might want to watch this short four minute video, it may be what you are looking for...

Autocomplete Entries With Excel Drop Down List - YouTube

 

[USAMax]

Thank you igold and sorry for the so response. I have been working with this but I am working within a UserForm and this does not directly apply.

I have two fields that can narrow the options for the other field.
If they enter a value from ComboBox1, with 6864 selections, it should reduce the options in ComboBox2 to maybe 3 or for.
If they enter a value from ComboBox2, with 49841 selections, it should reduce the options in ComboBox1 to less than a hundred.

My issue is the link I provided above works but it does not provide AutoComplete functionality and as it makes the changes in the Initialize phase it does not narrow any of the options.