Arama Çubuğu ile Filtreleme Yapmak

[Faulkner]

Merhaba Arkadaşlar,

Arama Çubuğu ile Filtreleme internetten bir video buldum ve uyguladım. Fakat aşağıdaki kalın buton ile yazılan yerde hata verdi.

Sorun nedir yardımlarınızı bekliyorum saygılarımla.

PROFIL.xlsm dosyasını indir - download

PROFIL.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

arama = Worksheets("Profil").Range("B2").Value

If arama = "" Then

ActiveSheet.ShowAllData

Else

ActiveSheet.Range("B4:H10000").AutoFilter Field:=1, Criterial:="*" & arama & "*"

End If

End Sub

 

[Muzaffer Ali]

Merhaba.
Criterial son hari "L" yazmışsınız "1" olacak Criteria1

 

[Faulkner]

Merhaba.
Criterial son hari "L" yazmışsınız "1" olacak Criteria1

çok sağolun hiç farketmemiştim.

 

[Faulkner]

Merhaba.
Criterial son hari "L" yazmışsınız "1" olacak Criteria1

muzaffer Bey, ben bu tabloda birden fazla filtre kutu koymak istesem nasıl yaparım. yardımcı olur musunuz. kabaca yapmaya çalıştım fakat o bağlantıyı kuramadım. hep hata verdi.

 

[Muzaffer Ali]

ActiveSheet.Range("B4:H10000").AutoFilter Field:=1, Criteria1:="*" & arama & "*", criteria2 :="Aranacak Metin"

Bu şekilde iki tane yapabilirsiniz.