Değerli Üstadlar,
Arama çubuğu ile arama yapıp verilerin filelenmesini yapıyorum fakat arama sütununda hem yazı hemde rakam bulunuyor.
Yazıları buluyor ve listeliyor fakat rakamları bulamıyor, acaba nerede yanlış yapıyorum yardım rica ediyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
aramaMetni = Sheets("VERILER").Range("c2").Value
Set tabloalan = Sheets("VERILER").ListObjects("Personel").DataBodyRange
Sheets("VERILER").ListObjects("Personel").AutoFilter.ShowAllData
If aramaMetni <> "" Then
Sheets("VERILER").ListObjects("Personel").DataBodyRange.AutoFilter Field:=2, Criteria1:="*" & aramaMetni & "*"
End If
End Sub
İlginize şimdiden teşekkür ederim.
Arama çubuğu ile arama yapıp verilerin filelenmesini yapıyorum fakat arama sütununda hem yazı hemde rakam bulunuyor.
Yazıları buluyor ve listeliyor fakat rakamları bulamıyor, acaba nerede yanlış yapıyorum yardım rica ediyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
aramaMetni = Sheets("VERILER").Range("c2").Value
Set tabloalan = Sheets("VERILER").ListObjects("Personel").DataBodyRange
Sheets("VERILER").ListObjects("Personel").AutoFilter.ShowAllData
If aramaMetni <> "" Then
Sheets("VERILER").ListObjects("Personel").DataBodyRange.AutoFilter Field:=2, Criteria1:="*" & aramaMetni & "*"
End If
End Sub
İlginize şimdiden teşekkür ederim.