FreedomSniper206
New Member
- Joined
- Jun 3, 2017
- Messages
- 7
I just want to copy from one workbook to another but I always get errors ranging from Application defined or Object defined errors to compile errors to the paste area must be the same size as the copy area, I didn't realize how hard copying and pasting something would be. This is my code so far...
Public Sub CommandButton5_Click()
Dim x As Workbook
Dim y As Workbook
Set x = Workbooks("LexingtonBHSNotesCURRENT")
Set y = Workbooks.Open("C:\Users\Brian Kociszewski\OneDrive\ProviderSummaries")
x.Activate
x.Sheets("Skills").Range("N1").MergeArea.Copy
DoEvents
y.Activate
y.Worksheets("False").Range("A2").End(xlToRight).Offset(0, 1).PasteSpecial
End Sub
Any help would be great, Thank you
Public Sub CommandButton5_Click()
Dim x As Workbook
Dim y As Workbook
Set x = Workbooks("LexingtonBHSNotesCURRENT")
Set y = Workbooks.Open("C:\Users\Brian Kociszewski\OneDrive\ProviderSummaries")
x.Activate
x.Sheets("Skills").Range("N1").MergeArea.Copy
DoEvents
y.Activate
y.Worksheets("False").Range("A2").End(xlToRight).Offset(0, 1).PasteSpecial
End Sub
Any help would be great, Thank you
