Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Debugs with Copy / Paste
I have the following code that Debug on the "ActiveSheet Paste" that is in large font below and I can't figure it out. The Debug message is "Paste Method of Worksheet Class failed"
Sub Generate_Reports() Sheets("Figures").Select Cells.Select Selection.Copy Range("A1").Select Sheets("E-Figures").Visible = True Sheets("E-Figures").Select Range("A1").Select ActiveSheet.Unprotect Password:="pass" ActiveSheet.Paste Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False Sheets("Altered").Select Cells.Select Selection.Copy Range("A1").Select Sheets("E-Altered").Visible = True Sheets("E-Altered").Select Range("A1").Select ActiveSheet.Unprotect Password:="pass" ActiveSheet.Paste Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False Sheets("Home").Select Range("A1").Select Mail_Reports End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Debugs with Copy / Paste
Whenever you try to paste, if it does not say "Select destination and press
ENTER or choose paste" in Excel's lower left corner, you know that the clipboard has been cleared. (You can check this when you hit Debug). So there is nothing to paste. The actions of unhiding a worksheet or unprotecting it have done this. So do them before you do the Copy. -- Jim "John" wrote in message ... I have the following code that Debug on the "ActiveSheet Paste" that is in large font below and I can't figure it out. The Debug message is "Paste Method of Worksheet Class failed" Sub Generate_Reports() Sheets("Figures").Select Cells.Select Selection.Copy Range("A1").Select Sheets("E-Figures").Visible = True Sheets("E-Figures").Select Range("A1").Select ActiveSheet.Unprotect Password:="pass" ActiveSheet.Paste Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False Sheets("Altered").Select Cells.Select Selection.Copy Range("A1").Select Sheets("E-Altered").Visible = True Sheets("E-Altered").Select Range("A1").Select ActiveSheet.Unprotect Password:="pass" ActiveSheet.Paste Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False Sheets("Home").Select Range("A1").Select Mail_Reports End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Copy and Paste or Paste Special between Excel Workbooks | Excel Discussion (Misc queries) | |||
Copy, paste without file name referenced after paste | Excel Discussion (Misc queries) | |||
Excel cut/Paste Problem: Year changes after data is copy and paste | Excel Discussion (Misc queries) | |||
Copy and Paste macro needs to paste to a changing cell reference | Excel Programming | |||
Macro to Copy/Paste then Paste to Next Line | Excel Programming |