• Home
 · 
• Miscellaneous
 · 
• Excel 2000 Check for duplicate entry based on other cell... In this instance the duplicate entry is

Excel 2000 Check for duplicate entry based on other cell... In this instance the duplicate entry is

Excel 2000 Check for duplicate entry based on other cell... In this instance the duplicate entry is drawn from cell e3. Var1 = cell e3.

Rate Excel 2000 Check for duplicate entry based on other cell... In this instance the duplicate entry is

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim Var1 As Range
Set Var1 = ThisWorkbook.Worksheets("InfoSheet").Range("e3")
Set foundCell = ThisWorkbook.Worksheets("Pending").Columns("A").Find(Var1)
If foundCell Is Nothing Then
    MoveToLog     ‘Next Record or move to next subroutine
Else
    MsgBox "This appears to be a duplicate request. Please review pending list for possible duplicate entry in cell " & foundCell.Address
End If
End Sub