Data separated by weeks-Macros welcomed and preferred

[i8ur4re]

Hi,


I have an excel sheet that has over 34,000 rows. It has the employees name, payroll date, and time card hours.


Example:

Payroll Name File Number Payroll Pay Date Timecard Hours

John Smith 0012345 07/26/2018 8.00
John Smith 0012345 07/27/2018 8.00
John Smith 0012345 08/02/2018 8.00
John Smith 0012345 08/03/2018 7.50
John Smith 0012345 08/09/2018 8.30
John Smith 0012345 08/10/2018 8.40
John Smith 0012345 08/11/2018 6.60​

This employee is one out of 200, the "Payroll Pay Date" continues to today's date. What I am trying to accomplish is this, for every work week, starting on Monday and ending on Sunday, I would like to calculate that persons hours for that specific week.


So for John Smith, he worked on 07/26/2018 and 07/27/2018, that would be his total hours for the week. His next set of hours for the week would be for 08/02/2018 and 08/03/2018.


I hope that makes sense. All in all, I am trying to break down this excel sheet to show weekly hours worked for each employee, with 34,000 rows.

 

[i8ur4re]

I tried changing it, it gave me a run-time error 13: Type Mismatch and a yellow line pointing to what i changed which was the 4 to 2. Here is a better link, my organization wont let me share to external users.

https://www.dropbox.com/s/rq60tovusyf9co9/Copy of 2018 Hours Per Day-Script.xls?dl=0

 

[MickG]

Your link does not work !!!

Also you are changing the wrong bit in the "WNum" line!!!
Change the whole line in the code for the one below

Wnum = Application.WeekNum(CDate(Ray(n, 4)), 2)

 

[i8ur4re]

Your link does not work !!!

Also you are changing the wrong bit in the "WNum" line!!!
Change the whole line in the code for the one below

Wnum = Application.WeekNum(CDate(Ray(n, 4)), 2)

Thank you, i believe that worked. I very much appreciate all that you did for me.

 

[MickG]

You're welcome