textbox ile süzdürme nasıl yapacağız..

[subutayı]

merhaba,
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
evn = Range("a10000").End(3).Row
evn2 = TextBox1.Value
Set evn3 = Range("a1:a10000").Find(What:=evn2)
For i = 2 To evn
If UCase(Mid(Cells(i, 1).Value, 1, Len(TextBox1.Value))) <> UCase(TextBox1.Value) Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
If TextBox1.Value = Empty Then Rows("1:65536").Hidden = False
End Sub

yukardaki kod ile A2 deki TC ye göre süzdürme yapıyorum. aynı sayfada G2 deki Ada göre de yeni bir textbox ekleyerek süzme yapmak istiyorum. yukardaki kodu isim süzmeye göre ayarlayabilirmi siniz. yada siz yazarmısınız. teşekkürler...

 

[BedriA]

Örnek dosya paylaşabilir misiniz?

 

[subutayı]

ilk mesaja örnek dosyayı ekledim...

 

[yanginci34]

bunu bir denermisiniz
Ekli dosyayı görüntüle hücreye yazılana göre süz.xlsm

 

[subutayı]

yanginci34 ilginize teşekkür ederim, ama benim istediğim her bir harf yazdığımda süzmeye devam etmesi mesela A yazınca A lı olanları, Ar yazınca devam etmesi gibi. örneğime bakarsanız tc kimlik te rakam yazdıkça süzme yapıyor..

 

[subutayı]

sayın yangici34 örneğime bakarsanız. her rakam yazdığımda süzme yapıyor..

 

[BedriA]

sayın yangici34 örneğime bakarsanız. her rakam yazdığımda süzme yapıyor..

I sütununda isme göre arama yapıyor. Bence sıkıntı yok.
Eğer userform kullanarak yapmamı istersen, tam istediğin gibi çalışan bir kod var. Kod bana ait değil tabi, buradan direk alıp veya alıp uyarladığım bir kod.

 

[subutayı]

BedriA teşekkürler. userform kullanmayacağım. excel içinde textbox içinde yapılacak. teşekkürler.