Forum Discussion

Deleted's avatar
Deleted
Dec 23, 2018

remove duplicats

can somone help me wth a formula or vba code to remove duplicats from a row wile entering data without any popup messages i am trying to work on a excel program that will identify pepole with a barcode and i dont want anyone shuld be able to scan the bar code 2 or more times

  • Haytham Amairah's avatar
    Haytham Amairah
    Silver Contributor

    Hi,

     

    I don't believe that this task can be done using a formula!

    You definitely need to VBA code associated with an event to do so.

     

    So, I would suggest this one:

    Private Sub Worksheet_Change(ByVal Target As Range)
        
        On Error Resume Next
        Application.EnableEvents = False
        
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
            Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
        End If
        
        On Error GoTo 0
        Application.EnableEvents = True
        
    End Sub

     

    Please find it in the attached file.

    Try to enter a duplicate barcode and see how it will be gone immediately.

    And, please note that this code is only applied to column A, but you can modify it as you want.

     

    Hope that helps

    • Deleted's avatar
      Deleted

      thank you this works good, but will this work on google sheets too?

Resources