Try this : Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Err: Dim lngValue As Long Dim intICounter As Integer Dim strMsg As String Dim lngValue2 As Long lngValue = Target.Value lngValue2 = Target.Offset(0, -1).Value If Intersect(Target, Range("C:C")) Then For intICounter = 1 To Target.Row - 1 If Range("B" & intICounter).Value = lngValue2 And Range("C" & 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 Err: If Err.Number <> 0 Then Exit Sub End If End Sub
On Wed, Oct 5, 2011 at 7:02 AM, ChilExcel <chilexcel...@gmail.com> wrote: > Thanks Rajan I need is to columns B and C (together) > containing the mirrored pair in same row > good solution you propose, but only in column B duplicate > > Thanks Rajan > > 2011/10/4 rajan verma <rajanverma1...@gmail.com> > >> 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 >> > > > > -- > 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