Subscript Out of Range

[Csmiley323]

I am not sure what Im missing in this code but Im stumped. I need to take column values from one sheet and place them in different columns in another sheet. I have both files open and the sheet names are set as "Sheet1" but I keep getting a SubScript out of Range error. Any help or suggestions are appreciated. Thanks


'PG Description to TW Description Task and Title

Workbooks("PG.xlsm").Worksheets("Sheet1").Range("D2:D50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("B2:B50")

Workbooks("PG.xlsm").Worksheets("Sheet1").Range("D2:D50").Copy
Workbooks("TW.xlsm").Worksheets("Sheet1").Range ("C2:C50")


'PG Start Date to TW Start Date

Workbooks("PG.xlsx").Worksheets("Sheet1").Range("E2:E50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("O2:O50")



'PG Due Date to TW Due Date

Workbooks("PG.xlsx").Worksheets("Sheet1").Range("P2:P50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("F2:F50")


'PG Status to TW Status

Workbooks("PG.xlsx").Worksheets("Sheet1").Range("F2:F50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("J2:J50")

 

[Fluff]

Hi & welcome to MrExcel.
Which line is highlighted when you click debug?
Also these two lines should be one line of code

Workbooks("PG.xlsm").Worksheets("Sheet1").Range("D2:D50").Copy
        Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("B2:B50")

 

[Csmiley323]

Actual Code from Editor




Private Sub CommandButton1_Click()

'PG Description to TW Description Task and Title

Workbooks("PG.xlsm").Worksheets("Sheet1").Range("D2:D50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("B2:B50")

Workbooks("PG.xlsm").Worksheets("Sheet1").Range("D2:D50").Copy
Workbooks("TW.xlsm").Worksheets("Sheet1").Range ("C2:C50")


'PG Start Date to TW Start Date

Workbooks("PG.xlsx").Worksheets("Sheet1").Range("E2:E50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("O2:O50")



'PG Due Date to TW Due Date

Workbooks("PG.xlsx").Worksheets("Sheet1").Range("P2:P50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("F2:F50")


'PG Status to TW Status

Workbooks("PG.xlsx").Worksheets("Sheet1").Range("F2:F50").Copy
Workbooks("TW.xlsx").Worksheets("Sheet1").Range ("J2:J50")

 

[Csmiley323]

Workbooks("TW.xlsm").Worksheets("Sheet1").Range ("B2")

 

[Fluff]

That line of code doesn't even appear in the code you've posted, but change the extension to xlsx

 

[Csmiley323]

Sorry its Workbooks("TW.xlsm").Worksheets("Sheet1").Range ("B2:50")

 

[shg]

Sub cs()
  Dim wksFr         As Worksheet
  Dim wksTo         As Worksheet  '

  Set wksFr = Workbooks("PG.xlsm").Worksheets("Sheet1")
  Set wksTo = Workbooks("TW.xlsx").Worksheets("Sheet1")

  With wksFr
    .Range("D2:D50").Copy wksTo.Range("B2")
    .Range("D2:D50").Copy wksTo.Range("C2")
    '...
  End With
End Sub

 

[Csmiley323]

Works great. Thanks