TextBox İçine Yazılanı Veriyi Silme ve Yazılan Veriyi Hücreye Aktarma

[skaan]

Merhaba;

Üç tane texbox hazırladım.
......
Textbox1 - Textbox2 - Textbox3
** Bu textboxların içine yazılan arama verilerini sayfaya koyduğum bir ıcon yardımıyla silmek istiyorum.(veri sil tıklanınca textbox.lar boş kalacak..)
Bu icona nasıl bir makro atayabilirim..İcona tıklatınca veri silinmeli..
** sayfa1 de bulunan Textbox2 nin içine yazılan aranacak veriyi otomatik olarak Sayfa2 de A1 hücresine yazdırmak istiyorum..
Aşağıdaki yine formdan aldığım kodlara bunun için nasıl bir ekleme yapmam gerekir..
Örnek dosyamı yardımcı olması içi ekledim..
Yardımcı olmanızı rica ediyorum..

Private Sub TextBox2_Change()
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("C4: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

Saygılarımla
SKaan