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

1 reply

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