Excel Textbox Hakkında

[skaan]

Merhaba;
Sutunda arama yapmak için Textbox üzerinde aşağıdaki Kodları kullanıyorum. Textbox'a aranacak metni yazdığımda sutun içerisinde içerikte yazılanı getırıyor .
Textbox'a tıkladığımda eskı yazılan metin siliniyor. Ancak eski yazılan silindikten sonra listemin tekrar C5 hücresine geri dönmesini sağlayamadım. Bu konuda kodda yardımcı olabilirmisiniz.

Saygılarımla
SKaan

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("C9:C65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Text = ""
End Sub

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz.

 

[skaan]

Teşekkürler.

 

[Erdem Akdemir]

Mouse Up'ı aşağıdaki şekilde değiştirin.

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Text = ""
ActiveSheet.ListObjects("Tablo5").Range.AutoFilter Field:=2
Range("c5").Select
End Sub

 

[skaan]

Teşekkürler