I am utilizing a UserForm for data entry into a data range.
How can I ensure that a record doesn't get duplicated?
This is my logic for saving the record.
How can I ensure that a record doesn't get duplicated?
This is my logic for saving the record.
VBA Code:
'<------------------------- Save NewRecord in CostCenter Data ------------------------->
Private Sub cmdSave_Click()
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets("CostCenter")
Dim lRow As Long
lRow = Application.WorksheetFunction.CountA(Sh.Range("A:A"))
Call RecordValidation '<-- Run Record Validation prior to Saving
'<------------------------- Write NewRecord to DataSheet ------------------------->
Sh.Range("A" & lRow + 1).Value = textboxLocation.Value 'CostCenter (Location)
Sh.Range("B" & lRow + 1).Value = textboxDescription.Value 'Description
Sh.Range("C" & lRow + 1).Value = textboxCompany.Value 'Company ID
Sh.Range("D" & lRow + 1).Value = textboxCostCenter.Value 'Cost Center ID
Sh.Range("E" & lRow + 1).Value = "=Row()" 'Record ID (Row)
Me.cmdNew.Visible = True
Me.cmdDelete.Visible = True
Me.cmdUpdate.Visible = True
Me.cmdCancel.Visible = False
Me.cmdSave.Visible = False
MsgBox "Record Saved", vbInformation, "Cost Center"
End Sub