VB Code to find duplicate and copy records

[rizmomin]

Hello:

I have data as shown in Sheet1
I have sorted Ascending order Column B

I need VB COde to go thru the each text in column B and if it has duplicate
then copy the records in column H thru K

Few Example i have manually copied

Please let me know if you have any questions.
Thanks.

Riz

[MarvinP]

Hey Riz,

VBA is hard but you can get the same answer with a helper column. See the attached where I added a helper column which counts for duplicates. Then you can AutoFilter to only show 2 in the helper and your answer is easy peasy.Duplicate Helper for Riz.xlsx

[Sintek]

Sub J3v16()
Dim Rng As Range, lr As Long
With Sheet1
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set Rng = .Range("F1:F2"): Rng(2).Formula = "=COUNTIF($B$2:$B$" & lr & ", B2)>1"
    With .ListObjects(1)
        .Range.AdvancedFilter 1, Rng
        .DataBodyRange.Copy .Parent.Range("H2")
    End With
    .ShowAllData: Rng.Clear
End With
End Sub

[rizmomin]

Hello
Thanks Sinteck and Marvin
R

[Sintek]

Pleasure...Tx for rep +