TextBox ta süzme işlemi

[m.gur]

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A3:A65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

Merhaba; daha önce forumdan aldığım yukarıdaki kodla textboxta süzme işlemi yapıyorum. Ancak şöyle bir sorun var. Örnek E yazdığımda E harfiyle başlıyanları, EB yazdığımda EB ile başlıyanları listeliyor. Burda sorun yok. Ancak textbox içini boşaltınca imleç verilerin en son satırında kalıyor. Ben istiyorumki süzme işlemi bitip textbox içini silince imleç A3 te kalsın. Kodda ne gibi bir değişiklik gerekir acaba. Teşekkürler.

 

[Mahir64]

Merhaba
Alıntıdır.

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A3:A65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
Range("a3").Select
End If
End Sub

 

[m.gur]

Sayın Black Lord; Teşekkür ederim. Çalıştı.

 

[Mahir64]

Sayın Black Lord; Teşekkür ederim. Çalıştı.

Kolay gelsin
İyi çalışmalar :hey: