selecting names in a list

[john taiariol]

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..

 

[GS]

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

 

[Donald Guillett]

john taiariol laid this down on his screen :


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

 

[john taiariol]

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?