TextBox kodu çalışmıyor

[eminuslu]

Sevgili arkadaşlar Webtr sitemizde gösterilen videodan almış olduğum Textyi çalıştıramadım Command butonuna tıklayıncası arıza veriyorbu konuda sizlerden yardım istiyorum dosyam ektedir

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodda hata var. Aşağıdaki şekilde deneyiniz.

Private Sub CommandButton1_Click()
    Range("A1").Value = TextBox1.Text
    TextBox1.Text = Clear
End Sub