Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying and Pasting | Excel Discussion (Misc queries) | |||
Copying and Pasting | Excel Discussion (Misc queries) | |||
Copying and Pasting | Excel Discussion (Misc queries) | |||
Copying and Pasting | Excel Discussion (Misc queries) | |||
help...too much copying and pasting | Excel Programming |