PDA

View Full Version : Solved: paste to offset cell not working



CatDaddy
06-14-2011, 04:17 PM
trying to paste alternating rows from two different sheets to a new sheet called SheetName:


For i = 5 To 22

copyRow = i & ":" & i

Sheets("Tempe").Select
Rows(copyRow).Select
Application.CutCopyMode = False
Selection.Copy

Sheets(SheetName).Activate

With ActiveSheet
ActiveCell.Offset(1, 0).Select
Selection.Paste
End With

copyRow = (i + 3) & ":" & (i + 3)

Sheets("Atlanta").Select
Rows(copyRow).Select
Application.CutCopyMode = False
Selection.Copy

Sheets(SheetName).Activate
With ActiveSheet
ActiveCell.Offset(1, 0).Select
Selection.Paste
End With

Next i


getting object doesnt support method on the selection.paste line :/

CatDaddy
06-14-2011, 05:12 PM
does not need "With ActiveSheet", just:


ActiveCell.Offset(1,0).Select
ActiveSheet.Paste