How to delete data from an Excel worksheet database via a user form through VBA code. Sometimes we may need to delete a record from our Excel worksheet database. For example, when we discontinue an inventory item, an employee leaves the organization or a student completes his course and the data is no longer needed in the current database.

Watch the video below:

 

Watch this video on YouTube.

Here’s the complete VBA code:

Dim currentrow As Long

Private Sub cmdDelete_Click()
answer = MsgBox(“Are you sure you wish to delete the record?”, vbYesNo + vbQuestion, “Delete Record?”)
If answer = vbYes Then
Cells(currentrow, 1).EntireRow.Delete
End If
End Sub

Private Sub UserForm_Initialize()
currentrow = 2
TextBox1 = Cells(currentrow, 1)
TextBox2 = Cells(currentrow, 2)
TextBox3 = Cells(currentrow, 3)
End Sub

 

Further reading:

Add Data to Excel Database with UserForm using Countif Function