C
Conan Kelly
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
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