açılır pencerede hızlı arama

[newversion]

açılır pencerede harf sırasına göre dizilmiş 4500 adet soyad ve ad var.Mouse ile çektirerek arama yapmak yerine excelin süz işlevinde olduğu gibi örneğin "N" harfine basınca "N" harfi ile başlayan soyadların en başına gelsin.Bunun formülünü belirtir misiniz?
selamlar.

 

[Ex.Sarge]

İstediğiniz aşağıdaki linkteki gibi mi?
http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-baz-veri-turlerini-suzme-t16264.html

 

[newversion]

İstediğiniz aşağıdaki linkteki gibi mi?
http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-baz-veri-turlerini-suzme-t16264.html

Evet verdiğiniz linkteki örnek dosyada bu özellik var.Orada örneğin L harfine basınca L harfi ile başlayan isimlerin en başına geliyor.Bu özelliği kendi çalışma sayfama uygulamak istiyorum.Ancak orada kodları göremediğim için bir şey yapamıyorum.

 

[Ex.Sarge]

Evet verdiğiniz linkteki örnek dosyada bu özellik var.Orada örneğin L harfine basınca L harfi ile başlayan isimlerin en başına geliyor.Bu özelliği kendi çalışma sayfama uygulamak istiyorum.Ancak orada kodları göremediğim için bir şey yapamıyorum.

Verdiğim linktekki sn.yurttas'ın sayfa1 deki TEXTBOX İLE SÜZME.zip örneği ve benim sayfa 2 deki fihrist.zip örneğimde Alt + F11 e basarak VBA kodlarını görebilirsiniz.

kod örneklerinden biri aşağıda'dır. (Kelimenin herhangi bir kısmı aranan kelimeyi içeriyorsa süzer.)

Private Sub TextBox1_Change()
On Error Resume Next
[aa1] = "=büyükharf(""" & TextBox1 & """)"
[aa1] = "=upper(""" & TextBox1 & """)"
TextBox1 = [aa1]
On Error Resume Next
SONUC1 = TextBox1.Value
Set FC1 = Range("A3:A65000").Find(What:=SONUC1)
Application.Goto Reference:=Range(FC1.Address), Scroll:=False
[B]Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"[/B]
End Sub

Kalın yazılan yeri aşağıdaki şekilde değiştirebilirsiniz.

...'YI İÇERİR : Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"

... İLE BAŞLAR : Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value

... İLE BİTER : Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"

...'YA EŞİTTİR : Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value