Textbox daki verinin silecek kod

[kemal turan]

Merhaba üstadlar,
Aşağıdaki textBox içersisindeki girilmiş bir veriyi silmek için makro yaparak kodları almaya çalıştım olmadı.
Bunu yapacak bir makro kodu hususunda yardımcı olabilirmisiniz.
Tşk.

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub

 

[heft]

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
TextBox1.Value=""
End Sub

 

[kemal turan]

Sn.Heft
Cevabınız için çok teşekkür ederim.
Bir butona bağlayabileceğimiz şekilde revize edebilirmisiniz.
Yoksa yeni bir textbox mu gerekecek.Kodlar hususunda pek bilgim yok ta.
Tşk.

 

[heft]

Range("A1").Value = TextBox1.Value

kodunun altına
TextBox1.Value=""

yazarsanız A1 e değeri yazdıktan sonra textbox1 içeriği silinecektir.

 

[kemal turan]

Sn.Heft
Dosyanın orjinalinde bir textbox var.
Veri girdiğimde satışlar sahifesinden verileri süzüp a2:b sutuna getiriyor.Ben A1 hücresine herhangi bir değer girmiyorum.
İsteğim Planlama sahifesine bir buton koyup textbox1 deki veriyi silsin ikinci bir süzme işlemine hazır hale gelsin.
Kodun tamamı aşağıdaki gibidir.
Teşekkürler
Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Set sh = Sheets("stok listesi")
If sh.AutoFilterMode Then sh.AutoFilterMode = False
sat = Cells(Rows.Count, "A").End(xlUp).Row
If sat > 1 Then Range("A2:l" & sat).ClearContents
If Range("A1").Value = Empty Then Exit Sub
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter field:=1, Criteria1:=Range("A1").Value & "*"
sh.Range("A1").CurrentRegion.Copy Range("A2")
sh.Range("A1").AutoFilter

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[heft]

isterseniz örnek dosya ekleyin o şekilde bakalım

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu boş bir modüle ekleyin.
Sayfanıza bir buton ekleyin ve modüldeki kodu butona atayın.

Sub TEMİZLE()
    Sheets("stok listesi").TextBox1 = ""
End Sub

 

[kemal turan]

Sn.Korhan bey,Sn.Heft
Emeğiniz için çok teşekkür ederim.
Korhan beyin kodu ihtiyacımı giderdi.
Selametle kalınız.