TextBox'a girilen veriyi sayfaya kaydetmek?

[abhaz]

TextBox1 e yazılan değeri Sayfa1 Sütun A2den itibaren,

TextBox2 ye yazılan değeri Safya2 Sütun B2 den

itibaren kaydetmek ve kaydettikten sonra textbox ların temizlenmesini istiyorum. bunun için nasıl bir makro yapabilirim?

 

[nziya]

Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
sayar = WorksheetFunction.CountA([a1:a65536])
Cells(sayar + 2, 1) = TextBox1
Sheets("sayfa2").Select
Cells(sayar + 2, 2) = TextBox2
TextBox1 = ""
TextBox2 = ""
End Sub

 

[abhaz]

teşekkürler...

 

[idogus]

Bu konu sitedede daha önce defalarca verilmiştir.
Formunun üzerinde bir commandbutton olduğunu düşünüyorum ve onun için yazıyorum.
[vb:1:66646075fd]
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
i = WorksheetFunction.CountA(Sheets("Sayfa1").[A1:A1000])
j = WorksheetFunction.CountA(Sheets("Sayfa2").[B2:B1000])
Sayfa1.Cells(i + 1, 1) = TextBox1.Text
Sayfa2.Cells(j + 1, 2) = TextBox1.Text
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
[/vb:1:66646075fd]