Copy a complete row
you can five this a try, but i would qualify the ranges with the sheet names
cell.EntireRow.Copy
Range("A" & lastrow).PasteSpecial xlPasteAll
--
Gary Keramidas
Excel 2003
"Fred Smith" wrote in message
...
I have the following code segment:
Set WorkRange = ...
For Each cell in WorkRange
Taxrow = application.match(cell.value, range("A:A"), 0)
if iserror(taxrow) and cell.offset(0,9) < "Inactive" then
Now I want to copy the entire row that "cell" is on to the active worksheet
row "LastRow".
Is there one or two lines of code that would do this?
Thanks,
Fred
|