Comparing Two Excel Sheets and copying like data to third sheet

Closed
jvignesh07 Posts 1 Registration date Wednesday August 16, 2017 Status Member Last seen August 16, 2017 - Aug 16, 2017 at 11:09 AM
 Blocked Profile - Aug 16, 2017 at 04:35 PM
Hi,

In your below coding, I can copy paste the alike data from sheet 1 only, I need to copy paste both from sheet 1 and sheet 2 line by line matching

Sub RunMe()
Dim lRow, x As Long

Sheets("Sheet1").Select
lRow = Range("C1").End(xlDown).Row

For Each cell In Range("C2:C" & lRow)
x = 2
Do
If cell.Value = Sheets("Sheet2").Cells(x, "E").Value Then
cell.EntireRow.Copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
x = x + 1
Loop Until IsEmpty(Sheets("Sheet2").Cells(x, "E"))
Next

End Sub

Thanks
Related:

1 response

Blocked Profile
Aug 16, 2017 at 04:35 PM
OK, I will bite.....is there a question here?
0