Selection.Paste Please tell me whst is the error in this code and how it can be corrected.

[vroom547]

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q



Range("F11:F36").Select

ActiveWindow.SmallScroll Down:=12

Range("F11:F36,F40:F48").Select

Range("F48").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F52:F53,F57:F61").Select

Range("F61").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F53:F57,F57:F61,F65:F66").Select

Range("F66").Activate

Selection.Copy

Windows("T-4 (2024 25) Qualification Spreadsheet").Activate

Sheets("Participants Data").Select

Range("A100000").End(xlUp).Select

ActiveCell.Offset(1, 0).Range("A2").Select

Selection.Paste Special Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=True

End Sub

 

[vroom547]

Hi Fluff, I did that and found step where the error is there

Is that workbook open?
If so try using

 Workbooks("T-4 (2024 25) Qualification Spreadsheet.xlsx").Activate

change the file extension to suit.

do you think Selection.Copy could create an error ?

 

[vroom547]

[/CODE][/CODE]i did the changes, but still same error

Workbooks("T-4 (2024 25) Qualification Spreadsheet.xlsx").Activate

i think its

Selection.Copy

 

[Fluff]

Is that workbook open?
Also is it an xlsx file?

 

[vroom547]

Is that workbook open?
Also is it an xlsx file?

sorry, i have convert it into macro-enabled workbook so its .xlsm

 

[Fluff]

In that case change that line of code from xlsx to xlsm.

 

[vroom547]

In that case change that line of code from xlsx to xlsm.

i did that still same issue do you think there could be an issue with

 Selection.Copy

 

[Fluff]

Do you still get the same error on the same line?

 

[vroom547]

its on

Selection.Copy

do you think this statement is not able to process the copy task due to some reason

 

[Fluff]

Can you please post the entire code that you are currently using?

 

[vroom547]

sure, this is the code

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

Range("F11:F36").Select

ActiveWindow.SmallScroll Down:=12

Range("F11:F36,F40:F48").Select

Range("F48").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F52:F53,F57:F61").Select

Range("F61").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F53:F57,F57:F61,F65:F66").Select

Range("F66").Activate

Selection.Copy

Windows("T-4 (2024 25) Qualification Spreadsheet.xlsm").Activate

Sheets("Participants Data").Select

Range("A100000").End(xlUp).Select

ActiveCell.Offset(1, 0).Range("A2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End Sub