Combining 12 tabs, each representing a month of the year, into a YTD worksheet.

[pbayer14]

Hello!

I need help combining 12 separate worksheets, each representing a month of the year, into one aggregate worksheet. The spreadsheet is used by my organizations employees to fill out their hours worked, the day of work, location of work, and type of work for the corresponding month. The worksheet is organized as follows:

• Column A: Enter in date of work (there can be multiple entries of the same day if the employee works at differet locations or does different categories of work on the same day)
• Column B: Enter in location of work
• Column C: Enter in Hours worked
• Column D: Enter in category of work

I am hoping to add a worksheet that combines this information from each of the monthly tab into one YTD value. Is there an easy way to do this besides copying and pasting?

Thanks!

 

[vw412]

Easy to do with VBA. Lots of solutions here for combining worksheets to one summary sheet.

Would need a representative workbook to develop a specific solution for you. Maybe upload to Dropbox.

 

[pbayer14]

Awesome! I’m happy to hear there is a solution.

How would you suggest I upload to your Dropbox? Sorry this is the first time i have used this site.

Thanks!

 

[vw412]

the dropbox site should show you how to sign up (free for minimal space) and how to upload a file. You will then need to post a link here so we can get to it.

 

[My Aswer Is This]

Try this:
Create a sheet named "Master" and have that as sheet 1 on your workbook
This script will copy all rows on each sheet into a sheet named "Master"
This script looks down column A of each sheet and copies all those rows with data into the sheet named Master:

Sub Copy_All_Sheets_Into_Master()
'Modified 11/4/2022  8:56:21 PM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
Lastrow = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 2 To Sheets.Count
    Lastrow = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Lastrowa = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row
    Sheets(i).Rows(1).Resize(Lastrowa).Copy Sheets("Master").Rows(Lastrow)
Next
Application.ScreenUpdating = True
End Sub

 

[pbayer14]

the dropbox site should show you how to sign up (free for minimal space) and how to upload a file. You will then need to post a link here so we can get to it.

Please see attached link: Time Sheet.xlsx