Private Sub CommandButton1_Click()
Dim ws As Worksheet
xx = ActiveSheet.Name
num = Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(xx).Cells(num, 1).Value = TextBox1.Value
Sheets(xx).Cells(num, 2).Value = TextBox2.Value
Sheets(xx).Cells(num, 3).Value = TextBox3.Value
Sheets(xx).Cells(num, 4).Value = TextBox4.Value
Sheets(xx).Cells(num, 5).Value = TextBox5.Value
MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ", vbMsgBoxRight, "ËÈÊ ÇØáÇÚÇÊ "
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
' End If
End Sub
کامنت