Identifying duplicate in a specific column but pasting entire row to new sheet

[masawo]

Afternoon all,

Hope someone can help me out or at least point me in the right direction. I'm looking to find a macro that will do the following: Scan Column N for duplicates (Columns are A - AA) once a duplicate is found, copy the entire row of said duplicate into new sheet, so new sheet would have Columns A-AA of only duplicates.

I've found a number of macros and also conditional formatting to identify dupes but not finding what my specific needs are or even close to that. Also looking for something that will be fairly quick, the data set is about 26K lines per month. Not sure if this matters or not, but for my needs i'm hiding a majority of the Columns that dont pertain to my needs but are important after my dup process is complete.

Thanks in advance for any help/pointers/tips you folks can provide.

 

[onlyadrafter]

Hello,

Is this of any use?

Sub copy_DUPLICATES()
    Application.ScreenUpdating = False
    Range("AB2").Formula = "=COUNTIF($N$2:$N$" & Rows.Count & ",N2)"
    Range("AB2").Copy
    Range("AB3:AB" & Range("N" & Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteAll)
    Range("AB1").Select
    Selection.AutoFilter Field:=28, Criteria1:=">1", Operator:=xlAnd
    Range("A2:AA" & Range("N" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Sheet2").Range("A1").PasteSpecial (xlPasteValues)
    Selection.AutoFilter
    Columns("AB:AB").ClearContents
    Application.ScreenUpdating = True
End Sub

 

[masawo]

Hello,

Is this of any use?

Sub copy_DUPLICATES()
    Application.ScreenUpdating = False
    Range("AB2").Formula = "=COUNTIF($N$2:$N$" & Rows.Count & ",N2)"
    Range("AB2").Copy
    Range("AB3:AB" & Range("N" & Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteAll)
    Range("AB1").Select
    Selection.AutoFilter Field:=28, Criteria1:=">1", Operator:=xlAnd
    Range("A2:AA" & Range("N" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Sheet2").Range("A1").PasteSpecial (xlPasteValues)
    Selection.AutoFilter
    Columns("AB:AB").ClearContents
    Application.ScreenUpdating = True
End Sub

You my friend are a godsend. This appears to be working exactly as i need it. Will keep playing with a few sheets but I'm very satisfied with what you offered. Thanks so much for your promptness and expert help!!

This board rocks!!