Userform data entry

[pujo]

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.

'<------------------------- 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

 

[Logit]

You can check fo duplicate rows prior to accepting the new record entry :


Formula / Macro to find Duplicate Row based on multiple Columns conditions

 

[pujo]

@Logit

Thanks, I will have a look.

Cheers!