I a macro here that pulls a text file and then counts the number of inputs that correspond to different levels. I nned to figure out how to make it pull a specific data range. I keeps giving me an run error.
I am wanting to change the VBA code so that it uses the date that is asks me for as a beginning date to use for the This period data. It seems to not pull the things from December into being a part of This Period but puts it as To Date.
Not sure if this is how I should post this but any help I can get would be great.
O.J.
Here is the table it is inserting into:
Department Hides Month 1/23/2006
To Date This Period To Date This Period To Date This Period
Green Yellow Red
Agitators
Blowers / Fans
Centrifuges
Compressors
Conveyors
Dryers
Chain Drives
Hammermills
Pumps
Chain Drives
Cryovacs
Grinders
Total Assets
Here is VBA code:
Rem This section displays warning message, and gets the number
Rem of days to be used as current from the user
Dim Message, Title, Default, MyValue
Message = "Make sure that the Department to be counted has had the Odyssey report ran before continuing. Please enter the beginning DATE to be included in the current totals."
Title = "Please Read"
Rem Change this next line for the default in the opening Message.
Default = Date
MyValue = InputBox(Message, Title, Default)
Rem If the user clicked on Cancel, end the macro
If MyValue = "" Then End
ThatValue = DateValue(MyValue)
Rem Open the data file into the workbook using the following path
Workbooks.OpenText FileName:= _
"C:\Program Files\Entek\Odyssey\report??.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Tab:=True, _
FieldInfo:=Array(Array(1, 2), Array(2, 2), _
Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 9))
ActiveWorkbook.SaveAs FileName:= _
"C:\Program Files\Entek\Odyssey\report.TXT", FileFormat:=xlText, _
CreateBackup:=False
Rem Adjust the width of the columns.
Rem It really doesn't matter how wide.
Columns("A:A").ColumnWidth = 12
Columns("B:B").ColumnWidth = 35
Columns("C:C").ColumnWidth = 8
Columns("D:D").ColumnWidth = 19
Columns("E:E").ColumnWidth = 15
Rem This section will paste the tally sheet into the right place.
Windows("Ahrmacro.xls").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Sheet2").Select
Rem Change the value for g in the next line if you need to add
Rem categories to the blank sheet and make it longer.
Range("A1:G29").Select
Selection.Copy
Windows("report.txt").Activate
ActiveWindow.WindowState = xlNormal
Sheets("report").Select
Range("J1").Select
ActiveSheet.Paste
Columns("J:J").ColumnWidth = 14
Rem The next assignment will place the department name on the tally
Rem sheet and insert the date.
Cells(1, 11) = Cells(1, 5)
Cells(1, 15) = Date
Rem This next section begins the actual count. The X & Y variables
Rem are set according to the row and column placement in the tally
Rem sheet. Y equals the row and X equals the column. If changes are
Rem made here, duplicate the changes in the tally sheet. Odyssey format
Rem needs to be column A equipment type, column B equipment name, column C
Rem alarm status, column D is date/time and column E is department.
R = 0
Do
R = R + 1
If Cells(R, 2) = Cells(R + 1, 2) Then
Else
If Cells(R, 1) = "Agitators" Then y = 5
If Cells(R, 1) = "Blowers/Fans" Then y = 7
If Cells(R, 1) = "Centrifuges" Then y = 9
If Cells(R, 1) = "Compressors" Then y = 11
If Cells(R, 1) = "Conveyors" Then y = 13
If Cells(R, 1) = "Dryers" Then y = 15
If Cells(R, 1) = "Chain Drives" Then y = 17
If Cells(R, 1) = "Hammermills" Then y = 19
If Cells(R, 1) = "Pumps" Then y = 21
If Cells(R, 1) = "Cryovac" Then y = 25
If Cells(R, 1) = "Grinders" Then y = 27
x = 20
If Cells(R, 3) = "Red" Then x = 15
If Cells(R, 3) = "Yellow" Then x = 13
If Cells(R, 3) = "Green" Then x = 11
ThisValue = DateValue(Cells(R, 4))
If ThisValue >= ThatValue Then
Cells(y, x) = Cells(y, x) + 1
Cells(y, x + 1) = Cells(y, x + 1) + 1
Else: Cells(y, x) = Cells(y, x) + 1
End If
End If
Loop Until Cells(R + 1, 2) = ""
Rem Get ready to save the data.
Rem n equals the department name in Cell A1
n = Cells(1, 5)
Rem MyDate equals todays date
MyDate = Date
Rem Mystr equals the first three letters of the month
Mystr = Format(MyDate, "mmm")
Rem The next line defines the file name
fn = n + Mystr
ChDir "C:\Maintenance\Department Reports\" + n + "\" + Mystr
ActiveWorkbook.SaveAs FileName:=fn, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Rem Don't forget to change the next two lines if the tally sheet gets
Rem bigger P23 to P27 etc.
Range("J1:P29").Select
Range("P29").Activate
Application.Goto Reference:="R1C6"
Rem Close and quit the department file.
ActiveWindow.Close
Rem Delete the Odyssey report.txt files
Kill "C:\Program Files\Entek\Odyssey\report*.txt"
ActiveWorkbook.Close
Rem Close and Quit the Alarm Count File.
End Sub
Here is the text file it insert for information that it is working with:
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:25 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:25 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:26 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:26 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:27 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:27 AM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:43 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:43 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:40 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:40 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:41 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:41 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:42 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:42 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:45 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:45 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:41 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:41 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:38 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:38 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:36 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:36 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:33 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:33 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:34 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:34 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:35 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:35 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:30 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:30 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:28 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:28 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 9:00 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 9:00 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:57 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:57 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 1:00 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 1:00 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:59 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:59 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:16 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:16 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:13 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:13 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:08 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:08 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:05 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:05 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:11 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:11 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:08 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:08 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:54 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:54 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:53 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:53 AM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:38 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:38 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:35 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:35 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:28 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:28 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:25 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:25 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8005 East to West 14" Auger Red 12/29/2005 9:18 AM Hides
Conveyors KILL8005 East to West 14" Auger Red 12/29/2005 9:18 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:49 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:49 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:42 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:42 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:56 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:56 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:53 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:53 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:47 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:47 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:45 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:45 AM Hides
Conveyors KILL8012 Ear & Snout Auger Green 12/29/2005 6:44 AM Hides
Conveyors KILL8012 Ear & Snout Auger Green 12/29/2005 6:44 AM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:53 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:53 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:49 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:49 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:50 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:50 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:51 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:51 PM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:37 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:37 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:35 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:35 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:31 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:31 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:32 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:32 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:35 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:35 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:36 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:36 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:37 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:37 AM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:03 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:03 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:08 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:08 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:25 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:25 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:15 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:15 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:16 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:16 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:17 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:17 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:05 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:05 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:02 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:02 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:20 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:20 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:21 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:21 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:22 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:22 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:48 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:48 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:15 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:15 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:17 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:17 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:20 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:20 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:09 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:09 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:39 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:39 AM Hides
I am wanting to change the VBA code so that it uses the date that is asks me for as a beginning date to use for the This period data. It seems to not pull the things from December into being a part of This Period but puts it as To Date.
Not sure if this is how I should post this but any help I can get would be great.
O.J.
Here is the table it is inserting into:
Department Hides Month 1/23/2006
To Date This Period To Date This Period To Date This Period
Green Yellow Red
Agitators
Blowers / Fans
Centrifuges
Compressors
Conveyors
Dryers
Chain Drives
Hammermills
Pumps
Chain Drives
Cryovacs
Grinders
Total Assets
Here is VBA code:
Rem This section displays warning message, and gets the number
Rem of days to be used as current from the user
Dim Message, Title, Default, MyValue
Message = "Make sure that the Department to be counted has had the Odyssey report ran before continuing. Please enter the beginning DATE to be included in the current totals."
Title = "Please Read"
Rem Change this next line for the default in the opening Message.
Default = Date
MyValue = InputBox(Message, Title, Default)
Rem If the user clicked on Cancel, end the macro
If MyValue = "" Then End
ThatValue = DateValue(MyValue)
Rem Open the data file into the workbook using the following path
Workbooks.OpenText FileName:= _
"C:\Program Files\Entek\Odyssey\report??.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Tab:=True, _
FieldInfo:=Array(Array(1, 2), Array(2, 2), _
Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 9))
ActiveWorkbook.SaveAs FileName:= _
"C:\Program Files\Entek\Odyssey\report.TXT", FileFormat:=xlText, _
CreateBackup:=False
Rem Adjust the width of the columns.
Rem It really doesn't matter how wide.
Columns("A:A").ColumnWidth = 12
Columns("B:B").ColumnWidth = 35
Columns("C:C").ColumnWidth = 8
Columns("D:D").ColumnWidth = 19
Columns("E:E").ColumnWidth = 15
Rem This section will paste the tally sheet into the right place.
Windows("Ahrmacro.xls").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Sheet2").Select
Rem Change the value for g in the next line if you need to add
Rem categories to the blank sheet and make it longer.
Range("A1:G29").Select
Selection.Copy
Windows("report.txt").Activate
ActiveWindow.WindowState = xlNormal
Sheets("report").Select
Range("J1").Select
ActiveSheet.Paste
Columns("J:J").ColumnWidth = 14
Rem The next assignment will place the department name on the tally
Rem sheet and insert the date.
Cells(1, 11) = Cells(1, 5)
Cells(1, 15) = Date
Rem This next section begins the actual count. The X & Y variables
Rem are set according to the row and column placement in the tally
Rem sheet. Y equals the row and X equals the column. If changes are
Rem made here, duplicate the changes in the tally sheet. Odyssey format
Rem needs to be column A equipment type, column B equipment name, column C
Rem alarm status, column D is date/time and column E is department.
R = 0
Do
R = R + 1
If Cells(R, 2) = Cells(R + 1, 2) Then
Else
If Cells(R, 1) = "Agitators" Then y = 5
If Cells(R, 1) = "Blowers/Fans" Then y = 7
If Cells(R, 1) = "Centrifuges" Then y = 9
If Cells(R, 1) = "Compressors" Then y = 11
If Cells(R, 1) = "Conveyors" Then y = 13
If Cells(R, 1) = "Dryers" Then y = 15
If Cells(R, 1) = "Chain Drives" Then y = 17
If Cells(R, 1) = "Hammermills" Then y = 19
If Cells(R, 1) = "Pumps" Then y = 21
If Cells(R, 1) = "Cryovac" Then y = 25
If Cells(R, 1) = "Grinders" Then y = 27
x = 20
If Cells(R, 3) = "Red" Then x = 15
If Cells(R, 3) = "Yellow" Then x = 13
If Cells(R, 3) = "Green" Then x = 11
ThisValue = DateValue(Cells(R, 4))
If ThisValue >= ThatValue Then
Cells(y, x) = Cells(y, x) + 1
Cells(y, x + 1) = Cells(y, x + 1) + 1
Else: Cells(y, x) = Cells(y, x) + 1
End If
End If
Loop Until Cells(R + 1, 2) = ""
Rem Get ready to save the data.
Rem n equals the department name in Cell A1
n = Cells(1, 5)
Rem MyDate equals todays date
MyDate = Date
Rem Mystr equals the first three letters of the month
Mystr = Format(MyDate, "mmm")
Rem The next line defines the file name
fn = n + Mystr
ChDir "C:\Maintenance\Department Reports\" + n + "\" + Mystr
ActiveWorkbook.SaveAs FileName:=fn, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Rem Don't forget to change the next two lines if the tally sheet gets
Rem bigger P23 to P27 etc.
Range("J1:P29").Select
Range("P29").Activate
Application.Goto Reference:="R1C6"
Rem Close and quit the department file.
ActiveWindow.Close
Rem Delete the Odyssey report.txt files
Kill "C:\Program Files\Entek\Odyssey\report*.txt"
ActiveWorkbook.Close
Rem Close and Quit the Alarm Count File.
End Sub
Here is the text file it insert for information that it is working with:
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:25 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:25 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:26 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:26 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:27 AM Hides
Blowers/ Fans OFF98034 Head Wash Acid Cab Red 01/01/2006 9:27 AM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:43 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:43 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:40 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:40 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:41 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:41 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:42 PM Hides
Chain Drives 8" Trim Conveyor Red 12/29/2005 12:42 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:45 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:45 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives HIDE06 South Flesher Manure Cyl Green 12/29/2005 12:46 PM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:41 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:41 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:38 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:38 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives North Steam Vac Yellow 12/29/2005 7:39 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:36 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:36 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:33 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:33 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:34 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:34 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:35 AM Hides
Chain Drives Rear Leg Hock North Green 12/29/2005 7:35 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:30 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:30 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:27 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:28 AM Hides
Chain Drives Rear Leg Hock South Green 12/29/2005 7:28 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 9:00 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 9:00 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:57 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:57 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Chain Drives South Airlock Steam Vac Red 12/29/2005 8:58 AM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 1:00 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 1:00 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:58 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:59 PM Hides
Conveyors HIDE15 West 20" Auger in Hides Green 12/29/2005 12:59 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:16 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:16 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:13 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:13 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors HIDES90 Hide Flume Screener Yellow 12/29/2005 12:14 PM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:08 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:08 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:05 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:05 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20007 North Hide On Wash Rot Red 12/29/2005 7:06 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:11 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:11 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:08 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:08 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20018 South Hide Was Roto Green 12/29/2005 9:09 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:54 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:54 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:52 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:53 AM Hides
Conveyors KILL20108 Secondary Hide On Roto Green 12/29/2005 6:53 AM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:38 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:38 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:35 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:35 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8003 East - West 20" Auger Yellow 12/29/2005 12:36 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:28 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:28 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:25 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:25 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8004 Inclined 20" to Hides Red 12/29/2005 12:26 PM Hides
Conveyors KILL8005 East to West 14" Auger Red 12/29/2005 9:18 AM Hides
Conveyors KILL8005 East to West 14" Auger Red 12/29/2005 9:18 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:49 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:49 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:42 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:42 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8006 South 16" Auger Green 12/29/2005 8:43 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:56 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:56 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:53 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:53 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8007 Middle 16" Auger Green 12/29/2005 7:54 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:47 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:47 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:44 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:45 AM Hides
Conveyors KILL8008 North 16" Auger Green 12/29/2005 7:45 AM Hides
Conveyors KILL8012 Ear & Snout Auger Green 12/29/2005 6:44 AM Hides
Conveyors KILL8012 Ear & Snout Auger Green 12/29/2005 6:44 AM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:53 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:53 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:49 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:49 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:50 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:50 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:51 PM Hides
Conveyors OF198002 115' Auger from Offal Green 12/29/2005 12:51 PM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:37 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:37 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:34 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:35 AM Hides
Conveyors PAUN8005 N-S Paunch Auger Red 12/29/2005 9:35 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:31 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:31 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:32 AM Hides
Conveyors PAUN8014 E-W Paunch Auger Red 12/29/2005 9:32 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:35 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:35 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:36 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:36 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:37 AM Hides
Pumps HIDE02 8" Hide Flume Pump Green 12/29/2005 6:37 AM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:02 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:03 PM Hides
Pumps HIDE18 PUMP, 6 in Pump Green 12/29/2005 12:03 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:08 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:08 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps HIDE19 Chill Flume Rec Over Pump Green 12/29/2005 12:09 PM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:24 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:25 AM Hides
Pumps INED6078 4" East Plasma G.R. Red 12/29/2005 7:25 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:15 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:15 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:16 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:16 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:17 AM Hides
Pumps KILL20005 Hide 6" GR Pump Red 12/29/2005 7:17 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:04 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:05 AM Hides
Pumps KILL20006 Hide On Wash Goulds Green 12/29/2005 9:05 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:02 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:02 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20008 Hydrotherm Hide On Green 12/29/2005 7:03 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:20 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:20 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:21 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:21 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:22 AM Hides
Pumps KILL20019 Hide Wash East Green 12/29/2005 7:22 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:48 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:48 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL20020 Final Wash Pump Red 12/29/2005 6:49 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:15 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:15 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:17 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:17 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:20 AM Hides
Pumps KILL6004 PUMP, South 8 in G.R. Green 12/29/2005 8:20 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:09 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:09 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps N Pre Evis Mixing Station Green 12/29/2005 8:10 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:38 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:39 AM Hides
Pumps PAUN6008 South Paunch Pump Green 12/29/2005 9:39 AM Hides