1000 e yakın isim arasından arama yaptırmak

[katip35]

Başlıktada belirttiğim üzere 1000 e yakın isim bir sütunda mevcut. Evet otomatik filtreleme yaptım bir nebze işe yaradı. Ama o kadar çok isim varki, gene filre kısmından açıp orda bakmak ve bulmak zor oluyor. bu durumda gene en üstte boş bir satırda (sabit kalmak koşulu ile) aramak istediğimiz ismin ilk harfini girdiğimde o harfle başlayanlar listelensin, sonra ikinci harfi girdiğimde o şartı sağlayanlar gelsin ki hemen isimler çıksın. Benzetmek gerekirse google arama motorunda ki gibi yani. Aramak istediğimiz şeyi yazdıkça en olası olanlar listelensin şeklinde. Aradım bulamadım. Yardımcı olursanız sevinirim.

 

[rahmi06]

Verilerin hangi sütunda olduğunu belirtseydiniz iyi olurdu. Aşağıdaki kodu sayfanıza TextBox ekleyin ve aşağıdaki kodu TextBox un Change kısmına yapıştırın. Kırmızı ile belirttiğim yeri kendinize göre uyarlayın.

Private Sub TextBox1_Change()
On Error Resume Next
Süz = TextBox1.Value
Set FC2 = Range("[COLOR="Red"]A3:A65000[/COLOR]").Find(What:=Süz)
Application.GoTo Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
If Süz = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[katip35]

Verilerin hangi sütunda olduğunu belirtseydiniz iyi olurdu. Aşağıdaki kodu sayfanıza TextBox ekleyin ve aşağıdaki kodu TextBox un Change kısmına yapıştırın. Kırmızı ile belirttiğim yeri kendinize göre uyarlayın.

Private Sub TextBox1_Change()
On Error Resume Next
Süz = TextBox1.Value
Set FC2 = Range("[COLOR="Red"]A3:A65000[/COLOR]").Find(What:=Süz)
Application.GoTo Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
If Süz = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

Veriler D sütununda ve 3. satırdan başlıyor. yanlız bende open office var nasıl yapıcam

 

[rahmi06]

Kırmızı ile yazılmış

A3:A65000

kısmı

D3:D65000

olarak değiştirin. Open Office de çalışırmı bilemiyorum.

 

[katip35]

Kırmızı ile yazılmış

A3:A65000

kısmı

D3:D65000

olarak değiştirin. Open Office de çalışırmı bilemiyorum.

teşekkürler, excel i kurmam lazım bu durumda kurup deniyeyim bi.

 

[katip35]

excel 2007 ingilizce kurdum ama hangi menuden yapıcam anlatırsanız sevinirim.

 

[Erhan Üstünel]

MRB.
benzer bi çalışmayı ekte veriyorum,
aradığınız kelimeyi sarı alana yazabilirsiniz.

 

[assenucler]

Sayın marabba;

Emek ve paylaşımınız için teşekkürler..

 

[katip35]

Denilenleri yaptım ama, run-time error '28' hatası verdi. ekran görüntüsü ekte veriyorum.

 

[halit3]

alternetif olarak aşağıdaki linkdeki dosyaya bir bakınız.

http://www.excel.web.tr/showthread.php?t=78427