- Katılım
- 2 Aralık 2011
- Mesajlar
- 16
- Excel Vers. ve Dili
- 2003 türkçe
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
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