TextBox daki yazıyı silmek..

[acolkesen1]

Arkadaşlar Merhaba,
Aşağıdaki kodlarla TextBox2 ye girilen veriye göre filtreleme yapılıyor. Ancak dosyayı kapatırken TextBoxdaki yazı silinsin, dolayısıyla filtreleme kaldırılsın istiyorum.. Bunun için auto close a nasıl bir kod eklemeliyim.. İlgilenen arkadaşlar teşekkür ederim.
Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("B2:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[Orion1]

Textbox2.text=empty

veya

textbox2.text=""

 

[acolkesen1]

Merhaba Sayın Evren Gizlen,
Yardımlarınız için çok teşekkür ederim.Esen kalın..

 

[acolkesen1]

Tekrar merhaba Sayın Gizlen,
Gönderdiğiniz kodu dosyada hem auto_closeda hem de auto_open da denedim ama her ikisinde de hata veriyor. Dosyayı ekte gönderiyorum. TextBox2.Text = Empty kodu şu anda auto_openda.. İlginize tekrar teşekkür ederim.

 

[Ayhan Ercan]

Merhaba

Textbox2 nin nerde olduğunu belirterek deneyiniz....
Aşağıdaki gibi......

Sayfa1.TextBox2.Text = Empty

 

[acolkesen1]

Sayın Ayhan Ercan merhaba,
Sayfayı belirterek de yaptım ancak yine hata veriyor.
Kod şu şekilde: GİRİŞ.TextBox2.Text = Empty

 

[Ayhan Ercan]

Merhaba

Ben size sizin yazmanı gereken şekilde örnekleme verdim.

Sizin GİRİŞ adındaki sayfanızın Name özelliği Sayfa1 dir.

GİRİŞ isiminle kullanma istiyorsanız o zaman aşağıdaki gibi deneyini..

Sheets("GİRİŞ").TextBox2.Text = Empty

 

[acolkesen1]

Merhaba Sayın Ayhan Ercan,
Çözümünüz ve öğretici nitelikteki açıklamalarınız için çok teşekkürler.. Aynı dosyada açılıta imlecin TextBox2 ye gelmesi için hangi kodu kullanmam gerekir ? bu konuda da yardımlarınızı rica ediyorum. iyi çalışmalar..