selecting names in a list
Hi,
I have a very large list of names in alphabetical order. Is there a way to create some kind of drop down or list selection box whereby I can begin typing the first one or two initials of a persons name and the list box will filter only the names that fit so I can easily select the one I want? thanks in advance for any help.. |
selecting names in a list
john taiariol laid this down on his screen :
Hi, I have a very large list of names in alphabetical order. Is there a way to create some kind of drop down or list selection box whereby I can begin typing the first one or two initials of a persons name and the list box will filter only the names that fit so I can easily select the one I want? thanks in advance for any help.. Check this out... http://www.contextures.com/xlDataVal14.html -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc |
selecting names in a list
On Apr 6, 1:31*am, GS wrote:
john taiariol laid this down on his screen : Hi, I have a very large list of names in alphabetical order. Is there a way to create some kind of drop down or list selection box whereby I can begin typing the first one or two initials of a persons name and the list box will filter only the names that fit so I can easily select the one I want? thanks in advance for any help.. Check this out... *http://www.contextures.com/xlDataVal14.html -- Garry Free usenet access athttp://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc Sub gotoltr() lr = Cells(Rows.Count, 1).End(xlUp).Row x = UCase(Range("c1")) 'MsgBox x ml = Len(x) 'MsgBox ml For Each C In Range("a5:a" & lr) 'MsgBox Left(c, ml) If Left(Trim(UCase(C.Value)), ml) = x Then ' MsgBox c.Row Exit For End If Next Cells(C.Row, 1).Select End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$1" Then Call gotoltr End Sub |
selecting names in a list
On Apr 6, 12:55*pm, Donald Guillett wrote:
On Apr 6, 1:31*am, GS wrote: john taiariol laid this down on his screen : Hi, I have a very large list of names in alphabetical order. Is there a way to create some kind of drop down or list selection box whereby I can begin typing the first one or two initials of a persons name and the list box will filter only the names that fit so I can easily select the one I want? thanks in advance for any help.. Check this out... *http://www.contextures.com/xlDataVal14.html -- Garry Free usenet access athttp://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc Sub gotoltr() lr = Cells(Rows.Count, 1).End(xlUp).Row x = UCase(Range("c1")) 'MsgBox x ml = Len(x) 'MsgBox ml For Each C In Range("a5:a" & lr) 'MsgBox Left(c, ml) If Left(Trim(UCase(C.Value)), ml) = x Then ' MsgBox c.Row Exit For End If Next Cells(C.Row, 1).Select End Sub Private Sub Worksheet_Change(ByVal Target As Range) * If Target.Address = "$C$1" Then Call gotoltr End Sub- Hide quoted text - - Show quoted text - thanks for the reply, how do initiate this program? |
All times are GMT +1. The time now is 01:30 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com