Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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 | |
|
|
![]() |
||||
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 |