Try this Code : this Code enable you to check the duplicate entry at the time of Data Entry ..
Private Sub Worksheet_Change(ByVal Target As Range) Dim lngValue As Long Dim intICounter As Integer Dim strMsg As String lngValue = Target.Value If Intersect(Target, Range("B:B")) Then For intICounter = 1 To Target.Row - 1 If Range("B" & intICounter).Value = lngValue Then strMsg = strMsg & "Row" & intICounter & vbCrLf Next intICounter End If If strMsg <> "" Then strMsg = "Duplicate Record of " & Target.Value & vbCrLf & vbCrLf & strMsg MsgBox strMsg End If End Sub On Mon, Oct 3, 2011 at 10:15 PM, ChilExcel <chilexcel...@gmail.com> wrote: > hi > > i Need VB lines codes for > Alert MsgBox Pair duplicate entry in row > > Column D function account and duplicates alerts (NO Problem!) > > Attach File , thank you all > > -- > Visita ; http://sites.google.com/site/chilexcel/Home > Visita ; http://www.youtube.com/user/timextag41 > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Regards Rajan verma +91 9158998701 -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel