Copying & Pasting
 

Hi Guys,

I posted this yesterday and it worked the great the first
time i tried it, but since then an error stops it at the
second paste operation ?. Does anybody know why this is
happening ?


Private Sub CommandButton6_Click()
ActiveSheet.Cells.Copy
Sheets("Cashflow Chart Sheet").Select
With ActiveSheet
.Range("A1").PasteSpecial Paste:=xlAll,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveSheet
ActiveSheet.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Range("A2:I7").Clear
.Range("A29:I29").ClearContents
.Range("D13").ClearContents
.Range("A1").Select
End With
End With
End Sub

Copying & Pasting
 

Michael,

Your code "works" for me (Excel 2002), that is it doesn't crasch.

However, I don't understand what you are trying to do; here's what happens:

* all cells on the active sheet are copied
* sheet 'Cashflow Chart Sheet' is selected and overwritten with the copied data
* all cells on sheet 'Cashflow Chart Sheet' (that were just pasted) are copied
and pasted back into the same location (??)
* some rows are cleared

Also note that there are two nested With ActiveSheet blocks, operating on the
same sheet, which has no point.

Regards
Anders Silvén

"Michael" skrev i meddelandet
...
Hi Guys,

I posted this yesterday and it worked the great the first
time i tried it, but since then an error stops it at the
second paste operation ?. Does anybody know why this is
happening ?


Private Sub CommandButton6_Click()
ActiveSheet.Cells.Copy
Sheets("Cashflow Chart Sheet").Select
With ActiveSheet
.Range("A1").PasteSpecial Paste:=xlAll,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveSheet
ActiveSheet.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Range("A2:I7").Clear
.Range("A29:I29").ClearContents
.Range("D13").ClearContents
.Range("A1").Select
End With
End With
End Sub