Copy row from one sheet to another

[davegb]

I'm writing a macro that finds a text string in one spreadsheet
(wsExtFrom), then copies that entire row to another sheet (wsExtrTo) in
the same workbook. It copies to row lExt2Row. I can't seem to get the
syntax right.

lCopyRow = rFndCell.Row
Set rCopy = wsExtFrom.Cells(lCopyRow, lCopyRow)

rCopy.Copy Destination:=wsExtrTo.Rows(lExtr2Row)
lExtr2Row = lExtr2Row + 1

Can anyone help me fix this mess?
Thanks again!

[Tom Ogilvy]

lCopyRow = rFndCell.Row
Set rCopy = wsExtFrom.rows(lCopyRow)

rCopy.Copy Destination:=wsExtrTo.Rows(lExtr2Row)
lExtr2Row = lExtr2Row + 1

--
Regards,
Tom Ogilvy


"davegb" wrote:

> I'm writing a macro that finds a text string in one spreadsheet
> (wsExtFrom), then copies that entire row to another sheet (wsExtrTo) in
> the same workbook. It copies to row lExt2Row. I can't seem to get the
> syntax right.
>
> lCopyRow = rFndCell.Row
> Set rCopy = wsExtFrom.Cells(lCopyRow, lCopyRow)
>
> rCopy.Copy Destination:=wsExtrTo.Rows(lExtr2Row)
> lExtr2Row = lExtr2Row + 1
>
> Can anyone help me fix this mess?
> Thanks again!
>
>

[davegb]

Tom Ogilvy wrote:
> lCopyRow = rFndCell.Row
> Set rCopy = wsExtFrom.rows(lCopyRow)
>
> rCopy.Copy Destination:=wsExtrTo.Rows(lExtr2Row)
> lExtr2Row = lExtr2Row + 1
>
> --
> Regards,
> Tom Ogilvy
>

Thanks, Tom! At least I was close this time...

>
> "davegb" wrote:
>
> > I'm writing a macro that finds a text string in one spreadsheet
> > (wsExtFrom), then copies that entire row to another sheet (wsExtrTo) in
> > the same workbook. It copies to row lExt2Row. I can't seem to get the
> > syntax right.
> >
> > lCopyRow = rFndCell.Row
> > Set rCopy = wsExtFrom.Cells(lCopyRow, lCopyRow)
> >
> > rCopy.Copy Destination:=wsExtrTo.Rows(lExtr2Row)
> > lExtr2Row = lExtr2Row + 1
> >
> > Can anyone help me fix this mess?
> > Thanks again!
> >
> >