How can I prevent duplicate record by validating two columns in my worksheet

[genesix]

I need to validate the following columns.

1. column 3 which is the employee name
2. column 5 which is the Login Date ( I need to validate the date if its not equal TODAY)


Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Application.ScreenUpdating = False
With Sheets("Sheet1")

If WorksheetFunction.CountIf(.Columns(3), ComboBox1) > 0 Then
MsgBox " You are Already Timed-in", vbCritical, "Employee Time-in"
Else
' Find emtpy row
lRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

 

[Engberg]

Here is one way you can compare two dates (if you have it formatted as dates on the sheet)

Sub compareDates()
    myDate = [A1].Value
    If DateDiff("d", myDate, Date) = 0 Then
        MsgBox "Date in A1 is today"
    Else
        MsgBox "Date in A1 is not today"
    End If
End Sub