ࡱ> KJ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIoxMXOPQRSTUVWLYZ[\]^_`abcdeghijklmnpuqrstv}wy~{|Root Entry F`C7f3Workbookm_VBA_PROJECT_CUR"0C7VBA0C3  ɀ\pggeu Ba= ThisWorkbook=K[;#8X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Calibri1 Calibri1Calibri14Calibri1 Calibri1Calibri1Arial1Calibri1,8Calibri18Calibri18Calibri1 Arial1>Calibri14Calibri1<Calibri1?Calibri1h8Cambria1Calibri1 Calibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##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 #< #<  #  )<    , )<  (@ @ 4@ @ 0@ @  @  D #\  #\   L  X 0  |  x #<  h    (  #<   ,  8 #|  #|   l  x  @+  `+  d+ #|+  #|+   l+  x+  20% - Accent1 20% - Accent2 20% - Accent3 20% - Accent4 20% - Accent5 20% - Accent6 40% - Accent1 40% - Accent2 40% - Accent3 40% - Accent4 40% - Accent5 40% - Accent6 60% - Accent1 60% - Accent2 60% - Accent3 60% - Accent4 60% - Accent5! 60% - Accent6 "Accent1 #Accent2 $Accent3 %Accent4 &Accent5 'Accent6(Bad) Calculation* Check Cell+,-./Explanatory Text0  1Good2 Heading 13 Heading 24 Heading 35 Heading 46 7Input8 Linked Cell 9Neutral :Note ;Output< =Title >Total? Warning Text`6Sheet1uSheet2^Sheet3"bZ   3 A@@  vr,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? 2& G-gM7jcc||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\);_(*M 20% - Accent1 ef %M" 20% - Accent2 ef %M& 20% - Accent3 ef %M* 20% - Accent4 ef %M. 20% - Accent5 ef %M2 20% - Accent6  ef %M 40% - Accent1 L %M# 40% - Accent2 L渷 %M' 40% - Accent3 L %M+ 40% - Accent4 L %M/ 40% - Accent5 L %M3 40% - Accent6  Lմ %M 60% - Accent1 23 %M$ 60% - Accent2 23ږ %M( 60% - Accent3 23כ %M, 60% - Accent4 23 %M0 60% - Accent5 23 %M4 60% - Accent6  23 %AAccent1 O %A!Accent2 PM %A%Accent3 Y %A)Accent4 d %A-Accent5 K %A1Accent6  F %9Bad  % Calculation  }%  Check Cell  %????????? ??? Comma( Comma [0]&Currency. Currency [0]G5Explanatory Text %F Followed Hyperlink  ;Good  a%G Heading 1 I}%OG Heading 2 I}%?G Heading 3 I}%239 Heading 4 I}%4 Hyperlink  uInput ̙ ??v% K Linked Cell }%ANeutral  e%"Normalb Note  wOutput  ???%????????? ???$Percent1Title I}%MTotal %OO? Warning Text %XTableStyleMedium2PivotStyleLight16BOUj_ KU  ɀ 0VoRt  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} X}  K} X} $ X} $ X}  Y} Z} $ X} $Y} I [} \} ]} $ X0   W            l l  l l l l l  l          UV@! AE RLRPG] U~ W@D C C S O J T  Q  I  _+ XK A ABJ@a @A @B? e@)  = 3L DLAB@ f(\? *D DdBM g(! 7D  D  D  B%1 0B0 XK@ A ABS@a@A @B? e$@)   fQ@  4 *L LdB g)  A 7L L L B%1 0B0 KK A AB@V@a @A @B? e@)   f\(\@   g)  0 b^ A AB@P@a @A @B? e@)   f333333?   g3)  0 AA A ABW@a@@A @B? e@)   fGz@   g)  0 AA A AB@Q@a@@A @B? e@)   f(\@   g)  0A A ABL@a@@A @B? e@)   f\(\?   g)  0 A A A BM@a`@A @B? e@)   fRQ?   g)  0 A A A BE@a@A @B? e&@)   f)\(?   g\)  0 A A A BS@a`@A @B? e@)   fQ@   g)  0 A A A BQ@a`@A @B? e@)   f ףp= @   g)  0 m m m nK@o@m @n? p@)  ~ q? rQ)  1m m mnW@o@m @n? p@)  ~  ql@ r)  1 K KMN@h@K @M? i$@)   jHzG?   k)  0m m m nX@o@m @n? p@)  ~  q? r )  1m m m nM@o@m @n? p @)  ~  q? r)  1m m m n@S@o@m @n? p @)   q{Gz@   r)  1m m m n[@o@m @n? p"@)   qffffff @   rf)  1m m m n b@o@m @n? p"@)   qffffff@   rf)  1 K KM@W@h @K @M? i@)   jRQ@   k )  0m m mnN@o@m @n? p"@)  ~  q? r$)  1A A AB]@a@A @B? e$@)   f(\ @   g()  0A A ABZ@a@A @B? e$@)   f(\@   g(,)  0A A AB@^@a@A @B? e$@)   f ףp= @   g0)  0A A AB@[@a@@A @B? e@)   f)\( @  ~  g?A A ABU@a@A @B? e&@)   fp= ף@   gp4)  0A A AB\@a@A @B? e&@)   f @   g8)  0A A ABV@a @A @B? e@)   f@   g<)  0AXAYNXY[\] AKKMLKMI F@ 3D DDABB HD ,D D*dBE `H /D  D  B% YES BD8lYI0&  " # $ % & ' ( ) * + , - . /  A RL RI FL 3D  DD ABB HP#X,D  D * dBE `T /D  D  B% YES B" jQX" 4"/ *L LdB# j\" " $ j`# " % jd$ " & jh% " ' jl& " ( jfp' " ) jft( " * jx) " + j|* " , j€+ " - j(, " . f׈- " / f\. " "W$  \$   PH0(  >@7 Sheet1ggD&  ɀ .Evm}n  dMbP?_*+%"??U} $} .    d d# d$b c~ q@!@$ DA c ffffff@@  LA c~ ?@ c~ @u@@ !*$@%AA#(@  % c ~ l@@  ffffff@@   ~ @ @  c( c  ? @ !* $@% A# *@ %  "!4@ D D!9@' D D c%'@XDDA c) c& d d# d$ c~ q@!@ DA c~ ?!@  DA c ?!@" DA c ~ l@!@# DA !) @ %A#$@ %w.4AX;;c;?I?cX9*AAEA !"#$'*,- c  ffffff@! @ D A ! !ffffff@!!@ D!A " ~ "@!"@! D"A #c~ #@u@!#@ D#A $!)$*@% #A#$.@ % # '"!'5@' D$D!'9@* D$D *c%'*@D'D'A ,c* -c'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&  ɀ   dMbP?_*+%"??U      ~ ?  ~ ?  ~ ? ~ ? !~ @XXXX ~ l@XXXX  ~ l@XXXX  ~ t@XXXX  ~ 0{@ XXXX !~ (@ XXXX XXXX ~ pt@ XXXX XXX XXX XXX !~ pt@ XXX&t@......>@7 Sheet3ggD& Module1 N3__SRP_3 __SRP_2 0ThisWorkbook3  !"#$%&'()*+,-./12456789:;<=>?@ABDEFGHIJKLMNOPQRSTUWXY[]^_`abcdefghijkmnopqrstuvwxyz{|}~hx ( " 00 "   Xx  (8 1@(Xp + $XS % : ([(X0E` p  ` $ "!"!0 jXh    ( 8 X &(  H X    x  D(|*xRRR RMEHH<0<> <LL<4<8<<<h0h@hx (P `k`|zDh`f@ 0PhpP  h `2D `xN8 hp0%``H XP (,  8:@NH@@ @P0 @, `^`T`\`d`v`hh`V@ `b` A%@ @%x,%``ph @ h@  `r@%`x(`t@ @ @ @ (XX@ @ Hh@@ @ -A%(88H0( x@ -@ .@ .@  8/@  H /h A`XB A%HCD@P  H(x (` H@(  @ X@  h ( X@(   P [P ` x [@   \ ( h@   l@ @ l@ h ( mx`x P m @ t @ d @ T T pt@ D @ 4 @0 $ @  A% ` \+  `|j@ h H h @l  h   @ h  @f  ( 8 @` ` \H `x H   X (p\ `  (0f $( H(xh ( P H`` \H `( `hx ` \ ` XP H  P"#Q$*\Rffff*8K5123d62f(*\Rffff*8K5123d62f\0(*\Rffff*8K5123d62f\1*\R1*#2ac*\R1*#5e*\R1*#90*\R1*#1c8*\R1*#dc*\R1*#e8 ` &0!          ( &0 H ! p          h  p  x      ( $+8P ( p &-  &.H   x    &-  &.p  &@     &-  &.  &p   X  &-H  &.  &         `  1"^ Rrh B X   8 %H  h P ^^0p`]X]]8Sheet1$8B@ E3$B@ p  collect data :!<b0k :%>!<  @ :!< $( :%>!< $(k  :%>B@ ( goto next record]x 0nco ]h make groups*^ dump data]](] record 1   $ qq   ' dump to sheet3sheet3$@B@  0 0A1$,B clear cells with zero0HJ NLP TRBSheet3$8%DB@Fo^p^p^xP | + 9]H * array to collect records with "repair"=1 ']8]]0 array to dump in sheet00 8  if "Refill" : add to ARRSEL ]Hx ^ h H  98  collect remaindersi $' 9 |  |$  @(A 9  $( run through all combinations             more than 4 records left]   ''k]   e  group of 4 records! array of remaining records' ] $'( put BEST-group in group-array array with groups]  @q  b( add last records n $( $(  'q0 $(A ] x |9 |9 |9  $' $! ]5 with set used records OFF in ARRSEL  @ | best frac=0$  else compair with best for nowX  |  |$!' k x ]KT $!$! +0 $!$! +0! $!$! +0 $! $! +0 2 $0 '2KTKTKTn p]! transform ARRGROUPS to 2D array   ' $0'2+   ' 2 $0 '2   '> record 2 record 3 record 4   '5B  total\m0 Total +0 $p $' $'ri $' $'ou   $$! $$! $$! $$! ' |9 2 $0 '2 2 +0$ $!$! +0q $!$! +0o $!$! +0u $! $! +07TX $'ݵAttribute VB_Name = "Module1" Option Explicit PrivaType UTsingleDATAu@sed MACHid As$ Sng*WA STAGE,Double,USEDBoolean End \jgroupi8@INDEX1:I@nteger2534 ? Dim ARRSpEL()wR`EMAING Sub Filter() ' array to collect records with "repair"=1 =idx P#ofmain$H1 W23Z4M%Bh %4#GROUPtotal2E"B0fracJ8ABESTselR6 5R54Clg7sFX.SC/@QRECORDcount=Fvdump in sheeDUMPCVarianKTOTALwastageWorks("S 1")0.Act"|iRange("E3/edc0[AR#]data Do Whil@ eCell.Value <>< " aif "Refill" : addhr If "C Offset(0, 7) = 1 The ePreservI}UB`3d(c )p + 1#().$=I!%'6$g AIf 1, J0G: )goKn exELoop#Call C8_Re@^ma8ke E`aore than &~ lefRf<$) > 4 coB}= 0 run gh combina!`AaForB=o - 3 gn†/RRh `? Ts 2k B amBh b u e s#1 ?Q"#gUu= 6Y/ 4P?p5?35ߑo+vp N oo_#:`"ptut-q-boS͆WqT1S).T=B t!g#2`h/EX3'/EX4''ߑ  Q OFF g-( +.b= Trut B*(&on$ l%C IÆ~p"`Ic ).ųUSED = False Then RECORDcount# 4+ 1 With ARRGROUPS(UBhdd( )) \Select Ca?{[(! o.I`NDEX1kSELidx@2D 2 3 3= 4 End BO IfNext ' dump data transformGm to 2D arraBy ReDiDUMP(1 To Nv * 6, 2DyForG@d6Cȁ@.record7 )(Ǟ- 1)*) N {@3)FcG@)).MACHi.dG2A32WA STAGE TOTALwastage'+A%-` JL(F= x%j+==ow #g%2%L, %/` %= J'+_' L~_'| 6L_'(G'3_'_'"j _'_'x5 UN4 _'C'_'Q'4_'_'L'` _'_'S'total&59 )5&"Ta "r83'gf$Gfto sheetd0Ss("3").ActivateRan@ge("A1R`esize(:)GAS&clear cells Bw1zeroWork`3@ColumnBplace What:="0", Re"men[_ SchOrder:=xlBy, Matcha:=True, look1xlWhol@Sub  Pr Fun10on `_Remai odw As Integerol6rrP s{REMAIN(0Xty={w}py$`aD11Ixf ./* PreserveY w{ED_)v E?1S-q rU~|  y a )Ai A Q i ) 1,:0%@$ @ d,)@,(@'%:0%$ @0@X+@$ (@a :0]@@5 S(0%(%@$ (@  ,,a(]3)@,6 %:@$ (@a `#˔A/@5 [(0%(%@$ (@  ,,aB˔A)@,6 E(0%(%@$ (@  ,,0)@,5   5 pdxc!kxvc!kvtcktrcXkxAkvAktAkrAthohohpf kfpkxpbkvp`ktp^krp\ kfkdkfpdkxpbkvp`ktp^krp\ rd td vdy xdX!lXXlXlX.@q kb k` k^ k\ q-kbA k`A k^A k\A  5  !lXXpTzckzA  kTpTlXlX.@qekTp k; kz kS kz kk kz k kz q- zd+lXP VlXckVlX.@qkVpN-kVlXAAF0kNlP.kVlXAAk0kNlPkNlPBtDkVpN-kVlXAAF0kNlP.kVlXAAk0kNlP&oDk0kNlP BtD5 kVpN-kVlXAAF0kNlP.kVlXAAk0kNlP&oDk0kNlP BtD5 kVpN-kVlXAAF0kNlP.kVlXAAk0kNlP&oDk0kNlP BtD5 kVpN:0 kNlPoDk0kNlP q- Vd1,:0 %@$ @ d,)@,^lPMd %lPi%(%@'%:0 %$ @  ,,)@,5 r:%:t%T%c4%%:%,:0%@$ @ d,)@,5x D,XP$@, jcfkj.`@q\ \ %kj˔ q\-` jdf4 ,l` frU  $`$` n/}#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}H(%H(8"#QxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Lz#E#<t#rK) h FحJG7:xحJG7:t#rK) hMESheet1C__SRP_4 V__SRP_5ZBSheet2\(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H(p %X %pxH@HH8"#Q$*\Rffff*3k512135614xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU  41 aY `rU @n/#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H(8"#QxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Lzd#<GTO9<Ll FGDRV xGDRV GTO9<LlMESheet3l__SRP_6 __SRP_7B_VBA_PROJECT(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H(p %\ %pxH@HH8"#Q$*\Rffff*3l512135614xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU  41 aY `rU @n\0* pHd VBAProject4@j = r "#Q J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\STDOD _B_var_USED _B_var_False-_Defaultj GROUPUSEDO FINALUSED$UTsingleDATAused ARRSELLEFTN ARRSELLEFTidxaARRSELREMAINidx ARRSELREMAIN(ARRSELREMAIN1idxKARRSELREMAIN2idxVARRSELREMAIN3idxARRSELREMAIN4idxd ARRREMAIN1idx+ ARRREMAIN2idx[ ARRREMAIN3idxg! ARRREMAIN4idxD ARRREMAIN_6BESTfrac GROUPfrac#' GROUPtotal BESTrec1 BESTrec1idxhx BESTrec2idx> BESTrec3idx BESTrec4idx_B_var_ARRgroups9Collect_Remains _B_var_Call_B_var_ARRSELidxպPut_In_GroupArrayI RECORDcount{ _B_var_Select'E ARRGROUPSidx\ ARRDUMPidxRecord _B_var_Recordr _B_var_withYINDEX1INDEX2INDEX3INDEX4_B_var_ARRGROUPiINDEXval^_B_var_indexval6_B_var_MACHid1p+_B_var_Put_In_GroupArray BESTsel2idxP BESTsel3idx\ BESTsel4idx" BESTsel1idxxY[ ]WZ Sheet13k51213561Y Sheet1#E0 Sheet23g51213498[ Sheet2H5 Sheet33l51213561] Sheet3d`x0dir`__SRP_0o__SRP_1~PROJECTwmLE2.TLB# Automation`E OfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.DLL#M 14.0 Ob Libra,ryK Module1Gdu1 2 (HB1p$*XB,BT!B+BqThisWorkb@ookG@TA@sisW rPkboM 2 $5$}"B#$SheetBAS@#eutAG2B#I#E2GL2]227T333M3d b+ThenToK*yrU~~~~~~~~~~~~T A,<_y#NL-  a  @)A a y  a y ))9!AModule1 ThisWorzay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 14.0 Object Library  "#QModule18K5123d62fModule1$*ThisWorkbook3d51213498WThisWorkbook}5 Sheet13k51213561Y Sheet1#E0 Sheet23g51213498[ Sheet2H5 Sheet33l51213561] Sheet3d`x0`H#LWˏ PRDzF*.T ّtꧦ+9FXaϔ: AsCallCase=Dim@DoDElseEElseIfOexitPexplicitTFor^Goto_IfjIntegerllboundyLoopoptionPreserveReDimSINGLEThenToUBoundUntilWhileWith Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`Officeu Module1b _Evaluate SELECTIONZMACHidWASTAGE{updateRange Activate| ClearContents{AutoFill_ Destinationл(Filter; ARRselectedARRidxR GROUPcountfbARRDUMPs TOTALwastage REPLACEbit.Border Worksheets ActiveCellValueKOffsetSheets Resize@4Columnsp9ReplacefWhatC Replacement SearchOrder xlByColumns MatchCaselookatOxlWhole ThisWorkbook| Sheet1 Sheet2 Sheet3Workbookk WorksheetARRgrou_B_var_ARRgrouARRGROUPMACHid1m7WASTAGE1MACHid2n7WASTAGE2MACHid3o7WASTAGE3MACHid4p7WASTAGE4GROUPS ARRselect ARRSELidx ARRGROUPidxrarr u _B_var_ReDimFOUND+ _B_var_Do SINGLEdataɼ GROUPSdata ARRGROUPS ARRselectIDX ARR3records _B_var_ARR3recordsm UTsingleDATA UTgroupDATAVo _B_var_ForjL _B_var_LBound _B_var_UBounddFRACTIONARRSEL3ARR3recsf ARR3RECSidx ARRFRACTIONo ARR3RECA ARR3RECidx,  ARR3RECfrac ARRSELfrac- _B_var_IfPthem2USEkbookSheet1Sheet2Sheet3 VBAProjectF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA a 0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel !@0F C:\WINDOWS\system32\STDOLE2.TLBstdole  PL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\mso.dllOffice y)` ,   , 00, $FilterCollect_Remains LL !Fi -GEA-1069-!Di 0H02B30309 Sheet1FF9aFActivate E3 FF Total sheet3 A1 0 B Sheet3ColumnsWhatReplacementSearchOrderMatchCase lookatReplace9Ft#rK) h FحJG7:DF Worksheet @GTO9<LlGDRV   66 !Fi -GEA-1069-!DprU~}    91 pModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3ID="{99E3E14E-8A58-4EE1-86FB-843A3D12F05A}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Name="VBAProjPROJECT3SummaryInformation(DocumentSummaryInformation8CompObjmect" HelpContextID="0" VersionCompatible32="393222000" CMG="1B19EDD4CCD8CCD8CCD8CCD8" DPB="F6F4003100D7DAD8DAD8DA" GC="D1D327C828C82837" [Host Extender Info] &H00000001={3832D640-CF90-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@HXh MerckggeuMicrosoft Excel@VZ@՜.+,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) F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q