Filtreleme

[Erdal]

Merhabalar
Aşağıdaki kod ile kelimeleri süzebiliyorum. Rakam ve işaretleri (.,;,/,*,- gibi) ise süzemiyorum. Acaba kodu nasıl revize etmeliyim. Birde bu kod; ile başlayan mantığıyla süzüyor. Aynı şekilde içerir mantığıyla süzme işlemini nasıl yaptırırız. Saygı ve selam ile ...

Private Sub TextBox1_Change()
Dim i As Long
Application.ScreenUpdating = False

i = Cells(Rows.Count, "B").End(3).Row
ActiveSheet.Range("$B$5:$R$" & i).AutoFilter Field:=1, Criteria1:="=" & TextBox1.Value & "*"
Application.ScreenUpdating = True
End Sub

 

[Erdal]

Yardımcı olabilir misiniz acaba?

 

[Necdet]

Merhaba,

İçerir şeklinde süz yaptırmak için koddaki aşağıdaki gibi değiştiriniz.

Criteria1:="=*" & TextBox1.Value & "*"

 

[Erdal]

Sayın Necdet Bey
İlginiz ve cevabınız için teşekkürler. Dediğiniz gibi yaptım ama rakamları süzmeyi başaramadım birde Textbox içindeki karakteri sildiğimde normalde listenin ilk hali geri geliyor. Ama içinde rakam olduğunda hata veriyor. Örnek dosya ekledim acaba yardımcı olabilir misiniz? saygı ve selam ile ...

 

[Erdal]

Konum günceldir.

 

[Erdal]

Arkadaşlar yardımlarınızı bekliyorum. Saygı ve selam ile ...

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.


http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-bazy-veri-turlerini-suzme-t16264.html


.

 

[Erdal]

İlginiz ve cevabınız için çok teşekkür ederim Sayın Yurttaş.
Öncelikle beyninize sağlık çalışmanız çok hoş. Lakin ben çalışmanızı daha önce de incelemiştim. Benim asıl yapmak istediğim (Ben anlatamamış olabilirim kusuruma bakmayın); tek bir textbox (veya başka bir nesne) kutusu ile bütün (harf, sayı, ve işaretler) karakterleri süzebilmek. Tabiki de textbox'ın biri "... ile başlayan" diğeri de"...içerir" mantığıyla çalışacak. Tabi bu olabilir birşey mi bilmiyorum. Umarım açıklayabilmişimdir. Saygı ve selam ile ...