userformdan başka sayfaya kayıt

[nihatra]

userforma bilgilerimi DATA isimli excel sayfasundan alıyorum. userforma aldığım verileri DATA sayfasına değilde sayfa2 nasıl kaydederim.yardımcı olursanız sevinirim.teşekkürler.

kaydet formülüm;
Private Sub CommandButton1_Click()
Set s1 = Sheets("DATA")

If ComboBox1.Text = "" Then

MsgBox "lütfen adınızı soyadınızı giriniz!!!"
Exit Sub

End If
e = s1.[e65536].End(3).Row
Cells(e + 1, 2) = ComboBox1.Text
Cells(e + 1, 3) = TextBox1.Text
Cells(e + 1, 4) = TextBox2.Text
Cells(e + 1, 5) = TextBox3.Text
Cells(e + 1, 6) = TextBox4.Text
Cells(e + 1, 7) = TextBox5.Text
Cells(e + 1, 8) = TextBox6.Text
Cells(e + 1, 9) = TextBox7.Text
Cells(e + 1, 10) = TextBox8.Text
Cells(e + 1, 11) = TextBox9.Text
Cells(e + 1, 12) = TextBox10.Text

ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
ProgressBar1.Visible = True
Dim i As Integer
For i = 1 To 1000
ProgressBar1.Value = (i / 1000) * 100
Label10.Caption = Format(Int((i / 1000) * 100), "%0")
DoEvents
Next i
MsgBox "Kayıt Tamamlandı!!!"
ProgressBar1.Visible = False
End Sub

 

[halit3]

Worksheets("sayfa2").Cells(e + 1, 2) = ComboBox1.Text

yukarıdaki gibi yapman lazım
.cells önüne gelen Worksheets("sayfa2") bunu bütün ,cells lerin önüne koy

 

[nihatra]

teşekkür ederim. tek satıra kayıt ediyor.alt alta kayıt etmiyor

 

[halit3]

e = s1.[e65536].End(3).Row
bunuda

aşağıdakikle değiştirmen lazım
e = Worksheets("sayfa2").[e65536].End(3).Row