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 verileri sayfaya koyduğum bir ıcon yardımıyla silmek istiyorum.
Bu icona nasıl bir makro atayabilirim..İcona tıklatınmca veri silinecek..
.......
sayfa1 de bulunan Textbox2 nin içine yazılan veriyi 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..
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

 

[Erdem Akdemir]

Altın üyesiniz, örnek dosyanızı ekleyebilir misiniz?

 

[skaan]

Altın üyesiniz, örnek dosyanızı ekleyebilir misiniz?

Merhaba;

istemiş olduğunuz örnek dosyayı ekledim. İlginiz için şimdiden teşekkürler..

 

[skaan]

Merhaba ;
Yardımcı olabilecekmisiniz acaba ??

Tşk