copy data from workbook1 to workbook2

[pwill]

Hi can anyone help with a line of code to copy data from

workbook1 sheet1 range ("A:AS") to
workbook2 sheet1 range ("A:AS")

Regards

pwill

 

[JLGWhiz]

Sub t()
Workbooks(1).Range("A:AS").Copy Workbooks(2).Range("A1")
End Sub

Workbooks(1) Will be the workbook opened first and workbooks(2) will be the workbook opened next. If you have more than two workbooks opened you should be sure that the 1 and 2 refer to the correct workbooks, or close all but the two you want to work with.

 

[My Aswer Is This]

Since you gave us no complete Workbook names with extensions.
Modify this script to meet your needs.
This is assuming both Workbooks are open.

Sub Copy_Data()
Application.ScreenUpdating = False
Workbooks("Book1").Sheets(1).Range("A:AS").Copy Workbooks("Book2").Sheets(1).Range("A:AS")
Application.ScreenUpdating = True
End Sub

 

[pwill]

Thanks JLGWhiz, I will give this a try and let you know how I get on.

Regards

pwill

 

[pwill]

Since you gave us no complete Workbook names with extensions.
Modify this script to meet your needs.
This is assuming both Workbooks are open.

Sub Copy_Data()
Application.ScreenUpdating = False
Workbooks("Book1").Sheets(1).Range("A:AS").Copy Workbooks("Book2").Sheets(1).Range("A:AS")
Application.ScreenUpdating = True
End Sub

Thanks My Aswer Is This, I will give this a try tonight and let you know how I get on.

Regards

pwill

 

[pwill]

Hi JLGWhiz,

I am getting an error 'subscript out of range' when I try and run the code? would you know why?

Sub CopyData()

Application.ScreenUpdating = False
Workbooks("Update.xlsm").Sheets(Sheet1).Range("A:AS").Copy Workbooks("Final.xlsm").Sheets(Sheet1).Range("A:AS")
Application.ScreenUpdating = True

End Sub

regards

pwill

 

[pwill]

Since you gave us no complete Workbook names with extensions.
Modify this script to meet your needs.
This is assuming both Workbooks are open.

Sub Copy_Data()
Application.ScreenUpdating = False
Workbooks("Book1").Sheets(1).Range("A:AS").Copy Workbooks("Book2").Sheets(1).Range("A:AS")
Application.ScreenUpdating = True
End Sub

Hi My Aswer Is This

I am getting an error 'subscript out of range' when I try and run the code? would you know why?

Sub CopyData()

Application.ScreenUpdating = False
Workbooks("Update.xlsm").Sheets(Sheet1).Range("A:AS").Copy Workbooks("Final.xlsm").Sheets(Sheet1).Range("A:AS")
Application.ScreenUpdating = True

End Sub

regards

pwill

 

[My Aswer Is This]

Are you asking questions about my script or the other post you showed here?

And my script worked for me but you must see I used generic terms since you did not give specific workbook names.

Did you try my script?

 

[JLGWhiz]

Are you asking questions about my script or the other post you showed here?

And my script worked for me but you must see I used generic terms since you did not give specific workbook names.

Did you try my script?

@My Aswer Is This, it looks to me like it is your script with the actual workbook names substituted. @pwill, You need quote marks around your sheet names to make them string values.

 

[My Aswer Is This]

If your going to use this script it needed sheet names in quotes like show below:

Sub CopyData()
'Modified 1-26-18 8:15 PM EST
Application.ScreenUpdating = False
Workbooks("Update.xlsm").Sheets("Sheet1").Range("A:AS").Copy Workbooks("Final.xlsm").Sheets("Sheet1").Range("A:AS")
Application.ScreenUpdating = True
End Sub