How To Prevent Adding Duplicated Record In A Table Using VBA

[adfo]

I need to prevent adding duplicated record in a table .. I attach sample file
I input date on the left.. when I click a button, the range of records are copied and added to the table .. I need to check if the record has been added before adding it .. The duplicated record is a combination of name and date .. the same account should not be entered twice in the same day .. I appreciate your help .. thanks

[Admin]

Hi

Use this function to identify the duplicate.


Function ISDUPLICATE(ByVal ExeDate As Date, AccountName As String) As Boolean

Dim k As Variant, i As Long, d As Long

AccountName = LCase(AccountName)
d = CLng(ExeDate)
With Worksheets("EXEC Plan")
k = .Range("s6:t" & .Range("s" & .Rows.Count).End(3).row).Value2
For i = 1 To UBound(k, 1)
If k(i, 1) = d And LCase(k(i, 2)) = AccountName Then
ISDUPLICATE = True
Exit Function
End If
Next
End With

End Function

and in your sub use it like


If ISDUPLICATE(CDate(Range("b6").Value), Range("c6")) Then Exit Sub

[adfo]

Thanks ..
This worked perfect !! .. I appreciate your help thank you very much !!