script tombol Entry dengan userform :
masukan scriptnya di tombol entri
Private Sub TOMBOLENTRY_Click()
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Sheet1")
'menemukan baris kosong pada database siswa
iRow = Ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check untuk sebuah textbox tidak boleh kosong
If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Masukan data .."
Exit Sub
End If
'untuk copy data dari textbox ke cell excelnya
Ws.Cells(iRow, 1).Value = Me.TextBox1.Value
Ws.Cells(iRow, 2).Value = Me.TextBox2.Value
Ws.Cells(iRow, 3).Value = Me.TextBox3.Value
'clear data textboxnya setelah entry
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.SetFocus ' kembali ke textbox1
End Sub