Listbox of filtered data

[lynxbci]

Hi,
I have a textbox on a form, and when the user enters some text into it, i would like to populate a listbox or combobox with any item from a list of data (stored in a worksheet) that contains the typed text. Sort of a filtering type operation.

i.e
User types "SE70" and all items in data with "SE70" anywhere in the cell will be added to the list box.

Any suggestion please

thanks

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG16May58
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Txt [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
Txt = Application.InputBox(prompt:="Please Enter ""Find"" data ", Title:="Find", Type:=2)
[COLOR="Navy"]If[/COLOR] Txt = "" Or Txt = "False" [COLOR="Navy"]Then[/COLOR] [COLOR="Navy"]Exit[/COLOR] [COLOR="Navy"]Sub[/COLOR]
   [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] ActiveSheet.UsedRange
        [COLOR="Navy"]If[/COLOR] InStr(Dn, Txt) [COLOR="Navy"]Then[/COLOR]
            ListBox1.AddItem Dn
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[lynxbci]

Thanks thats a nice solution.