Need Help with Macro Please

[excel_love]

Hi,
I am developing a labor tracking spreadsheet for my employer. The labor needs to be tracked for each product and for every employee by day.

I created a spreadsheet, where I have a maximum of 31 Spread sheets titled "Day 1, Day 2 ....Day 31".

The values on every spreadsheet are located in the same place.

The end report needs to show values in the below format

Product # Department Hours



There are 14 departments and as many as 40 products that might have to be tracked on a daily basis.


On each sheet at the bottom I have summarized each department's labor hours for each Product #

The Product Number is listed in Cells (E315, H315, K315, N315.....GO315)

The department numbers are listed from (E316:E328, H316:H328, K316:K328, N316:N328.....GO316:GO328)

The labor hours for the respective departments are listed from (G316:G328, J316:J328, M316:M328, P316:P328 .....GQ316:GQ328)

Depending on production employees can be working on the same product number for days.

I tried to do the record macro and manually lookup these values, but it is time consuming.

I was wondering if any1 here can please point me in the right direction. Please let me know if you have any questions. Thank You for your help

 

[excel_love]

Bump

 

[excel_love]

can anyone please help me on this. If you can give me some direction that would be great. Thank you

 

[excel_love]

any ideas anyone?

 

[James Snyder]

Not quite sure what you need. Can you post your code as far as you have gotten? Used the

 tags to place it in the reply.

 

[excel_love]

Not quite sure what you need. Can you post your code as far as you have gotten? Used the

 tags to place it in the reply.[/QUOTE]

Thank You for your reply. What I am trying to do is, take values from multiple sheets (has multiple columns) and summarize them in one sheet. 

Here is a link of an example. Page 1 shows the summary. Page 2 shows values in one sheet for some columns, I have multiple columns of data with atleast 31 sheets. 

[URL="https://dl-web.dropbox.com/get/Sample.pdf?w=AAB_BYhNhjqZWJOPtdcbxB2NBc5DK1cC5N1dZ6T53GaWRQ"]https://docs.google.com/file/d/0ByX_w6RQLcVlU0tjZkZfVGxoblE/edit?usp=sharing[/URL]

Any help on this would be great. I am new to this so I am still learning. Thank You again

 

[James Snyder]

[h=1]Error (403)[/h]It seems you don't belong here! You should probably sign in. Check out our Help Center and forums for help, or head back to home.

 

[excel_love]

Not quite sure what you need. Can you post your code as far as you have gotten? Used the

 tags to place it in the reply.[/QUOTE]


This is a code that I initially started to work with

[COLOR=#333333]Sub Summary()[/COLOR]
[COLOR=#333333]Dim WkSht As Worksheet[/COLOR]
[COLOR=#333333]Dim r As Integer[/COLOR]
[COLOR=#333333]For Each WkSht In ThisWorkbook.Worksheets[/COLOR]
[COLOR=#333333]If WkSht.Name <> "DAILY" Then[/COLOR]
[COLOR=#333333]For r = 1 To 1000[/COLOR]
[COLOR=#333333]'This will check the first 1000 rows of each sheet[/COLOR]
[COLOR=#333333]If WkSht.Range("A" & r).Value = Sheets("DAILY").Range("B1").Value _[/COLOR]
[COLOR=#333333]And WkSht.Range("B" & r).Value = Sheets("DAILY").Range("F1").Value Then[/COLOR]
[COLOR=#333333]WkSht.Rows(r & ":" & r).Copy[/COLOR]
[COLOR=#333333]Sheets("DAILY").Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues[/COLOR]
[COLOR=#333333]Sheets("DAILY").Range("B" & Sheets("DAILY").Range("A65536").End(xlUp).Row).Value = WkSht.Name[/COLOR]
[COLOR=#333333]'Puts the machine name in column B[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]Next r[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]Next WkSht[/COLOR]
[COLOR=#333333]End Sub

Got the above code from a post in this forum. But I am unable to change it successfully to fit my needs

Here is detail info

Cells B542, E542, H542, K542, N542 .....GL542 have info on the Product Number

***Cells: (B544:B557), (E544:E557), (H544:H557), (K544:K557), (N544:557) ..... (GL544:GL557) have the department numbers listed.

Cells : (D544:D557), (G544:G557), (J544:J557), (M544:M557).....(GN544:GN557) has the total time for each of the departments as specified in ***

Each sheet begins with "Day"

So will have to take this info from each sheet Day 1 to Day 31 and summarize them in one sheet. 

My previous should show a link to the sample summary. Thank You[/COLOR]

 

[excel_love]

Error (403)

It seems you don't belong here! You should probably sign in. Check out our Help Center and forums for help, or head back to home.

If you copy the link and paste it in the address bar of a browser it should take you to the correct file. Not sure why it keeps re-routing to my first post. Sorry about that.

Here is the link

https://docs.google.com/file/d/0ByX_w6RQLcVlU0tjZkZfVGxoblE/edit?usp=sharing

 

[excel_love]

bump