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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.