How to copy rows from one sheet to another based on a condition in a third sheet

[steiny88]

Dears,

I want to copy every row in sheet1 that contains the code of product which is in sheet2 to copy them in sheet3

I have this code but I cannot make it for multiple range for example to get the range of A:A in sheet2 or A1:A8000 and copy the rows that match in sheet3. It only works if I put the exact code of the product.

Sub Copy_Criteria_Text()

Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = False
With Range("A1", Range("A" & Rows.Count).End(xlUp))
.AutoFilter 1, "12X3456"
On Error Resume Next
.Offset(1).EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
Sheet3.Select

End Sub


I gave only 2 examples but the actual criteria should work for 100+ product codes so something like A1:A200 in sheet2 can work or A:A like I wrote above.

Thank you in advance!

[jindon]

Give a header in Sheet1!A1 like ID or any.

Please Login or Register  to view this content.

[steiny88]

I tried the code but I probably should have given the whole table to the right as there are empty cells and probably this is what is confusing the code.

I have attached the rest of the columns as an example in my worksheet. When I used the code, it got me only Row 1 from sheet1.

Thank you!

[jindon]

Please Login or Register  to view this content.

[steiny88]

Thank you very much that works perfectly!!!!!
)))))