Userform da hata

[boztepelibey]

Selamün Aleyküm;

USTALARIM üye giriş tarzında yarım yamalak bilgi ile bir form yaptım. KAYDET deyince hata veriyor. Yardımcı olabilir misiniz? Dosya ekte mevcuttur.Allah razı olsun İnşallah


Dualarımla

 

[halit3]

bu kodu kulanırmısın

Private Sub CommandButton1_Click()
sat = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A5:A65000")) + 5
Worksheets(ActiveSheet.Name).Cells(sat, 1).Value = sat - 4
Worksheets(ActiveSheet.Name).Cells(sat, 2).Value = TextBox1.Text
Worksheets(ActiveSheet.Name).Cells(sat, 3).Value = TextBox2.Text
Worksheets(ActiveSheet.Name).Cells(sat, 4).Value = TextBox3.Text
Worksheets(ActiveSheet.Name).Cells(sat, 5).Value = TextBox4.Text
Worksheets(ActiveSheet.Name).Cells(sat, 6).Value = TextBox5.Text
Worksheets(ActiveSheet.Name).Cells(sat, 7).Value = TextBox6.Text
Worksheets(ActiveSheet.Name).Cells(sat, 8).Value = TextBox7.Text
Worksheets(ActiveSheet.Name).Cells(sat, 9).Value = TextBox8.Text
Açik = "Bilgiler İşlendi"
buton = vbokeyonly + vbInformation
bas = " Üye Giriş"
MsgBox Açik, buton, bas
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub

 

[boztepelibey]

USTAM Hakkını Helal Et. Emeğine sağlık. Teşekkür ederim. Allah Razı Olsun

Sorun Çözüldü!!!

 

[Orion1]

Alternatif.

Dim sat As Long, i As Byte
sat = WorksheetFunction.CountA(Range("A5:A65000")) + 5
Cells(sat, 1).Value = sat - 4
For i = 1 To 8
    Cells(sat, i + 1).Value = Controls("TextBox" & i).Text
    Controls("TextBox" & i).Text = ""
Next i
MsgBox "Bilgiler İşlendi..!!", vbOKOnly + vbInformation, "Üye Giriş"

 

[boztepelibey]

Evren Hocam;

Hakkını helal et inşallah.Allah razı olsun...