Textbox otomatik temizleme

[obsesyonur]

Merhaba aşağıda yazdığım koda sadece textboxun 5 saniye içerisinde otomatik olarak temizlenmesi ile ilgili kodu entegre edebilir miyiz? Bu arada mevcut kodun çalışma şekli ve çalışma prensibi değişmeyecektir.
Private Sub TextBox1_Change()
On Error Resume Next
NO = TextBox1.Value
Set FC2 = Range("A2:a65000").Find(What:=NO)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin;

[SIZE="2"]Private Sub TextBox1_Change()

On Error Resume Next
NO = TextBox1.Value
Set FC2 = Range("A2:a65000").Find(What:=NO)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value
If NO = "" Then
Selection.AutoFilter Field:=1
End If
If TextBox1 = "" Then Call dur: Exit Sub
Call dur
Call boş
End Sub [/SIZE]

Bir modül oluşturup; aşağıdaki kodları ekleyin.
"TextBox" nesnesi sayfada ise aşağıdaki kodlarda bulunan; mavi satırı,
"Userform" üzerinde ise kırmızı satırı silin

[SIZE="2"] Private g
Sub boş()
If g = Empty Then
g = Now + TimeSerial(0, 0, 5)
Application.OnTime g, "sil", , True
End If
End Sub


Sub sil()
[COLOR="Red"]ActiveSheet.OLEObjects("TextBox1").Object.Value = ""[/COLOR]
[COLOR="Blue"]UserForm1.TextBox1 = ""[/COLOR]
End Sub

Sub dur()
[COLOR="Red"]if ActiveSheet.OLEObjects("TextBox1").Object.Value = "" then g=empty[/COLOR]
[COLOR="Blue"]If UserForm1.TextBox1 = "" Then g = Empty[/COLOR]
If g <> Empty Then
Application.OnTime g, "sil", , False
g = Empty
End If
End Sub[/SIZE]

 

[obsesyonur]

Sayın Plint yazdığınız kodlar harika bir şekilde çalıştı.Sorunuma göstermiş olduğunuz ilgiden dolayı size çok teşekkür ediyorum.Çalışmalarınızda kolaylıklar diliyorum,iyi geceler.

 

[PLİNT]

Sayın Plint yazdığınız kodlar harika bir şekilde çalıştı.Sorunuma göstermiş olduğunuz ilgiden dolayı size çok teşekkür ediyorum.Çalışmalarınızda kolaylıklar diliyorum,iyi geceler.

Merhaba
Rica ederim.
"Private Sub TextBox1_Change()" altındaki kodları; yukarıdaki değişen şekliyle kullanın.