Excel'de Arama Motoru...

[S.K.]

Excel'de Z sütununa kadar her sütuna arama motoru eklemek istiyorum. Yardımcı olursanız sevinirim...

 

[nziya]

BU ÖRNEĞE GÖRE İSTEDİĞİNİZ KADAR ARAMA EKLEYEBİLİRSİNİZ.
Private Sub TextBox1_Change()
On Error Resume Next
SONUC2 = TextBox1.Value
Set FC2 = Range("A2:Z65000").Find(What:=SONUC2)'A2 HER SÜTUNDA DEĞİŞECEK
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*" 'Field:=1 BUDA HER SÜTUNDA ARTIRILACAK
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
SONUC2 = TextBox2.Value
Set FC2 = Range("B2:Z65000").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
End Sub

 

[S.K.]

Teşekkür ederim, ama metin kutusuna yazı yazdığım zaman otomatik filtre uygula fonksiyonu aktif hale geliyor ve yazıyı sildiğim zaman da tablonun bittiği yerdeki hücre aktif hale geliyor. Bunları nasıl iptal edebiliriz acaba?

 

[Tarkan VURAL]

Siz textbox'a veriyi girdikten sonra aramasın istiyorsanız yukarıdaki kodları bir düğme ( commandbutton_click) olayına yazınız. En sondaki veriyi değil en baştaki veriyi seçsin istiyorsanız kodun sonuna [a1].select yazabilirsiniz.

Saygılar;
Tarkan VURAL

 

[S.K.]

Teşekkür ederim....