Sub getfoundurls()
Dim cel As Range, fs2 As Range
For Each cel In Sheet1.UsedRange.Columns(1).Cells
Set fs2 = Sheet2.UsedRange.Find(cel, , , xlWhole)
If Not fs2 Is Nothing Then
fs2.EntireRow.Copy Sheet3.Cells.SpecialCells(xlCellTypeLastCell).Offset(1).EntireRow
End If
Next cel
End Sub
bsharath
ASKER
Thanks
Anyway i can color sheet 1 cells whose content is not found in sheet 2 and was skipped
I get redirected here: http://beta.photobucket.com/browse?httpstatus=404
Maybe it's just a temporary issue?