- Katılım
- 18 Mayıs 2005
- Mesajlar
- 395
- Excel Vers. ve Dili
- Excel 2019 TR
- Altın Üyelik Bitiş Tarihi
- 12-02-2024
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...
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...
Ekli dosyalar
-
98.5 KB Görüntüleme: 15
Son düzenleme: