Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-time error '1004': PasteSpecial method of Range class failed
Hello all,
I get this error (subject line) when I run the following code: Sub PasteValuesTranspose() Dim plngScrollRow As Long Dim pintScrollColumn As Integer Dim pclcCalc As XlCalculation pclcCalc = Application.Calculation Application.Calculation = xlCalculationManual plngScrollRow = Application.ActiveWindow.ScrollRow pintScrollColumn = Application.ActiveWindow.ScrollColumn '*** The Error occurs on the following line *** Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.ActiveWindow.ScrollRow = plngScrollRow Application.ActiveWindow.ScrollColumn = pintScrollColumn Application.Calculation = pclcCalc End Sub BUT I don't get the error when I run the following (notice the commented-out lines): Sub PasteValuesTranspose() Dim plngScrollRow As Long Dim pintScrollColumn As Integer Dim pclcCalc As XlCalculation ' pclcCalc = Application.Calculation ' Application.Calculation = xlCalculationManual plngScrollRow = Application.ActiveWindow.ScrollRow pintScrollColumn = Application.ActiveWindow.ScrollColumn Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.ActiveWindow.ScrollRow = plngScrollRow Application.ActiveWindow.ScrollColumn = pintScrollColumn ' Application.Calculation = pclcCalc End Sub Can anyone explain to me what is going on here? Thanks for any help anyone can provide, Conan Kelly --------------------------- "Smokin' weed kills your brain cells. Drinkin' only screws up your liver...ya got 2 a those." - Earl Hickey (NBC's "My Name is Earl") |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run-time error '1004': PasteSpecial method of Range class failed
What are you trying to paste? If there is nothing on the clip board then it
will probably generate the error message. "Conan Kelly" wrote: Hello all, I get this error (subject line) when I run the following code: Sub PasteValuesTranspose() Dim plngScrollRow As Long Dim pintScrollColumn As Integer Dim pclcCalc As XlCalculation pclcCalc = Application.Calculation Application.Calculation = xlCalculationManual plngScrollRow = Application.ActiveWindow.ScrollRow pintScrollColumn = Application.ActiveWindow.ScrollColumn '*** The Error occurs on the following line *** Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.ActiveWindow.ScrollRow = plngScrollRow Application.ActiveWindow.ScrollColumn = pintScrollColumn Application.Calculation = pclcCalc End Sub BUT I don't get the error when I run the following (notice the commented-out lines): Sub PasteValuesTranspose() Dim plngScrollRow As Long Dim pintScrollColumn As Integer Dim pclcCalc As XlCalculation ' pclcCalc = Application.Calculation ' Application.Calculation = xlCalculationManual plngScrollRow = Application.ActiveWindow.ScrollRow pintScrollColumn = Application.ActiveWindow.ScrollColumn Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.ActiveWindow.ScrollRow = plngScrollRow Application.ActiveWindow.ScrollColumn = pintScrollColumn ' Application.Calculation = pclcCalc End Sub Can anyone explain to me what is going on here? Thanks for any help anyone can provide, Conan Kelly --------------------------- "Smokin' weed kills your brain cells. Drinkin' only screws up your liver...ya got 2 a those." - Earl Hickey (NBC's "My Name is Earl") |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run-time error '1004': AutoFill method of Range class failed | Excel Discussion (Misc queries) | |||
Run-Time error '1004' : Select method of Range class failed | Excel Discussion (Misc queries) | |||
Run-time error '1004': Select method of Range class failed | Excel Programming | |||
runtime error 1004 pastespecial method of range class failed | Excel Programming | |||
Run-time error '1004' PasteSpecial Method of Range Class Failed | Excel Programming |