Search, Copy, Add, Repeat Macro

dmanning11

New Member
Joined
Apr 6, 2011
Messages
2
Hi everyone, would appreciate all the help you can give to create this macro, its doing my head in.

Essentially, I have Multiple data Sheets and a summary Sheet:
"Staff 1 Sheet" = data to be copied
"Staff 2 Sheet" = data to be copied
"Staff 3 Sheet" = data to be copied
"Staff 4 Sheet" = data to be copied
and so on
"Summary Sheet" = destination of copied data.

Below is a sample of the data in "Staff 1 Sheet"
workDate startTime endTime actualWorkDescription timeSpent
4-Jan-11 7:10 13:50 Customer Service Work 4:20
4-Jan-11 7:30 13:50 Translation 2:00
6-Jan-11 7:30 13:50 Customer Service Work 4:00
6-Jan-11 7:30 13:50 Translation 2:00
10-Jan-11 7:40 14:00 Customer Service Work 2:00
10-Jan-11 7:40 14:00 Translation 4:00
13-Jan-11 7:35 13:55 Marketing 6:00



Below is a sample of the data in "Summary Sheet" (as if "Staff 1 Sheet" data were entered)

Date Customer Service Work Translation Other Marketing
1-Jan-11 0:00 0:00 0:00 0:00
2-Jan-11 0:00 0:00 0:00 0:00
3-Jan-11 0:00 0:00 0:00 0:00
4-Jan-11 4:20 2:00 0:00 0:00
5-Jan-11 0:00 0:00 0:00 0:00
6-Jan-11 4:00 2:00 0:00 0:00
7-Jan-11 0:00 0:00 0:00 0:00
8-Jan-11 0:00 0:00 0:00 0:00
9-Jan-11 0:00 0:00 0:00 0:00
10-Jan-11 2:00 0:00 0:00 0:00
11-Jan-11 2:00 0:00 0:00 0:00
12-Jan-11 2:00 0:00 0:00 0:00
13-Jan-11 2:00 0:00 0:00 6:00



Now, an explanation of the data:

Each staff member has their own worksheet with a column for date worked, how long the worked for and what they worked on plus some extra garbage.

I need to be able to add all data from all staff into a day by day summary sheet.


So, here's what i'ld like the macro to do:
1) check the date in the summary sheet, find this date in the Staff sheet and ADD the hours worked to the equivelent column in the summary sheet. Then repeat for every date and every worksheet untill the summary sheet contains the total sum of hours worked by all staff on each day of the year dependant on the type of work they are doing.

eg. "Summary Sheet" A7 = "6-Jan-11" find in "Staff 1 Sheet" else add 0:00
 

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.

Forum statistics

Threads
1,224,587
Messages
6,179,738
Members
452,940
Latest member
Lawrenceiow

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top