Macro to extract data from multiple worksheets

[egulphy]

I'm in over my head here!

I have a spreadsheet containing a factory's operational data, with each machine in the factory being represented by its own worksheet.
The sheets all have the same structure, with each line of data representing a shift (we have 12-hour continental shifts, so column A of all the pages has the date in an standard format, and column B has either "d" or "n", representing the shift). Various datat is documented on each machine on a shift-per-shift basis.

What I need to do is figure out how to do a macro that extracts all of the lines on all of the machines' worksheets that pertain to a particular shift (for instance, all of the lines where column A read "14-Mar" and column B read "d"), and export the values of the entire row to another worksheet, creating a shift summary on one page.

To do this, I would like to make the date and shift user-definable variables that appear at the top of what would become the summary sheet, and have a button that activated such a macro at the top of the page as well.

 

[umaido]

Hi,

I would like to have a question about your post. What happen to the IF statement if the dates in cell B1 and F1 of Sheet DAILY in a diffent workbook( ex. BOOK1) How can we call the two dates?

I mean how can you change the two line of code: (b/c the sheet is in another workbook: BOOK2)
----
IF Wksht.Range("B"&r) = Sheets("DAILY").Range("B1").Value _
And Wksht.Range("B &r) = Sheets("DAILY").Range("F1").Value Then
----

Thank you very much

 

[JAMhome]

Hi

I have a workbook with many worksheets. The individual worksheets are time sheets. When needed a macro executes a blank sheet, the user fills it in, and so on. These worksheet tabs are TS1, TS2, TS3, etc. There is another sheet that the user needs to fill-in on occasion. When needed a macro executes a blank sheet, the user fills it in, and so on. These worksheet tabs are CTS1, CTS2, etc. I need a summary sheet bringing in all the worksheet tabs named TS1, etc. and CTS1, etc. I have looked at a lot of code but can’t find anything that quite matches my request. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
On the TS1 worksheet’s the following cells are needed:<o></o>
C6=Name/Location
C7=Date<o></o>
C11=Hourly Rate<o></o>
E11=Hours Worked<o></o>
G11=Shift Total<o></o>
On the CTS worksheets the following cells are needed:<o></o>
C2=Date<o></o>
D4=Name/Location<o></o>
F33=Hours Worked<o></o>
G33=Hourly Rate<o></o>
H33=Shift Total<o></o>
On the summary sheet I would need these column headings.
<o>Very much a newbie. </o>
<o>Jam</o>

 

[passthekimchi]

Hi,

I am a newbie with VBA.

I am trying to use a macro to do something similar to the code phantom1975 posted, however I would like to modify it to look for the absolute value in each tab of a workbook that exceeds 5%. Similar to the original code, I would like for the macro to list out all instances in the 'List' tab.

The purpose of the macro is to aid in identifying instances that exceed 5% for financial analysis. Would you know how to modify the syntax to accomplish this?

Thank You!