Howdy,

First of all, I did search topics and attempt a solution listed before
posting, so I feel slightly vindicated, if not accomplished.

Within a macro, I'm comparing the values from 2 sheets. Among other things,
when equivalency is found, I'd lik to copy the entire row of the active cells
(all within the same row) to a third sheet.

I tried the following:

Worksheets("Third").Cells(Row variable, 1).EntireRow = Cells(Row
variable2,1).EntireRow.Copy

That didn't work, so I came here and searched for a solution that led me to
try:

Cells(Row variable2,1).EntireRow.Copy Destination :=
Worksheets("Third").EntireRow

Oddly enough, all I got from that attempt was, seemingly, the boolean result
of the equivalency test, as all cells in the destination row were filled with
"TRUE", but I've no real clue how that result was generated.

Any help would be greatly appreciated. Thanks a bunch.

Paul

pvdalen,

Try something like this:


Cells(Row variable2,1).EntireRow.Copy Destination :=
Worksheets("Third").Range("A5")

Hope this gets you in the right direction.

Charle

--
Charle
-----------------------------------------------------------------------
Charles's Profile: http://www.excelforum.com/member.php...nfo&userid=601
View this thread: http://www.excelforum.com/showthread.php?threadid=27261

Try this:
Cells(SourceRow, 1).EntireRow.Copy
Worksheets("Third").Cells(DestRow, 1).PasteSpecial xlPasteFormulas,
xlPasteSpecialOperationNone
If the result is not exactly what you intended, try changing xlPasteFormulas
to xlPasteValues or any of the other possible settings. You may want to
experiment a bit to see how each works.

HTH
Chris


"pvdalen" wrote in message
...
Howdy,

First of all, I did search topics and attempt a solution listed before
posting, so I feel slightly vindicated, if not accomplished.

Within a macro, I'm comparing the values from 2 sheets. Among other
things,
when equivalency is found, I'd lik to copy the entire row of the active
cells
(all within the same row) to a third sheet.

I tried the following:

Worksheets("Third").Cells(Row variable, 1).EntireRow = Cells(Row
variable2,1).EntireRow.Copy

That didn't work, so I came here and searched for a solution that led me
to
try:

Cells(Row variable2,1).EntireRow.Copy Destination :=
Worksheets("Third").EntireRow

Oddly enough, all I got from that attempt was, seemingly, the boolean
result
of the equivalency test, as all cells in the destination row were filled
with
"TRUE", but I've no real clue how that result was generated.

Any help would be greatly appreciated. Thanks a bunch.

Paul