I need help creating VBA code

[Legacy 420921]

Workbook 1 is called NFL GRID SCHEDULE


worksheet BUFFALO BILLS o


Copy range B1:C17


Open workbook 2 NFL SCHEDULES


If worksheet hide want it visible worksheet is called SETUP SCHEDULES


autofit column B



https://1drv.ms/x/s!AnJwxxiz0Ezpg8dbejTUGrxdz-U3aw?e=Fo08Sl

https://1drv.ms/x/s!AnJwxxiz0Ezpg8dcChHxcHes3xmYtQ?e=oSBsPh

Thomas

 

[Legacy 420921]

​ not sure how I edit my original post. fixing I wanted.

Workbook 1 is called NFL GRID SCHEDULE


worksheet BUFFALO BILLS


Copy range B1:C17


Open workbook 2 called NFL SCHEDULES


If worksheet hide want it visible worksheet is called SETUP SCHEDULES paste value in column A & B

autofit column B

Only do Buffalo Billls worksheet on NFL grid schedule a button on that worksheet.

Thanks you

Thomas

 

[DanteAmor]

Put the following code on a button in your "NFL GRID SCHEDULE" book.
The "NFL SCHEDULES" book must be in the same folder.


Press the button.
- The macro opens the "NFL SCHEDULES" book
- Copy the range from "NFL GRID SCHEDULE"
- Paste the range into "NFL SCHEDULES"
- Save the "NFL SCHEDULES" book and close it.

Sub Copy_Schedule()
    Dim w1 As Workbook, w2 As Workbook
    Dim s1 As Worksheet, s2 As Worksheet
    
    Application.ScreenUpdating = False
    Set w1 = ThisWorkbook
    Set s1 = w1.Sheets("BUFFALO BILLS")
    Set w2 = Workbooks.Open(w1.Path & "\" & "NFL SCHEDULES.xlsx")
    Set s2 = w2.Sheets("SETUP SCHEDULES")
    
    s1.Range("B1:C17").Copy
    s2.Range("A" & s2.Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues
    w2.Save
    w2.Close False
    MsgBox "Copied range"
End Sub

 

[Legacy 420921]

The code did not work on my end. my files on desktop


Thanks you

Thomas

 

[DanteAmor]

The code did not work on my end. my files on desktop


Thanks you

Thomas

Does it send you an error message?
Did you put the 2 files in the same folder?
File names and sheet names should be as you put them in your description.

Book1, It must contain the macro
Sheet: BUFFALO BILLS

Book2
NFL SCHEDULES.xlsx
Sheet: SETUP SCHEDULES

Ensure that the names of the sheets and book are correct. Try again.