ࡱ> GF  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEMeIKLWcOPQRSTUVHXYZ[\]^_`abdjfghiklmRoot Entry F8QQJ-Workbook_VBA_PROJECT_CUR"@cQQVBA0Q ٢Q f2ɀ\pFarrell, James Ba= ThisWorkbook=K[;#8X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1:Calibri1 :Calibri1:Calibri14:Calibri1 :Calibri1:Calibri1:Arial1:Calibri1,8:Calibri18:Calibri18:Calibri1 :Arial1>:Calibri14:Calibri1<:Calibri1?:Calibri1h8:Cambria1:Calibri1 :Calibri""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.005*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)72_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)61_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)[$-809]dd\ mmmm\ yyyy d\.m\.yy;@ mmm\-yyyy dd/mm/yyyy;@ d/m/yy;@ 0.0000.0                                                                      ff + ) , *      P  P         `            a>      $  ( #    #<     ,  )< )<  ` #  d #< #<  #  )<    , )<  8  (@ @ 4@ @ 0@ @  @  D #\  #\   L  X 0  @  |  x  @( #<  h    ( ||hH }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef ;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L ;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A}  00\);_(*23;_(@_) }A}! 00\);_(*23 ;_(@_) }A}" 00\);_(*;_(@_) }A}# 00\);_(*;_(@_) }A}$ 00\);_(*;_(@_) }A}% 00\);_(*;_(@_) }A}& 00\);_(*;_(@_) }A}' 00\);_(* ;_(@_) }A}( 00\);_(*;_(@_) }}) }00\);_(*;_(@_)    }}* 00\);_(*;_(@_) ??? ??? ??? ???}-}/ 00\);_(*}(}0  00\);_(*}A}1 a00\);_(*;_(@_) }A}2 00\);_(*;_(@_) }A}3 00\);_(*?;_(@_) }A}4 00\);_(*23;_(@_) }-}5 00\);_(*}(}6  00\);_(*}}7 ??v00\);_(*̙;_(@_)    }A}8 }00\);_(*;_(@_) }A}9 e00\);_(*;_(@_) }x}:00\);_(*;_(  }}; ???00\);_(*;_(??? ???  ??? ???}-}= 00\);_(*}U}> 00\);_(*;_( }-}? 00\);_(* 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L渷 % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  Lմ % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23ږ % 60% - Accent3M( 60% - Accent3 23כ % 60% - Accent4M, 60% - Accent4 23 % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text %0 F Followed Hyperlink   1Good;Good  a%2 Heading 1G Heading 1 I}%O3 Heading 2G Heading 2 I}%?4 Heading 3G Heading 3 I}%235 Heading 49 Heading 4 I}%64 Hyperlink   7InputuInput ̙ ??v% 8 Linked CellK Linked Cell }% 9NeutralANeutral  e%"Normal :Noteb Note   ;OutputwOutput  ???%????????? ???<$Percent =Title1Title I}% >TotalMTotal %OO? Warning Text? Warning Text %XTableStyleMedium2PivotStyleLight16`5Sheet1qSheet2Sheet3,8bZ  3 A@@  vf,IDABCDEFGHJKLMNPQRSTUW#Acceptable varience forward (weeks)Current Date: batches of MachineIOVNumber of parts requiredTime since last repair (weeks)repair cycle (weeks) Last repairSizeTotalTOTALPartsWithout grouping Wastage savedCif this was to group in row order the following groups would occur& Doesn't make a large difference here, but with a bigger sheet with many more records I think the savings could be pretty large.This is my ideal output.PPlease note the totals have been rounded up as fractions of packs cannot be usedmBoth groupings make a saving on no grouping but grouping by the lowest wastage should produce the best saving/Does machine require repair at date specified? 21 1-2Ml2204jccBOUj_ KU f2ɀ !(Vop  dMbP?_*+%&?'?(?)?M\\gbhops0001\GBHOPR0069<C odXXLetterDINU"T  'D SMTJHP Universal Printing PCL 6 (v5.2)InputBinFORMSOURCERESDLLUniresDLLHPDocUISUITrueESPRITSupportedTrueFastRes1bppResolution600dpiPrintQualityGroupPQGroup_2HPColorSmartAutomaticHPColorSmart_ColorOptions_EdgeControlNormalHPColorSmart_ColorOptions_HalftoneDetailHPColorSmart_Text_NeutralGraysBlackOnlyHPColorSmart_Text_HalftoneDetailHPColorSmart_Text_RGBColorNoCmdHPColorSmart_Graphics_NeutralGraysBlackOnlyHPColorSmart_Graphics_HalftoneDetailHPColorSmart_Graphics_RGBColorNoCmdHPColorSmart_Photo_NeutralGrays4-ColorHPColorSmart_Photo_HalftoneDetailHPColorSmart_Photo_RGBColorNoCmdOrientationPORTRAITHPOrientRotate180FalseDuplexNONEHPPrintOnBothSidesManuallyFalsePaperSizeA4HPConsumerCustomPaperTrueMediaTypeAUTOCollateOFFHPNUseDiffFirstPageChoiceTRUEHPPageExceptionsFileHPCPE112HPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsCoverInsertionHPOutputBinOrientationFACEDOWNPunchingNoneStaplingNoneHPStaplingOpposedFalseEconomodeFalseTextAsBlackFalseAlternateLetterHeadFalseHPSmartHubInet_SID_263_BID_514_HID_265OutputBinAutoHPDocPropResourceDatahpchl112.cabHPLpiSelectionNoneJPEGEnableAutoHPEasyColorOnHPMHDLLNameHPFIE112HP_DIBStitch_TintTestDisabledHPMediaTypeTreeviewPopupTrueHPColorModeCOLOR_MODEColorMode24bppTTAsBitmapsSettingTTModeOutlineHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNT_GROUPNAMEHPBornOnDateHPBODHPColorPlaneHPCPHPJobByJobOverrideJBJOHPJobAccWoPinTrueHPXMLFileUsedhpcu1126.xmlHPSmartDuplexSinglePageJobTrueHPDuplicateJobNameOverrideSWFWHPEnableRAWSpoolingTrueRGBColorNoCmdJRConstraintsJRCHDFullJRHDInstalledJRHDOffJRHDNotInstalledJRHDOffHPBestGlossDefaultPSAlignmentFileHPCLS112IUPHxMkAǟmD "B.z,9eM&&-H6MAįЋw^rxOIvV&롺muwyYv8'RU^81ۣ`vT[NM H(()_{D=KҺ SM,Z[YƎgI]~rVܮ?mk!$fB;b=ҁ"@{9!귂;ŦUp^ Kl<:m442ڦ~){X3NZl,){l-ޯbk[m MqQj.VMR$-_. Y}=,f9 0w-U)DI oVҔ(M?ч|ؗ/K4ݬE3Ŭ@ ϭTJkoC˷ks=f?{ޝ|oWB!B!# HR!y7Py_" dXX??&U} Y}  K} Y} $ Y} $ Y}  Z} [} $ Y} $Z} I \} ]} ^} $ Y!   W H           ` `  ` ` c c c  c          VW`@ AE RLRPG^ V~ X@D C C S O J T  Q  I  a+ YK A ABJ@d @A @B? F@   = 3L DLAB@ H(\? *D DdBM U( 7D  D  D  B%1 0B0 YK@ A ABS@d@A @B? F$@    HQ@  4 *L LdB U   A 7L L L B%1 0B0 KK A AB@V@d @A @B? F@    H\(\@   U   0 e_ A AB@P@d @A @B? F@    H333333?   U3  0 AA A ABW@d@@A @B? F@    HGz@   U  0 AA A AB@Q@d@@A @B? F@    H(\@   U  0A A ABL@d@@A @B? F@    H\(\?   U   0 A A A BM@d`@A @B? F@   HRQ?   U  0 A A A BE@d@A @B? F&@   H)\(?   U\   0 A A A BS@d`@A @B? F@   HQ@   U   0 A A A BQ@d`@A @B? F@   H ףp= @   U   0 A A A BK@d@A @B? F@  ~ Hq@ U   1 A A ABW@d@A @B? F@   ~  H? U   1A A ABN@d@A @B? F$@    HHzG?   U   0 A A A BX@d@A @B? F@    H? U   1 A A A BM@d@A @B? F @   ~  Hl@ U   1 A A A B@S@d@A @B? F @    Hffffff@ Uf   1 A A A B[@d@A @B? F"@    Hffffff @   Uf   1 A A A B b@d@A @B? F"@   ~  H@ U   1A A AB@W@d @A @B? F@    HRQ@   U   0 A A ABN@d@A @B? F"@   ~  H@u@ U@   1A A AB]@d@A @B? F$@    H(\ @   U   0A A ABZ@d@A @B? F$@    H(\@   U(   0A A AB@^@d@A @B? F$@    H ףp= @   U   0A A AB@[@d@@A @B? F@    H)\( @   U\  0A A ABU@d@A @B? F&@    Hp= ף@   Up   0A A AB\@d@A @B? F&@    H @   U   0A A ABV@d @A @B? F@    H@   U   0AYAZNYZ\]^ AKKMLKMI F 3D DDABB H ,D D*dBE b /D  D  B% YES BD{lYI0&   A RL RI F 3D  DD ABB H ,D  D * dBE b /D  D  B% YES B$   $   DPH 0(  >@  7 Sheet1ggD f2ɀ .r z!}  dMbP?_*+%&?'?(?)?"??&U} $} .    g g# g$e f~ q@!@$ DA f ffffff@@  LA f~ ?@ f~ @u@@ !*$@%AA#(@  % f ~ l@@  ffffff@@   ~ @ @  f( f  ? @ !* $@% A# *@ %  "!4@ D D!9@' D D f%'@ DDA f) f& g g# g$ f~ q@!@ DA f~ ?!@  DA f ?!@" DA f ~ l@!@# DA !) @ %A#$@ %w.4AX;;c;?I?cX9*AAEA !"#$'*,- f  ffffff@! @ D A ! !ffffff@!!@ D!A " ~ "@!"@! D"A #f~ #@u@!#@ D#A $!)$*@% #A#$.@ % # '"!'5@' D$D!'9@* D$D *f%'*@D'D'A ,f* -f'EEAAbX9 ' (    s FGJ~Right Brace 1#"@PK![Content_Types].xmlJ0*miG]`Hm6 Xwt?. g#Wi3E).+7 >ON ޑ1ˋz "+R RhB.} /<^ITխ%rHK4uK~I0xM e`|X}đ I`߽N4aG2$RKIZ)4(M9`ctB{m:f@`3n|O,ܗr޾jxR0T ,0@}WBLǬ5vPK!!*ddrs/shapexml.xmlUn0 }1Œb} >@Ę,8QCMD&E]Jr6Z4)Q~&:*&Kʏ}erQ.APУs]EEmM|CTv筌fqF3U(Zow[!'6| XeJxy>GċjL@&7HO2oel22I6y#H˸ĉFsNO 1|= i(QJёa\F=o_.,:cy_v(){CA[(庮I_y<%%h/$rȆpg@WsϲU\B7;c݃WE ҂a4=fE T{Ya( :JCNLq.jaFw @7 Sheet2ggD f2ɀ   dMbP?_*+%&?'?(?)?"??&U>@7 Sheet3ggD Module1 N__SRP_2 ^__SRP_3ThisWorkbook   !"#$&'()*+,-./012346789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}~AutoFill Destination:=a4o PE zG44G4=KBAz@w#y.teryDi@m ARRsae8d()Gid xI]ger  GROUPc0ount@dumpCVariany TOTALREPLACEbiBordWorksheets("SsF@lLe 90H0= 0@ colA aUDo While BeCell.Value p<> "A' if "Re&fIfOffset(0, 7)= 1 TXhenRPreserv4$UB.d(H) x+ 1)0).$=. 9 6 j/WIf@,add blanco lineA.gropup=4 . 4+D bfor total B  A)0$0 of 8theq ^,F5"TKA'4_?) - 4).)+ (qT- 3ʑ2e%k"J= + &k Hh8H *.;*.KO3 goto next xrecpUHM;1, 0).rLoopD fol33s&e?<ӿOunO)o)d)P"5ZWw({"dpxdtransF"w EDP 2D array2tIao ?),Qco 2T_F0L zdy?edb#)PV pb ,@~N'`Q}2cR}}3?|sAqResize]2$ c cells with ze1 N2`ColumnBReplaceat:="0", $mPSchOa@:=xlBy,tchCase:=True, look1xlW hoŸ"  rU~| fp rU $`a$`n}#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 *#E#xSheet1 Sheet2 %Sheet35_VBA_PROJECTE VxRR ME (@" @%    0 P p HH%Hf.Q$*\Rffff*2>511f70d9(*\Rffff*2>511f70d9\0P " ( 0 H PXp  (@`x "  (@ `  (  "   8 X x(  ( 2H   22Pp  *(H Ph" R 0^^0p`H update MacroE5:E31$*B@HE31$*B@,x "B@.1DG5:G31$*B@HuG31$*B@,Se "B@.sE4$*B@HE4:E31$*2 "B@0E4:E31$*B@HG4$*B@H x G4:G31$*2 "B@0G4:G31$*B@Ho]]](]@]x]Sheet1$DB@,E3$*B@,  6': collect data F!Hb if "Refill"f F%J!H 6 @6 F!H 6$6($ F%J!H 6$6(& : ':k  add blanco line if group=4 :  add line for total group 6 @6  total of the groupTotal 6$6($ ". 6 $6!& 6 $6!& 6 $6!& 6 $6!& 6$6(& > 6$6!& '> 6 @6(@ add blanco line':kp goto next record F%JB@,8 add final total 6 @6H8 add blanco line 6 @6h8 add blanco lineTOTAL 6$6($ > 6$6(& dump data# transform ARRSELECTED to 2D array 6< 8 6 8$6!$ 8+< 8$6!& 8+< dump to sheet2sheet2$LB@, < <A1$*,N clear cells with zero0TV ZX\ `^BSheet2$D%PB@RoѴAttribute VB_Name = "Module1" PrivapType SELECT@ION MACHid As$ Sng*WA STAGE,Double En$d  Su b upd(), .Pr@ocData Invoke_Func \n14!' 'E Macro^Range("E5:E31").SelectqActq q.ClearCon tentsG5:G) )E4QDME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2d#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2a  *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 14.0 Object Library f.QModule12>511f70d9Module1ThisWorkbook2:511f6fc3cThisWorkbook}% Sheet12;511f6fc3e Sheet1#E0% Sheet22<511f6fc3g Sheet2H% Sheet32=511f6fc3i Sheet3d`%x`H02\Mddx=ϥO".1-=OV;k=peA*7r KIm63+Excel+VBAWin16~Win32Win64xMacVBA6#VBA7# VBAProjectstdole`OfficeuModule1b _Evaluate SELECTIONZMACHidWASTAGE{updateRange Activate| ClearContents{AutoFill_ DestinationлFilter; ARRselectedARRidxR GROUPcountfbARRdumps TOTALWASTAGE REPLACEbit.Border Worksheets ActiveCellValueKOffsetSheets Resize@4Columnsp9ReplacefWhatC Replacement SearchOrder xlByColumns MatchCaselookatOxlWhole ThisWorkbook|Sheet1Sheet2Sheet3Workbookk Worksheetx ceg i ZdirxX__SRP_0__SRP_1^PROJECTwmT0* pHd VBAProject4@j = r f.Q J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#M 1@4.0 Ob LibraryKE Module1Gdu1 2 HB1pB,B!B +BqThisWorkbook(G@T@sisW rkbo 2 $%$}"B#$SheetBAS@#eutAG2B#I#E2GL2]223*333d @+K*rU~~~~~~o {@2Fn@l0   p  ) A Y! ) VBAProjectModule1 ThisWorkbookSheet1Sheet2Sheet3F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA q 0F4C:\Program Files\Microsoft Office\Office14\EXCEL.EXEExcel i @0FC:\WINDOWS\system32\stdole2.tlbstdole yPL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice a`   ,updateFilter ArU  14qModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ID="{99E3E14E-8A58-4EE1-86FB-843A3D12F05A}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7173876D8B6D8B6D8B6D8B" DPB="CCCE3A9FCEFBCFFBCFFB" GC="2725D14077C0D3C1D3C12C" [Host Extender Info] &H00000001={3832D640-CFPROJECT5SummaryInformation(DocumentSummaryInformation8CompObjk90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 22, 766, 466, Z ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Oh+'0@HXp MerckFarrell, JamesMicrosoft Excel@VZ@TCQ՜.+,D՜.+,, PXt | Merck & Co., Inc. Sheet1Sheet2Sheet3  WorksheetsH8\|_AdHocReviewCycleID_NewReviewCycle_EmailSubject _AuthorEmail_AuthorEmailDisplayName_ReviewingToolsShownOnce:(Dummy data base for vial share modelpeter.beaumont3@merck.comBeaumont, Peter (mrk 3) FMicrosoft Excel 2003 WorksheetBiff8Excel.Sheet.89q