Rakam Filtreleme İşlemi - VBA Makro Kod

[Karamanli.70]

Üstadlarım kolay gelsin. Ekte yer alan Excell dosyamda rastgele oluşturduğum T.C. Kimlik No'lar. Ben bu numaralardan TextBox kutusuna girdmiş olduğum değere göre (Tam Eşleşme olmadan- Yani içinde olan rakamları arayacak şekilde) filtreleme işlemini nasıl yapabilirim. Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Öncelikle T.C. noları metne çevirmelisiniz.
Excel filtre rakamlardan oluşan hücrelerde içerir filtresini çalıştıramaz.
Rakamda eşit, büyük, yada küçük filtreleri uygulanabilir.
Bunun aşmak için rakamları metne çevirmelisiniz.

(Bunu şu yöntemle yapabilirsiniz.
C4 hücresine =METNEÇEVİR(B4;0) formülünü kopyalayın ve aşağı doğru çoğaltın.
formül içeren hücreleri seçip kopyalayın, B4'ü seçip özel yapıştır/değerleri seçin)

Aşağıdaki kodu sayfanın kod kısmına kopyalayınız.

Private Sub TextBox1_Change()
    ActiveSheet.Range("B3:B" & Rows.Count).AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd
End Sub

 

[Karamanli.70]

Teşekkür ederim hemen deniyorum Muzaffer Ali Hocam.