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.
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.