Copy Row of Highlighted Cell

I've been comparing 2 sheets and then highlight differences, what I want to do is, how do I copy the entire row that there is a highlighted cell to another sheet?
Can you help me work this out?
Thank you

Here's my code on comparing

Sub compareSheets(shtSheet1 As String, shtSheet2 As String)
Dim mycell As Range


'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet2).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet1).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.Color = vbYellow

End If
Next

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet1).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet2).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.Color = vbYellow

End If
Next

ActiveWorkbook.Sheets(shtSheet2).Select


End Sub

Originally Posted by sintek

I would think adding some code after your highlight code...i.e.

Dim nRow as Long
nRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1'Sheet2 the name of sheet you want to copy to
mycell.EntireRow.Copy Sheet2.Range("A" & nRow).PasteSpecial xlPasteValues

It says invalid qualifier even though I changed it to shtSheet2 which is my Sheet2.

Maybe:

Sub asilocyra()
Dim mycell As Range


'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet2).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet1).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet1).Cells(mycell.row, 1)

End If
Next

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet1).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet2).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet2).Cells(mycell.row, 1)
End If
Next

ActiveWorkbook.Sheets(shtSheet2).Select
End Sub

Working on it. just wondering how to paste that copy code

Originally Posted by JOHN H. DAVIS

Maybe:

Sub asilocyra()
Dim mycell As Range


'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet2).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet1).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet1).Cells(mycell.row, 1)

End If
Next

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet1).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet2).Cells(mycell.row, mycell.Column).Value Then

mycell.Interior.color = vbYellow
Rows(mycell.row).Copy Sheets(shtSheet2).Cells(mycell.row, 1)
End If
Next

ActiveWorkbook.Sheets(shtSheet2).Select
End Sub

Thank you for the suggestion, but for some reason it doesn't work.

Originally Posted by sintek

Please upload a sample workbook so that we can see your exact scenario....

Here's my sample.
https://drive.google.com/open?id=0B4...0VjWXQzTmN6ZVE

Originally Posted by sintek

i noticed that there are occurrences of more than one highlighted cell in a row, so i am guessing that you want that row copied over only one...give this a try...

sub comparesheets(shtsheet1 as string, shtsheet2 as string, shtsheet3 as string)
dim mycell as range
dim lastline as long, rownum as long
dim nrow as long
nrow = sheets(shtsheet3).cells(rows.count, "a").end(xlup).row + 1
with sheets(shtsheet1)
    .activate
    for each mycell in .usedrange
        if not mycell.value = sheets(shtsheet2) _
            .cells(mycell.row, mycell.column).value then
            mycell.interior.color = vbyellow
            if mycell.row = rownum then goto nxt1:
                Rownum = mycell.row
                rows(mycell.row).copy sheets(shtsheet3).cells(nrow, 1)
                nrow = nrow + 1
            end if
nxt1:
    Next
end with

with sheets(shtsheet2)
    .activate
    for each mycell in .usedrange
        if not mycell.value = sheets(shtsheet1) _
            .cells(mycell.row, mycell.column).value then
            mycell.interior.color = vbyellow
            if mycell.row = rownum then goto nxt2:
                Rownum = mycell.row
                rows(mycell.row).copy sheets(shtsheet3).cells(nrow, 1)
                nrow = nrow + 1
            end if
nxt2:
    Next
end with
end sub

this works perfectly from what i wanted to happen! Thank you!
already added reputation to you!

Thanks again!

Originally Posted by sintek

Glad i could help..Tx for rep +

After trying this again, I noticed that when moving the row with highlighted cell it only copies one highlighted cell.

Please see attached photo to see what I mean.

Thank you!

Originally Posted by sintek

I don't understand...What seems to be the problem...

shtSheet1 and shtSheet2 are the two sheet that we're comparing and put the highlighted row to the shtSheet
but after comparing, it seems to be that in every row there is only one highlighted cell.

I.e, shtSheet1, A3 to E3 are highlighted but when transferred to shtSheet3 it only shows ONE highlighted cell which has to be two (name and course)

Originally Posted by sintek

I don't understand...What seems to be the problem...

do you think this has to do something with pretty big datas?

Originally Posted by sintek

Can you upload a smaller sample...Not that monster 36mb file..
What happens when you change this

Rows(mycell.Row).Copy Sheets(shtSheet3).Cells(nRow, 1)

to this

Rows(mycell.Row).Copy
Sheets(shtSheet3).Cells(nRow, 1).PasteSpecial xlPasteAll

Do for both ranges...

I've already fixed it by adding this:

With Sheets(shtSheet1)
    .Activate
    For Each mycell In .UsedRange
        If Not mycell.Value = Sheets(shtSheet2) _
            .Cells(mycell.Row, mycell.Column).Value Then
            mycell.Interior.Color = vbYellow
            If mycell.Row = RowNum And mycell.Interior.Color = vbYellow Then GoTo nxt1:
                
            End If
nxt1:
    Next
End With

Thank you!