Arama Text Box

[GokhanTasci]

Merhabalar.

A stünundaki hücreleri filtreleyecek türden bir text box oluşturup içine girilen değere yakın olanları filtreleyebilecek bir textbox oluşturmak istiyorum.

Örneği mevcut fakat arkadaş kitabı kilitlediği için göremiyorum.



Örneğin :

A sütunundaki değerler;

Ahmet
Ali
Abdullah.


Textbox a a yazdığımda hepsini gösterecek , ah yazdığımda sadece ahmet i gösterecek

yada ab yazdığımda sadece abdullah a ait satırı gösterecek.


ilginize teşekkürler.



// Edit

http://www.excel.web.tr/attachment.php?attachmentid=51566&d=1226274004

Burada örneği buldum fakat ben o textbox ı nasıl ekleyeceğim

 

[Orion1]

Dosyanız ekte.
KOdlar çalışma sayfasının kod bölümündedir.

Private Sub TextBox1_Change()
[a1].AutoFilter
[a1].AutoFilter field:=1, Criteria1:=TextBox1.Text & "*"
End Sub

 

[drejan62]

Dosyanız ekte.
KOdlar çalışma sayfasının kod bölümündedir.

Private Sub TextBox1_Change()
[a1].AutoFilter
[a1].AutoFilter field:=1, Criteria1:=TextBox1.Text & "*"
End Sub

Banada tam böyle bişey lazımdı
hocam peki bunu Combobox1 a yazsak, bunu süzdükten sonra kalanları
b sütunundan veri alanCombobox2 e ve aynı şekilde 4 adet Combobox a kadar kodları yazıp
en son combobox4 te seçtiğim kritere uyan verinin karşılığında f sütunundaki değeri textBox1 te gösteren bişey yapabilirmiyiz

ben sizin bu kodu yaptım
combobox2 de çalıştı ama
a sütnundan veri alan combobox1 de hata verdi

 

[GokhanTasci]

evren bey ilginize teşekkür ederim fakat.

Ben bunu sadece kod görüntüle de , f5 ile çalıştırabiliyorum.

Ben A1 hücresinde yazdığımı bu kodlara nasıl atayabilirim

 

[Orion1]

evren bey ilginize teşekkür ederim fakat.

Ben bunu sadece kod görüntüle de , f5 ile çalıştırabiliyorum.

Ben A1 hücresinde yazdığımı bu kodlara nasıl atayabilirim

Kodları çalışma sayfasının kod bölümüne yazmalısınız.A sütunundaki veriler filterlenir.Ama önce textboxa değer girmelisiniz.
Bakın drejan62 kodu çalıştırmış bile.

 

[Orion1]

Banada tam böyle bişey lazımdı
hocam peki bunu Combobox1 a yazsak, bunu süzdükten sonra kalanları
b sütunundan veri alanCombobox2 e ve aynı şekilde 4 adet Combobox a kadar kodları yazıp
en son combobox4 te seçtiğim kritere uyan verinin karşılığında f sütunundaki değeri textBox1 te gösteren bişey yapabilirmiyiz

ben sizin bu kodu yaptım
combobox2 de çalıştı ama
a sütnundan veri alan combobox1 de hata verdi

Böyle bir şeymi istiyorsunuz.

Private Sub ComboBox1_Change()
[a1].AutoFilter
[a1].AutoFilter field:=1, Criteria1:=ComboBox1.Value & "*"

End Sub

Private Sub ComboBox2_Change()
[a1].AutoFilter
[a1].AutoFilter field:=2, Criteria1:=ComboBox2.Value & "*"
End Sub

Private Sub ComboBox3_Change()
[a1].AutoFilter
[a1].AutoFilter field:=3, Criteria1:=ComboBox3.Value & "*"
End Sub

Private Sub ComboBox4_Change()
[a1].AutoFilter
[a1].AutoFilter field:=4, Criteria1:=ComboBox4.Value & "*"
End Sub

 

[GokhanTasci]

Sorun şu ki evren bey ben o textbox ı ekleyemiyorum :/

benim ekleyebildiğim tek textbox , ekle sekmesi altındaki metin kutusudur

 

[GokhanTasci]

textbox ı bir hücreye nasıl sabitleyebileceğim hakkında biri bilgi verebilirmi lütfen ?

 

[stranger48]

Gökhan bey merhaba yapmış olduğunuz çalışmada ufak değişiklikler yapabilirmisizin.
gerekli açıklamaları dosyanızın içerisine no tettimhttp://rapidshare.com/files/177528353/fihrist.rar.html

 

[GokhanTasci]

stranger bende yardm istemiştim zaten kardeş