HÜCREDEKİ LİSTEYİ FİLTRELEME

[alpmehoz]

Kayıt sayfasında İsim olan yere Veri sayfasından isimleri çekerek liste olarak alıyorum ama o listede isim bulmak çok zor oluyor. İsmin altındaki Liste yaptığım hücreye arama motoru gibi bir şey olabilir mi. mesela listemde mehmet var meh yazınca ismin içinde meh geçen bütün isimler gelsin istiyorum. ismi yazdıkça böyle google olduğu gibi alta otomatik sıralansın. Yardımcı olursanız çok sevinirim.

 

[alpmehoz]

Yardımcı olacak biri var mı lütfen mbul ile yapmaya çalışıyorum yapamadım

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Sayfa1.Range("A2:L" & Rows.Count).ClearContents
Sayfa3.Range("A1:A" & Rows.Count).AutoFilter 1, Sayfa1.TextBox1.Value & "*"
Sayfa3.Range("A2:A" & Rows.Count).CurrentRegion.Copy
Sayfa1.Range("A2").PasteSpecial
Sayfa3.Range("A1").AutoFilter

End Sub