Kod düzeltmesi

[mhizlim]

ad ve isim olarak userform'da kaydet diyorum ama hata veriyor

 

[SadiSerdari]

Cells(ass, 1).Value = ass - 1 'işlevi nedir?
Cells(bss, 2).Value = bss - 1 'işlevi nedir?
Satır değerini yazmasındaki amaç nedir? başka bir işlev yerine getirecekse ona göre yazmak lazım.

Private Sub CommandButton1_Click()
ass = [A65536].End(3).Row + 1
bss = [A65536].End(3).Row + 1
Cells(ass, 1).Value = ass - 1
Cells(bss, 2).Value = bss - 1
Cells(ass, 1).Value = TextBox1.Text
Cells(bss, 2).Value = TextBox2.Text
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

bu haliyle textboxlardaki bilgiyi hücreye aktarıyor.