Formdaki veriyi excel tablosuna girmek

[exssir]

Merhabalar,

Bir excel şablonum var. Bu şablona uygun bir form yaptım. Ancak formdaki verileri excel şablonuna yazamıyorum. Biryerlerde hata olmalı.

Dosyayı ekte veriyorum. Yardımcı olursanız sevinirim.

Şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat As Long
sat = [A65536].End(3).Row + 1
Cells(sat, 1).Value = sat - 4
Cells(sat, 2).Value = TextBox1.Text
Cells(sat, 3).Value = TextBox2.Text
Cells(sat, 4).Value = TextBox3.Text
Cells(sat, 5).Value = TextBox4.Text
Cells(sat, 6).Value = TextBox5.Text
Cells(sat, 7).Value = TextBox6.Text
Cells(sat, 8).Value = TextBox7.Text
Cells(sat, 9).Value = TextBox8.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub