Copy duplicate rows with same value in the same column to another sheet

Please provide a workbook that contains a sheet that shows what the data looks like and another sheet that shows what you want it to look like.

Hi,

Please try below assuming your data is from Column A1 to D, change accordingly:

Option Explicit

Sub CopyDuplicates()

Dim wstSource As Worksheet, _
    wstOutput As Worksheet
Dim rngMyData As Range, _
    helperRng As Range

Set wstSource = Worksheets("Sheet1")
Set wstOutput = Worksheets("Sheet2")

Application.ScreenUpdating = False

With wstSource
    Set rngMyData = .Range("A1:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With
Set helperRng = rngMyData.Offset(, rngMyData.Columns.Count + 1).Resize(, 1)

With helperRng
    .FormulaR1C1 = "=if(countif(C1,RC1)>1,"""",1)"
    .Value = .Value
    .SpecialCells(xlCellTypeBlanks).EntireRow.Copy Destination:=wstOutput.Cells(1, 1)
    .ClearContents
End With

Application.ScreenUpdating = True

End Sub

Select allOpen in new window

Hi guys,

Here some guidance for what i am looking for.
Here you can see the SQL data query with all the information. In the first column there are the "WEB_QUOTE_NUM" which is the main data.
Those numbers are duplicates sometimes and i would need all those duplicates rows, which can give different information in the other columns.
The other columns are the information that i need to pull to the other sheet with the macro.
This picture instead is showing you the next sheet where i can input the "WEB_QUOTE_NUM" at the top. Going down you will see the column titles. Putting the "WEB_QUOTE_NUM" you will generate all the rows within the same number.
In easy word i need to isolate all the rows of that number in the next sheet just writing down the number requested at the top.
The design might be different but i need to isolate the data.
After this i will create a concatenate formula for generate a comment in the third sheet.
Could be able to help me out with this?
Here the Excel file called Teo.xlsx.
Teo.xlsx

Hi Teo
I'm struggling a bit to understand what it is that you want. Have a look at the attached workbook. Do you want the to take the data and have it look like Sheet1 in the attached workbook?
Elmo
Teo.xlsx

Or something like this? Once i have clarity on the end result i can help you with the code
Teo2.xlsx

Yes, is not what i was looking for.
You just translated in rows instead of columns.
I still need to be able to insert the number and receive all the rows of that number in the second sheet.
But thank you.

Teo i think there is a missive communication gap here. I want to know what the data should look like, Your example was VERY BAD. So i'm going to leave now as i see the others have done as well.

Shums proved to be a high reliable resource even when the solution is an abstract idea. Thank you!

You'r Welcome Teo! Glad I was able to help.