by koteswara rao (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 7th November 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This is find out the duplicate entry's in excel.
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