Option Explicit
Private Sub btnCancel_Click()
Unload Me
End Sub
Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
'The next two lines can be expanded as many times as needed for all the entry fields in your project
ws.Cells(newRow, 1).Value = Me.txtFirstName.Value
ws.Cells(newRow, 2).Value = Me.txtSurname.Value
End Sub
Sub CommandButton1_Click()
Selection.EntireRow.Delete
End Sub
hi,See if this meets your needs ...
VBA Code:Option Explicit Private Sub btnCancel_Click() Unload Me End Sub Private Sub btnOK_Click() Dim ws As Worksheet Set ws = ActiveSheet Dim newRow As Long newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1 'The next two lines can be expanded as many times as needed for all the entry fields in your project ws.Cells(newRow, 1).Value = Me.txtFirstName.Value ws.Cells(newRow, 2).Value = Me.txtSurname.Value End Sub Sub CommandButton1_Click() Selection.EntireRow.Delete End Sub
Download example workbook : Simple Database.xlsm