ࡱ> Ibdq9vd ` x VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm2Scheds Caption = " Input Schedule Information" ClientHeight = 7785 ClientLeft = 45 ClientTop = 330 ClientWidth = 11940 StartUpPosition = 1 'CenterOwner TypeInfoVer = 664 End (H  @}R KQDBTahoma<K EFҋB `EFo$8RefEdit1;UserForm3InputDataRng,О::f3oCompObja f2ɂ\p Bill Koran Ba=2&68%/ #$+,9.-1230"4 ThisWorkbook=._ K< @"1Arial1Calibri1Calibri1Calibri1Arial1 Arial1Arial1Arial1QTahoma1QTahoma1Arial1.Times New Roman1Arial1& Arial Black1Arial1Calibri1Arial1Calibri1 Calibri1Calibri15Calibri1 Calibri1Calibri1Arial1Calibri1,>Calibri1>Calibri1>Calibri1'Arial1>Calibri15Calibri1<Calibri1?Calibri1h>Cambria1Calibri1 Calibri1Arial1Calibri"$"#,##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\);_(* "-"??_);_(@_)![$-409]m/d/yy\ h:mm\ AM/PM;@#,##0.000000000000 m/d/yyyy;@"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)                                                                      ff + ) , *      P  P         `        !   " # a $ !     (         8  (  0  (  8  H "X  H "X  H "X " #        D #  @        ( @  !X  $  $  d  x  x  `      h   " # # ! ! #  d  d  d  ,     ||v}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_)[$ -##0.  }}* 00_)[$ -???##0.??? ??? ???}-}/ 00_)}(}0  00_)}A}1 a00_)[$ -}A}2 00_)[$ -}A}3 00_)?[$ -}A}4 00_)23[$ -}-}5 00_)}(}6  00_)}}7 ??v00_)̙[$ -##0.  }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 :Normal 2 ;Noteb Note   <OutputwOutput  ???%????????? ???=$Percent >Title1Title I}% ?TotalMTotal %OO@ Warning Text? Warning Text %XTableStyleMedium9PivotStyleLight168_{3ffff}̙̙3f3}ff3f3f73U33333\`\System Diagram|MetricsDaytypeOccupancy~MetricsOccupancyMonthYr"MetricsDaytypeMonthYr MetricsPerSF ptUpdateEvent Bldg1w SubsystemsP ComponentsCComponentsNormalizeComponents_kWCalcComponents_tonsWCalc  ReTuning_CP ReTuning_AHUReTuning_AHU_BAK2ReTuning_AHUxy ReTuning_Zone#ReTuning_CPsAll$ReTuning_AHUsAll'ReTuning_AHUxyAll(ReTuning_ZonesAll- MenuSheetH HolidayList Lists AxisLabelList, !  ; BldgArea Component ComponentIndexEquipID : 6ListAnnualWeekScheds# "N' ListDayScheds; F'ListDaySchedules: ; B"N' ListNormalize; + ListShutDownTimes; $$:ListStartDates:C"N/ ListStartDays# "N( ListStartTimes; * ListStartupTimes; ##' ListStopTimes; & ListWeekdays;( ListWeekScheds;G'ListWeekSchedules:;1B"N MeasureIndexzcMeasures:C;B@:C;B@"NB"NzcMeasures:C;B@:C;B@"NB"N+ MeasuresNormalize;   MonthArray`  ?January@February@March@April@May@June@July @August"@ September$@October&@November(@DecemberMonthDaysArray`  January?@February<@March?@April>@May?@June>@July?@August?@ September>@October?@November>@December?@ MonthNumArray{"January",1;"February",2;"March",3;"April",4;"May",5;"June",6;"July",7;"August",8;"September",9;"October",10;"November",11;"December",12}  Months;  MonthsArray` JanuaryFebruaryMarchAprilMayJuneJulyAugust SeptemberOctoberNovemberDecember-numAnnualScheds;b PointIndex   ;, SubsystemIndex@ 'Subsystems:;B"N( TableDayScheds;Volts WeekdayArray`?Monday@Tuesday@ Wednesday@Thursday@Friday@Saturday@Sunday' WeekdayArray2;8 "5     e/U"w8D*b٭{*wh@=ow8D*b٭{*P a! =xUMKTQ~댍i8Aj"\*>P DS̀pQ`~?Mڴ7/pmU8=Ϲ9T03}~sqv 2&pSj=@ӇJ P![bv#;E_z~xto+ȣz> q+àȸzGUl_oj5ʲIXv T4Tl6O_A9=XhZ-(PlU8ֶQ3؍yϰ 5VF <˴YeΝ"wK\5Ҟ{^trQy`8vI >R' 3q,riˋ1;k6e>k9s2gûn{Y>{bƘWƬs+2sS!3+'̸ $-S09fv+#P(nX*fWxuǟt< = mL%M~m(pM_g4 Ғ)kIu ~LG~La@7V!u#-5r {Dc~M+Ƨ'N?@T̲ߡ#cT<՘Մe}|?$09}[csП(>\*Iι]JSzJ6WFuϼa&ɼtٸ45Ě*ij[z.y6\.yrx}*0b&& U+,?&Rmr6m?f4yd{vbf/;6YNcaǛXPܼpBMZ*SCVg}֓'&Z%)@,<p?jmL+|$yXbzzT4&gBKbKb983v-I8٧S kDDR/s[0*=*scl1'.{x7\EVNukɯ169f1ۍSP}q266dntog .$3;3ǜ'u1p )^嚫E|vW:ID| x}w rQ֑=y+[\*RTOn_?:!nux(zH` l|>eoQ޾zH[9~{[[zZ!![W\}j{.+|.9>94Y-ub.٧gm":,ٰ"mcTߋpN;lXlKysrꋧ*SK,'@μ2fN/Z2˗L*i 3e&?%O.?ϿO\?d-@T]$@To?u9~\T]S7p M5#@-xlkALW:6cJܤ-t7Jt:>Uzt];ua~PgVL:UMteѠ _řni~<|g.MqA؉rD ?^ڣ< H&|*(])9V{s; i Q_MFQ#)ʞܸ}u[‘c"52rU})v?2߲t@%S6W~fҎ+9@ g{i[=s{ Ƿ=].\g6Qv|F[mr6߲}9~OeȽ=}K#.핿d;ۻ1mml69f^vl1eUƪKl1&9ͷrݳ`3**.-Ϋߓ҅RLQ]Ouk<_y}<O.-A|ʆVW_%ի>n$\ddZծ.IiW1|@F ؐ* T}Yk*ˬ}q~G}jx|{Y&50^LJleӊW~ccn2SyCl|os`qD\i k4/6o\ɔh/%|Y$J&g7=+LrejLZϒx(F%&‘=3qc~3͞fh7͛a]0R9"dfء:?wnf(36Vk&ĪLS&6xSb/y{ցioؓ/+ް^UoIѿ~|u%bz13̞f793{4xdfNs"8xd;Q,vaƙfxy#X5䫃OyIsWa7˽A"~a(U,|7|oo9Ы6)zaopOozh_zowʛuxz{N~C]}߻w=»ʻ~_ <kyx?_#rS{c,ڑf,΅חK7c6V3ݻ4yw{LwLzf[XUz4GjS7 6o UIގiEz-C<?v  ^U*F!k4g41UoRO?hvfAxޭ8uyuvujB}܁r_ӂ1g=^;k|(I3\?{ǪhvN^S7w3/ 唯|ʈNe&]BYi[^E1?vSbH2F]bNf#٤ՠM\w#G*68/ίZy.:cY| .-Nlvn_JjW[ӑG{: lف ׁ7q\w?ߨxz7:~[7#67r=o2_ iqbs?!έ& Ri̥mM eAE^!eqDsnxz87&s?} =&W,N'`'=:{PseH8HjϣQro,N VF?bkKcvly͒X֗g/4? |ӣZ.GLH(vפƦIuE:+ҩ"5.NE>yeS郟!B6e)e-C>.Mq]ۭkv RI>'w܅qmnMΦwxl9k?ΐ5_Z@Z#co.XwiagS8'o9ª̢dn>uR ݻk4V@@EjBuk_2k7/;Y ~L$._钙OgGnMfMX5mB0LV1'_~tsL%~;+{/Ql9LcısP'.{qnqa5c~[=SM;fs?"qXYeĤs(Κ=@.x . ~ry4>_jI:d\ZAع=QD6==gyDSYiePpu4]?{.m|c -s/ ,n l^eL?'7^Kva$Tz'OkFVҤ*9Z,Gz?]\YwW<j )KcTB*`#6 ]k/a5IZ2{=tiA9)|75 ^k@jd6,Q:/uӆ~Wr Ŭz?)ʞ<+W^D1Off}rId)l_LY"_@ʕfws=OQOyxH;mf{6S}=6r=34V4YG)>zSHgb..hozeGF[S+@"g|*5~ػ uMT tlkR&O_;`Hj7{S(XV)-~\:^5Vt-&U"yU"ށͧm݂FƵirmz>=ͶO)va"=l?_%W7ƺL{(T]r3"g"|Ƌ:˸I±%A[7F;casplVQrl_/He3W"θ(8^`XcدDߡ+ނ_H9{׽]w;pcbTb.y߻}>OxnG3Rţ|ːM ϟq@l~_uk@'!Ӛ ;ދydb92%[Kl# kkO]$ $4){+0"SyN {|kE]^ߪ/ .*/z_Yޥn 5E]Yp뭳jK{Pz<-VgPzm(k ;%{PoIo=kQ_]wnK\߲]I+7wmzzw鿡'`(9a.;xaAd 2ւs;s;s;s;ox}ǵglޞ$# {\s?8ה閶/5Ou~>_O܁y 5:kۄ cg߇|d[IVچ܇{u=iqQ##^z](zh {HG>K/XYޣ {t/+}$Jzݗ04Lnzsp7k!oƐWR UۮCf"6w;PZ{R=n5Qd )e/ȷ=O t{x}҉fabw9x $9}j}zw@z/B4$zϵz)ʔ/VwYzG}"z<[RV{H>$л"{=}hzo[ޕz SޕۖHo75w{zO ~p;zoG!j- 52m`3;znw*‡6^|M "p:>2EL6\׶{#KH:tO{#_O\q0Y?7o 4B*k{G(=<GZwp] Nrl|WS4#3m| Z@1{|+@3轃t+mѻTjlw_5oql]ki/5BP?xK},V'kiȧrsGc^j-tm Au.J~qm{O uT&ZCmȻҶٴ+><[\\]RW>˥ 4#08>KP9ƌ@;8!|KS\mP9u::wq H9b<\4=@[vmt\S_:6J_CNMjd;.-I|Wq{ OI]Ih+2\KsqiJuAu nj^@E0pA.M[nWW >j$\4jθdwtV '"J56vOl+~O1i?۶TvbF eo4o~@}ipr0G\őve| 3w6t-ǟa'=WferHі: mri*/W撶57;]1Wr%lA6:עx:: KxŋvJ/GYҞ!=_FȒ=m5 gCjrWHi\xjش;6v6ƶٴ^kkG.mp%(u٥A.yݾq*kunV.M|5V"@fcƔG>!n# uGYu4]n[{|!?H9 [:ܛOrq|UrLZly6.;Ya˾ >w|T ,өoTxr#]Zws0u+C=g #3T_ a{8?@npkB~kip AwrigyU'{4 Ai.;HW;f~4K;(#`purs=y3W}4O)MtUa̛'XH>ԵAP?K'e {ל~͛'09\ACހ[A (fe(Ke\0pcΥ7CrsܿЅٓ8 n%Tq-dv?@Q|h8d)l[L5ǍA_;|C*aq-S}<åm  o?*leYҶ w@:\HO2Ȍl1j[ 'gֆ_ /[~"?]Ml hV*Rk*p߳yu~φnie8oHo  Buԁj:==! Gc!e@O-ڈ{ƿT;U]fv帨4f sq [},Es1 a8yW8pojaذrNA(k-s>2J 5'gN(>*q:G.= #G-s/ų"˛3 x݃eM x75W˯Ry [YsY̥Hg*͑.MqxJ_%w* W48S3 rW|tKοC[s[5(dy7i8+S.˵*A KZF_DGg+;Ds1/8v|{, s~ʷl C7\-wyDZw1\\ _;&`)j|rT]f {˼xV<3/>UF\A }^}aQ(ٶ_j!aOu)?^˭?VwEimͿၭw,;t w!e9S`ȟu?+%WB[/MǨpFI>cY&=}!-׌KڵE~~)/tK&U="NEwS7pMеcߡ6"@_9:Ih׀* {~ucJ|d JssKS\Wst+*?܆Fªt֔B HJ'=Gy1rޘc[ed[1ڤY ʆs&l܁|([ԋl=*W2z'9!֯`ߓK^d#m) )v΁57ևaS zq199vh<3ٞm1¬oail¬=GlIMjL@stmsTWƏܞڳk*[> ҭ23׀ֳcl'"ukzzFzo8ee#FʩOVqql4ùE6Ld&_p;./c{ջ'kVׄd7H?q{ŶeHI.mk6B^+b/usA9LWfd&w醋K].Nz<ʙP.Σ W.pJS%@yEH͍B?ڦH |Z[MW# )W/'D󲃹2'_Ux"GLZ%b}=AkRR͋zGEenBfJS!5/ҧh.Ŏ~[soGSX\jO]\ܫ.N- 8&l(LGlS\TE>O@7/ESXzDs dyQAp68ٻ.N+8\\ KR[l.*mkV'qqz4;v""a^)68.S.NO ǐUl.*mkE)j,VwW]bR?+4reC^kˉٱyn-ohl~nZ:7_;! CBȐL8 (.6*UqiT%VԴZI-US%jh]+jM]*-jXM[m Fw\ IfO~yvyι&\.޻='~yߚ^p&E9wRi#գT3! ^ܧ ˪M[?5O͋,0ݕ޻`6jiT@xӖx z-o3wörO9$n7R~ H2 T>sWSG?G* @uy{0r=^H΅s!+M=oc}8&v͹z|(9ۑ0I/|Q@~g ⶩsۨ3Ly3?,2瀾+*H_Չ e9#<W^'ʱ h+NOr1'5aq3}98]G\3Wzs:bnq13|L;!BWL\5k]."R\ty\,섋B:ݙrF|(. E).ގ[E)og8^lf`-R!=.HED85V^sւ7UNX.9E\\>lp*#M?M%__e;&ˑ͠tB׵jZyVrԾ'zCp8 \ y\,vd]|>| .>鶩iSCdMvuQ"."b2Bpu$zdnBIŒN80 \,8е;.1d6m(mqє)ogRlc2:8 `%iK\{87_SbY'\,<.vg{-Gn?A65Df]TNyb#;µ=Ffw_1kpsλP +*wAY`L]Cqlqd.lgwrhwgbռľwbO5pIow]Ű]*Xn MuQe:Rΰ.G#>.U=N}Fo^N:ҧ|adQ  O(?iU%fփF1HPftд)kPiEvoqL<2t-č9@F_^UfLWg8*'p~,Dm _5֗򿠸A?7|=f PYgzWBoKg͙4>ϯ?ntQCd=T֙B^ Ʊt4 'FJWl9yOI {.` 3OAkr >uzư'j&tZDޏT:JʕnۇuGcfxx"l^Wvkˠaidps3cOҋ×?2xmW9.&mƐMef>2 )"p ~Ci:dobQN"Bz\UAϰT#a9? kI#+M=#;,pqEs\rҌb.n'ӎlg 2"QhE9>_9TUy8w5rA'y\ +QNdşaP׆1[M\]iHmuє)o&w Q9 2.P3dȕWzGw,pqJn!>b;,pQW&)Y>ܯ"uF!=.Uz_]5pI5n>ik'\.qqkw&\<?!m^|65Df]4e 0D.z֡Ǧbi;IO"9wqҜğ#-el'\- \qq7Lhj/wۼ96US޶tG8޵Gs2sS( ULWisiwS5&k*:tBtgd x.4y;l\'F4 8o݈bdеic9rҌ8g=mSL?USΰn܄=a7 qqBj.Oc=pR駑 :Wz'tݳ ww΄#i>אp{Ѧ*,\ {tl2c=;⩉cv뛉c8iA~N8> \x4uQ|y _j^ \m!yui'NCGG;Zt-{byp.ybVA"IS[ꄋ{d{y\d< M/@fu̡sєunG/nyY!}pq8w2\ CNK5JSޝpqbʼnÑ!ȍlpqFGu.6RgGXrE tVHvř47y[呉z턋dz\ǵ;.N7AHan3Ѧ*>u:;!HqQގ:DR~e+u5O,]qt5wέyka˞[3Μ߯[ܚ]+y5q|֌=汣)*iլ;*fn,G[S=.Pc[-N8?iZ"'+;O5W.u227g>tf<0` *Jr=q*6n[22ܳ?c'Z>>,gfu:XWz'O4kv󕦞:ؗ>|%l#l#ap8>_j뽊l6"мw2f}R39O~6čc[ϺVK8}6?vB8VĥƂa" ,gAU0z5|BWKU=78Ry{D( z _ gnY'U#^{)TWq]ƥWn rNYH7LAj]BD?3WuUQy.e~?H1E> QP:MxTSU_WIw ^X}m8#P741֒-Vs`--lW}H&޲Ŝ99*ƫ./k|Ԛ?bKBPh.;eUB.8:ac0ܢU5}-Il#=pqYSfY/~ߗ.RG־2ٵ:gp]?XijzWQ0#Nxӳ ~XFY1-q$Pعr*/2;/!z |8W>zOޅ4:S=ԺkZM(ZTHW=/6yMk[kiǤ).*6n&6-e kוּ{Y6[TcXuND'oz ,R:&K6!onp̳w y(y8bSiFS/],<њ3JVw)-?jJ jS`=M)WWԎmftsEz:FAOqH?qDݰ9.{vnoČ7qڏ%=,DZx k/Vٰ__Umkĩ6^\}Жyԋ"`Up-/:yغ? mV$b+[v=76ך/ 0;fG!C&"w:ÜuyfZK^MYMr^[Zi!>0$^\C]%n!r 8}; 24vyux>4A(+*eqD06]ʮtr隁IZ#>kMƗѤ6%|VOhzB@S?BV3ۿ>(/ǧSDP303* 8,m/n d?:/U<r}p.X c!ҦmI4nJ2^~3Fic_p(D@ԃt-0b ?|ppE~,݁`+XkpXz!m@{- (-j볢0WruҽWcóqPt?†!XR((+j)h-j'_.7_?֟~u+(4x]vd8˗5 %w&t(EWW$8j+nWě V[BMz \ /{2Pkh FC- I-߈0R! wD@:c||iNwm]Ї0ϡϣ<75j/(+38ĩڥc)KsM:")b וN:+#E0zi;ϣǃ?cX:Rm5ۥcg4jجc 7_/֡648vPcCc[vo\:^vi[n1}x$C :Iqgi]w%m*e@)ۧKd\/:> [mŠ`ۄ֒f&^GC %ep6̑ fLHg,mkRӻ7ڿ ׍_4ۊ&N.q֬++c^ua-㭥?l1@>Ilfտ9ݵ/' O"ᆱ#āї@uڑ x[Łsp V㯞=кr6:QYSh: VY EGƢ#Zl'=0X>Ců7E]ZO2^CÅ,U0$!?t=9]~2Xzh,5V#ˀn _Fq6){ߧ gT=C0;[ߓM(zꗓ4!0枔ISIF}~{R4m8+_c13W~ /{ p)6o',OfGf)}~.E(_W0|J2n|p0܃:@kѭ.XBuxr86zB_m y=5=n@S?A)|vF_񎅤\phIftҞF 9& N`6hdX={j?Fѫz1ҿ^~9y7IS֫Է^=J:&WS E[~(y^%&ޤwϛt2>M훋^ܿ:֟5W5SfoeB⧻ue+𗛲.҆]MBٖ݉'7 }N?koi>n_k f_ . Fz|*o[.; 7>3 lWC6Ԏǂ@!'D1}Ow6vY7K&xfVc>XtN>K.p8GJ.aƠ.ϛ\E53yzRcf^<Nt+O 27d-UXC`bR<}ݥV 'ZW5ohz^>OU y 7mp3VπKG?Kx:&Sn"*X^w:51mv=jj_k[?KQhu%N{}}kKxm"={^l9?4Sx> y=dLej*l; ڼz3쿕o^NqW[ [f zZ/fΜ|hV2d~1͜F{ .NBsMs?Y5 Wߑ|\aԾξɾ+'kh:xl}(\bٿ;`mF[fUu ޟ {y]DB,>*\{%+ru}5Ǿ5~c?j J)/ /{a Ňرsi]`mß9̮aaͷqVvqSxPp<Z/ |B_ܿǑ"MSVWyӶ<!cW!dz|ڮH?t=訵iǻiH'V,G Ͷ>@=StSIaV:RRH=[rrgtv&=5'#d[v=٩;@:A0zG}qڟԷBP^nu=}9᝷xm&0Z~5[ F5BZv ҇80R\lZE"ItӳG`apxt@(Ac>=OHͧd[ 7zr>=@FmͧiڀLCk إ,[ ]4]e_|1qIzo}12zuҺxx6nMM,'݃a)$ۚQLIOQ-C2Cٴ2$~@4S1t9KLP)mQYw<ж[ttz̽n15oKc-P7,<ޡKѡ Ii ذ[_ }sk:i7l>Vd E7<:,ЈuȵHϤv:kVпRu0 /z F=ҝs+N[Hw7|0E#;U?Þzd %D|^̼8(hjĆ6Gdž1LKeV7`ufb Ο1ѳ?^YN]X{>겭 o=~i ]Kk=_jO}A}|oH'T. 0pDCŵ7f~jjcU<3H8YȜa|o(UA׉6u :j#ٜ9iߎ츉WOh> y*雑D*K_5}i]9heuW7 eߦAmA# .l%\f8\nȂuCڂX(-:>^эkG1`rrgtv&^GG3:RN?tQ~Vttss(٠2ߢ VV^Z9iL\:j~]‰o@sGvO&(1q5%j(P8R m<~Ŵ}~׀;̤Ǐ@`ǓYQX˽sPܤ_悻R ^^m?黎99sJA('q0ٓ uY-o+CGE投 *,*ZY0 ;qB_߀{!qB:1s5[+hKQ*'GlAv8!: nBF&32,ʄ"`|ԝ5ͺ~k칌_@YHٕ.ީDݰ9枭8x &xe/!iTk ;{=a0w7cqlOTl<olOm5e:жƩTqCR틕Áُ?Ho@T^x>GM vhCPg!tLuā{9`L@/flqt'r=k痑ƕqhR|A{!Ufy'H#HD1Ky)R|%T`pGA)اo%h7QHoWښ9>[ƻDfwbkIV~T򧂑] l3_ dT?-l8RV<+ V8(l=_ж~Gaͽj{ [5a~k;7zW$R>_=iXiߗ&NqUoXw?`~8X 9o]*de1RY͓5OuxӰuchK'?ь7VD=k*NwDR\FQn;DABA=0:tt].Fvu=1БBGL[~Ziuo6-:nZmehK}v}5wOFOd*k ԎnJCMxXemuxt}"< RWBsD]O ת Ӿa;zK! L>[Xs6h $փqwt; {5H?>pHkxuG}H64Iά%Fkwaz'iCkI=7]x: ~G}B >+q@wf%ά~k%]=R|)K!!. ksIOx 9yRs7 k+W"5wwa*7, 5]؎lM>N:6) 0Kj_uG_Qnomf\:OqinC4d/C*Dݹs^VHy 8E{sѳ'[T(&sA)s[k25$5B;^w _ [⫷]Ɖ-[3x8t%~ ːo!56XxDslS?yi;f;")6@&t[ڷEٷ?+pˌ0?Eӯ;kzXSJ?6u`\~t-[H={#ž{|kwm=7]I/wq}/]ݴ;žks}Ӹþ;=[y'iӾ߅Ymp}ߧ9+wǣw]˶ue:j1ijmS-3lurv"zn_wU>lKWo]kaMu}wp/tw_n9;8rOҤm&i"LeڦmRhAk O/P5J[e.m dX,eW-|  ( M!I'ˤ|8y{y_d&see]=4H1|E2+Owyթ$?x轮|؍->B--F.?x8+}'~3޷;6P +qkGb',6x \ @p~ғ}M,lmʓ8B=yg_طϕd_h}nl/L6Pqls/4?7 mߚ/Tɩ}jwyթ2[—|z6]~}`$ Nygl8zǵ/þ؉-~ /Գ鑰/Iׁ ^P7i,G {7GpOSB}P ;¡~/c_5cwh|pd{,} c6B۷f Unr/TJ(s_x4ҳ|Rǀ#q_8F⾰dT#a__]w|\Bx> k !ѾPߌ}aOt_}U|_x)R^\  $Sz]}M >2S{/\;_gŔF[BTvHa5iKh婿C'P߾} G!C !6]5ՐgL iژ|9"G&7)7ϘtMD c4x}1E?/~?~$9!t~S:鼒y7[G'>hݻ QV@&}M )f_jg*?&I啐dC96tNUPsMlrsMmȟ&cj:Gkyڐ-'Yצq-pIc\|@Q{՚=4'֨CRR&HIF,32.f쯽Dy%h6$j ";-xub0p#}Hp2@z'e:(ִhHY, a?iz 2؟\5{r;} *BcsrbzlP~C@|[>M\8]{Ǒq1{AK-\em5'[C2?[ SfM..bKb횇68]ҎQ%vu$ ?wlwv-K:F->;ƱslcRlM|9;c u_GԫwخZ2AH}(ePȘ_H _Pl\G,5C|lϚ[MeLgOmNeدb){ Jnپ_;Qe+}_yз>_l:54=T?ĹlVg7ZcN:.oa3m*XȘq|{qObEWsAU;jo/a7)>~`[d5P3eVLf-z+l^'/KIc)AL>PAބHa}zB|S6ԏH\2lf)|0')SdP?[}CtZvN;'/skedөAxRſќŠUAS&|.Ob2P> )l:\,3>ӎzqvqŧd2fƧm1PGz퍜>r*!M-f81jzӏ/qNr,˃cc[WwNzmͼw<z]ܽV&]Wq,{i=ej6< ^g@$A$QH|CyxZȷѹ`i̊ lk*h+t< >%~Hh'yb{7>u!>)E9R]8>*!IvfCͿ >3cgE抔ڽY҆;@o5֓eS^E=٫fx<!?3kl/ EdQYo_2lIT'H~*r}8ScG#Eʧ) >o(g9gV&Y@O%d.66R>A_jEPo~i+}4@Bȿ_!2ٯ'8w&֠Bv%Rގ{#4ρ]@ٟ)S۞xoeaez3T2ٚK^cC쳖£~sX %BT|µs6Uzq6qYoX[ODzcwuGѠ ݛ$A$?RH{Ǖ&<b;0G/rLc2 ly>xi5eS(S=\>Tt a @0$ v|^w15"囋φ">~L!TGݟqPwqp5:W>@!=F uH#}ϭxʳs Qٵlj"}Pք6E4dl!x,M|> xHjA"僇͆_E2x筭SEbD]LGFOk>GnܵW<^LY} )/8W*t+R_biޘ[v9eoŖ/JMP)=r?A7l$nK@\|7e@>]z_uu \;ڟ46 u] ?})\+) Z7S5B/齝 !,&צQkvy]5'KPK4={ǬϪ~dQ |ʑE?wݎO o6RعgM;Ho􅺌%]Ocoo5>kǟ+:ʞG6pwzO>p9_O1HaH6l4>*oגߠtx21*mUHXl( _C J=qb}fUsw!;sh|OAO@WB 6֊Ӟb ƹSݘ̘YM}ɦu7 e]dFt'ۏ6k^G)J?Bo!%]f8D:i^}"Oɣ) *RRZƧ D'=7DH?ߛ Jӡ7:l5B*9t9oyƣ&O/[lj[ IދJ@Kӹ҉/$|sQj_sQlD|jl'{'бs7޽јZ~0s$,t(uKI~vO]o躡"A7R{+i޺@^ާq\ iwsP:G<_>5BsˠP&Mo3:\@c3qs8zdT Cҡ 첋l!"TV!#/0]s(|I@8cu}>>R;_guҤ0 _<Asi񸘾4&w<|Yw @&>Ngw:,:_9 )e3h|H XO?c!ɢ>~/ǣUOOَ^Bv1elӧwdtP5AZdq鸊56&Z?+!kksBP!GCV_ Q/ [V_뗦Y]fÙtJo(WA7tT;{ (k}$+շ.94k͜u'@B;E T)5K(/ipUP߀$zyQYM_B2H%^P}ncx_ݧ@EW!P)lM%/=i-Z[}Ƃra_^Xȏ*Erj WkGǕaw>#ƻГόŒޟ9S@:ț#JnFB,)p(cdU`AwZ /l;x:z,GmR6? ]|^}kޑq 8Ԉgҗbc`XqXR|KZ}0{œꪍE[ ~`Q"ëjU2ٚK^{tP~O4WiNcc1տ'G'd(+F\:tT}@d{*FFx*4=.*@şWN^TVybDh$Q!vH$!0rK/[t, cwcKbKZ6vs^GeЯN拁w`~i3Џ@IKX%كGe,= RXYb/1%2%ce6#9~Ϣ> 0k4籴^>#:hK+(uO o\Fֺj;JQ&0ԟBJ|͆P)M6*=tcPkΩnC-y"z-R16XO,؞A4d;=|e-*W*S)N뾿}ӿ'GNd;'B-DDH|?~X?9C\b/ 0X%g ٘L%}wg_] WA%wώm+5,2@dN QkN"67RHQ $k+Sh~7D4*tR̴,NE[@4܀{98 =k[ny7?F[5pweaˏUDstic } 9Ǯgs:ț) A}^EAcU@s qk>a6kYwlr;w׶Z,G'SgFS3DmL@lf<怎oxfy Ddפ!#/^{Vsl>u Cm{b7 C Cj?{dYšG2.F6v!uk\QrrrHɹZ Sc[OCn}H{IR+2>_fڿuzҤ|`(~hbz2&l?t= {=d1% CiY]o5 ^/3kSg&˓Y{YyqvzQfUA_M}δ=w}ƛC7?ʓWyy=A3 k3(E&]dփ0yKj&Pdk"ߗlM,]+:Kbuv:;Q$J#{H4/~ =@/;ٔ&9% F zxsKjycIￊ_َ>$4|(VP n4\a<ߨΏgr:u?%[}͟iXDaT~4R#&3Ao,|O}.iMojm  !"#$%&'()+,-./0123456789;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnoprstuvwxyz{|}~@2iwz*K;K+X:̌%?ϧXyCKXJK٬KYf.EX.E#.BOŒCX,ePvdS,y`UX̌K(˧XzPX5h1ui<֥֥K5KEOғR6e,F6O6R,=fңS,=>עk; Tza&3 /b{Q{+iA%{g9dLI%=XyGT:foit旔Ͽ䅚5%Pz]o>VB&FQV'{{!)7,>Gh_1lyJe;X5^*Hv!uQWڹJO- Me ecO}zӵ轠RiGw1غ%<?w>gZLKi)3c]l]446"8\ۿ?=3Su1ϙjLIV:%tx=v ϙ oGy*ϚK&8yLo%PsƟ8?Adsx= EjW ,+~G|$_">czsڝdPٽ#8$d5WU>(o*!kkR~WP$VPXG'撖Ż]ey:}v4y,@^ BOS]ʫ88Ks_%(?A4ci;lG[]OmhcBn,%X2RXKQbi9XZtz*XB_MsKW!|zZx$@_$&|%GEMPRN9٠֥%š%mmKC`Ɣu~[%2;l\ n7kgcO6P6Ө#@=X:k#(R/{<Ϡs?@%qyll_DJO[+{֥ y4[e@l~k 5_P6 =C߽>kiV@bIu@͡ݼʫ xhWl(~D7*4(9龪򦑸S,}eK_R0tX~]ibi"4XD,M".]4+?AEW!#(9{'Ptz*#n^4nE6R hկKӗb^.$~*ˇXuK=2) :>YkYER*NFwW͇.o>,bwu`H}=g=}t<9k-l@Msͫ m]zK2KR&~KB?#Ha(ױ秿sb}^jJ|ގj%kjjvLMؘ֤XO%zY%[}Mw̓X3''A͡k,oO뒞5a]һ_"\ǒ @V4:}zh?%S٘X*Do4'Tl![9]xsKe4~G@XC,bjeutE!$[;I9sR|Wrn=ؒEzϲZ,lY?}&q4ΛUG,m@ORXF_g$t3&+Ǩ(˧X8x=ޅ _==^۲I'-OIDS:];nmCK9cr%jqy7)7{җ~]Q&SY>K0= *K6~a!}n:|X %gu$gŊcDwX[]YY+_{!x{#:6,2u5gɚW;%/_-W[{>BmM&|fX\Kf6o P8Ie3+GɞY5R>~<_1Fg|fXB9c+Fs^9S3XDف]]g¹1%~^y+ 6r֍BTxomJfJ24_c.{cp{b`"ӱS C&Hr*t=*=m>wiu u]>X>_* [5Y3[}v4jWw#ڮƻГo{˫8ʗW<|SYM6SwdkW2/N4!#RsKU;#b }kh?et>0Vl6dnvUsN!ȶFaC.9ե@4Mjʿ7JK,>gh0OJPcKVPb)5"9goEjNrB༽sk+lLGr,݆A|<'edl׮5Zh/G픉 o҅(9( ](sKVHG ƤXI1ɱomtV_ӝ&9`$dqy7X,mσ_Xc˗X( |"\'3]=Vbv˔٩ԖH=ؒ_3y,} ~l7n4~a]ڎ"w?A0X~ c) AaDaƂډq ,G;H5Ic*G)04޸k,]K_F0n,}z8ٓtA:Nnv-B6)O=㾍e 8q}0pnt7[ŽVbq.#D$2Aeql>wJaH5A-lC*NڟƆlP Y[}\EjދG mHQty(|ۨBkMG}"=<o [}Mw|ӳ#atx4hc˩.UkC!=׳cADL:ț׶qN(LP pnC00x6rKwd|l[mE[c+++WiYzt nꃾ?4y,ݍl'>_A]sKb486gR&SY>WG׶R0X:tm#ЮmWLھ"55255̏k{S׶m]f3CXkL4jOiKׯ@XE|OeK/ 27@0XJVT~PRxIPi☶m-C`~{3:V}&976#WA=X*;yc#͆i tD@<[1Km be |--}`,/y}Ǡoa5icEd|FoƛC7/?Wq<z5[x{)KeK[9?8ZNr]OI`z]Zĺuib֥ŬKc]ZZN胾4y,@[`4cvte=C,>0pFZ E)}ewœ̽Ju`=dh[SKcu.76)ҩᶥ]zqߗRh'9P#y>[I8HcjC6+ߝAEW!#/BN},lb:OffyJl'K>5KvU! _lB޹码iScsi(1o-k;ƞ#=M"2cuOE0_mk7/;mq2X u,;=v+u/M=tg2fz.=S+ߨ胾/]dc_+LiPziL4w#[XSn^UYs'O}4'@? tTVy!+!U0(=&/KJ_}t_|Y&^̞fLzG1kzbO^1eud?=y] [XO^}Ye2fu4NA9q՝1c?`hoK깫[Ǜ/ٹ;;q.^b(Il1lrKwE}?pYKi}owLp܅@X)C \S AA@A@   ComponentChillerkWTowerBoiler SubCategory Heating Plant Cooling PlantCHW DistributionHW DistributionAHUPump_CW Pump_HW_Pri Pump_CHW_Sec Pump_HW_Sec Fan_Supply Fan_Return Coil_Cooling Coil_Heating Tower FanTempOa Chlr_AmpsChlr_kW Chlr_%SpdChlr_HzChlr_ChW_TempInChlr_ChW_TempOutChlr_CW_TempInChlr_CW_TempOutTwr_AmpsTwr_kW Twr_Fan_Amps Twr_Fan_kW Twr_Fan_%Spd Twr_Fan_Hz AHU_TempOa AHU_TempRa AHU_TempMa AHU_TempSa AHU_TempSaSpAHU_Fan_S_Amps AHU_Fan_S_kWAHU_Fan_S_%Spd AHU_Fan_S_HzAHU_Fan_R_Amps AHU_Fan_R_kWAHU_Fan_R_%Spd AHU_Fan_R_HzAHU_CC_A_TempInAHU_CC_A_TempOutAHU_CC_W_TempInAHU_CC_W_TempOutAHU_Vlv_CC_%opAHU_HeC_A_TempInAHU_HeC_A_TempOutAHU_HeC_W_TempInAHU_HeC_W_TempOutAHU_Vlv_HeC_%opAHU_Dmpr_OA_%opAHU_Dmpr_RA_%opChlr_ChW_TempSpChlr_CW_TempSpPmp_ChW_Evap_PresInPmp_ChW_Evap_PresOutPmp_HoW_Pri_PresInPmp_HoW_Pri_PresOut ChW_dPres ChW_dPresSp HoW_dPres HoW_dPresSpPmp_HoW_Sec_PresInPmp_HoW_Sec_PresOutAHU_DuctStcPresAHU_DuctStcPresSp ChW_TempIn ChW_TempOut Blr_TempIn Blr_TempOut Blr_TempSp,Input fixed flows as well as fixed V and Ph..Should data be kept separate from output file?cCan we have them enter the list of equipment first, and use that to filter the options for mapping?AGive list of points up front, perhaps by type of chart(s) desired<Add separate type of weather data for bldg vs. NWS or other.YUse full point names (non-shorthand, but only maybe user's names) in metrics and charts.AGive users options to have a different name than EMS or tool namePmp_ChW_Evap_gpm AHU_Fan_S_cfm AHU_Fan_R_cfm AHU_HeC_W_gpm Pmp-CondW_gpmComponent ShorthandOrder 1Pmp_ChW_Evap_AmpsPmp_HoW_Pri_AmpsPmp_HoW_Sec_AmpsPmp-CondW_AmpsPmp_ChW_Evap_kWPmp_HoW_Pri_kWPmp_HoW_Sec_kW Pmp-CondW_kWPmp-CondW_PresInPmp-CondW_PresOutPmp_HoW_Pri_gpmPmp_HoW_Sec_gpm AHU_CC_W_gpmPmp_ChW_Sec_%SpdPmp_ChW_Sec_HzPmp_HoW_Sec_%SpdPmp_HoW_Sec_HzCountthermsthkWh therms/hrth/hrBlr_th Blr_th/hr Bldg CategoryMeterNaGasElecBldg_OaBuildingTotalBldgTotElecMtrNaGasMtrkBtu ElecMtr_kW ElecMtr_kWh NaGasMtr_thNaGasMtr_th/hr Chilled Water Pump_CHW_Evap Twr_TempIn Twr_TempOutPmp_ChW_Sec_AmpsPmp_ChW_Sec_kWPmp_ChW_Sec_PresInPmp_ChW_Sec_PresOutPmp_ChW_Sec_gpmDampersMeters Meter_Elec Meter_NaGas SubsystemsLevelCaptionPosition/MacroDividerFaceID SelectDataMonths MonthDaysDays WeekdayNumWeekdaySchedule Times Day SchedulesOccStartOccStopWeek SchedulesMonTueWedThuFriSatSunHolYear Schedules Starting Date Ending Date Week Schedule Starting Day Ending DayJanuary DaySchedule1 Quarter A DaySchedule2 DaySchedule3 DaySchedule4February Quarter BMarch Quarter CApril Quarter DMay DaySchedule5June DaySchedule6July DaySchedule7August DaySchedule8 September DaySchedule9October DaySchedule10NovemberDecembernumber of schedsWeek SchDay Sch Day ScheduleOcc?Occ2 OccupancyCreateSchedules DefinePointsDateLegal HolidaysTextDateYearMartin Luther King Day Good FridayEaster Memorial DayIndependence Day Labor DayFriday after Thanksgiving Christmas Eve Christmas NormalizeSFIntegrateOverTime BldgSF1000BldgSFNormalize_kWperTonNormalize_gpmPerTonNormalize_CFMperSF AddBinTempsCreatePrePostDates Chlr_StatusPmp_ChW_Evap_Status Twr_StatusTwr_Fan_Status Tower_Fan Chilled_Water Hot_Water Boiler_Status AHU_Status Fan_S_Status Fan_R_StatusPmp_HoW_Sec_Status Pump_HoW_SecPmp_HoW_Pri_Status Pump_HoW_PriPmp_ChW_Sec_StatusPmp_CondW_StatusAHU_Dmpr_ExA_%opCreateScatterChartByOccCreateScatterChartByDateRngCreateLPbyDaytypeCreateLPbyMonthYrCreateLPbyDateRngCreateLPbyYearCreateCalendarLPAll YearChart3dColoredDaytypes ContourChartE&CAM CreateLPbyDayLoad Profile by Day&type &Select Data&Definition of Points+Input Dates for Comparison of &Pre and Post"Create &Bin Data from TemperaturesLoad Profile by &Month-Year&Load Profile by Date Range (&Pre/Post)Load Profile by &YearLoad Profile by &DayCreate &3d Load Profile%Create Energy Colors (&surface chart)Load Profile &CalendarScatter Chart by &Occupancy'Scatter Chart by Date Range (&Pre/Post)&Create &SchedulesCreate &Other MetricsSca&tter Charts(Convert Table format to ECAM List formatCombineTableIntoList &About ECAM AboutECAM PureScatterNew Year's EveNew Year's DayNew Year's Day, celebratedPresident's Day Columbus DayThanksgiving DayIndependence Day, celebratedChristmas, holidayChristmas Eve, celebrated01/01Saturday01/17Monday02/2104/21Friday04/23Sunday05/2907/04Tuesday09/0409/1111/23Thursday11/2412/2412/2501/1502/1904/1304/1505/28 Wednesday09/0309/1011/2212/3101/2102/1803/2903/3105/2709/0209/0911/2811/2901/2002/1704/1804/2005/2609/0109/0811/2701/1902/1604/0904/1105/3107/0509/0609/1311/2511/2612/2303/2503/2705/3009/0509/1212/2601/0201/1602/2004/1404/1604/0604/0803/2103/2304/1004/1205/2507/0309/0709/1401/1802/1504/0204/0404/2204/2404/0304/05 HoW_TempIn HoW_TempOutNormalize WperCFM$Future adds kWperTon (or other load)%Future adds gpmPerTon (or other load) &Zone ChartsCreateHistoryChartPoint(s) History ChartZoneTerminalZ_TempSPZ_TempZ_Occ Z_Tl_Dmpr_%op Z_Tl_Rht% Central Plant ChW_TempDiff HoW_TempDiffBldgAmbient Bldg_TempOaAHU_OA_%AHU_Fan_R_StatusAHU_Fan_S_Status AHU scatter AddNewData&New Data was added to "Data" worksheet ReTuningCP ReTuningAHU&Time Series ChartsCentral Plant Charts AHU ChartsAHU Scatter Charts ReTuningAHUxy ReTuningZonePNNL &Re-Tuning Matrix ChartsInformation about Matrix ChartsMatrixSelectedChartsInfoMatrixSelectedChartsMatrix Selected ChartsMatrix All ChartsRe-Matrix ChartsMatrixAllChartsChartMatrixCreation(1)ReTuningZonesAll)Zones Common (compare zones on one chart) Measure EndUnits TemperatureDamper Opening [%] Reheat [%]Outside Air [%]Valve Opening [%] Water FlowCurrent Power [kW] Speed [%]Frequency [Hz]Air FlowStatus Air PressureWater PressureWater Differential PressureWater Temperature DifferenceThermsTherms per hourtherms per hourPower [kW] [kW]Electricity Use [kWh]TempTempSPOcc%opRht%%TempInTempOutgpmAmps%SpdHzcfm DuctStcPres DuctStcPresSpTempRaTempMaTempSaTempSaSpPresInPresOutdPresdPresSpTempDiffTempSp MeasureEnd Opening [%] Z_Occ_StatusTemperature DifferenceStatus or Occupied Status;Toggle Scatter between all timestamps and aggregated valuesDaytype and Occupancy Metrics)Occupancy and Month-Year Combined Metrics'Daytype and Month-Year Combined MetricsMetricsDaytypeMonthYr2MetricsOccupancyMonthYr2CreateLoadDurationChart2Load Duration Chart (Point Frequency Distribution)MetricsDaytypeOccupancySFData SummariesSummarize Data from PivotTableInformation about Data SummaryDataSummaryInfoDataSummaryPivotTableMetricsDaytypeOccupancyR2DataSummaryRawDataSummarize Data BoxPlotLP StartupStart ShutdownEndCopySheetAndUpdateChartSource+Copy Worksheet and Update ECAM Chart Source-Chart to Check Input Schedule (Excel 2007/10) ScheduleChart)Load Profile as Box Plots (Excel 2007/10) ECAM Help*Metrics for Points Normalized per Sq. FootECAM &UtilitiesShowHelpNormalize_kWhperSF< fe5F[+O~N UZ j:  o? ) [ M [+\,Y}Md4{6zJ: zJ: a: l)h8 O j:p`0~Nh85ccBOUj_ KU f2ɂ   dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"CX??&cUT4<(   4 JA??Picture 6607)]&4`x  s >A ?@OKButton1P&<P(]` 1 6$Forms.CommandButton.1D> @  w SystemDiagramgg f2ɂ   dMbP?_*+%&?'?(?)?"d??&UPH 0(  >@wMetricsDaytypeOccupancyggD f2ɂ   dMbP?_*+%&?'?(?)?"d??&U>@MetricsOccupancyMonthYrggD f2ɂ 4  dMbP?_*+%&?'?(?)?"d??&U>@MetricsDaytypeMonthYrggD f2ɂ   dMbP?_*+%&?'?(?)?"d??&UPH00(  >@)))w MetricsPerSFggD f2ɂ {]A  a$)*/5;IAGLRiX1^cioQu{q9ɝY!yA   dMbP?_*+%&?'?(?)?"d??&U} }  } { @      , , ,        ff ff ff ff ff hf ff ffiiiijiiii ffiiiiiiiii ffiklminlio ffffffffffffffpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrr(T*** !"#$%&'()*+,-./0123456789:;<=>? fqrrrrr!fqrrrrr"fqrrrrr#fqrrrrr$fqrrrrr%fqrrrrr&fqrrrrr'fqrrrrr(fqrrrrr)fqrrrrr*fqrrrrr+fqrrrrr,fqrrrrr-fqrrrrr.fqrrrrr/fqrrrrr0fqrrrrr1fqrrrrr2fqrrrrr3fqrrrrr4fqrrrrr5fqrrrrr6fqrrrrr7fqrrrrr8fqrrrrr9fqrrrrr:fqrrrrr;fqrrrrr<fqrrrrr=fqrrrrr>fqrrrrr?fqrrrrrDl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@fqrrrrrAfqrrrrrBfqrrrrrCfqrrrrrDfqrrrrrEfqrrrrrFfqrrrrrGfqrrrrrHfqrrrrrIfqrrrrrJfqrrrrrKfqrrrrrLfqrrrrrMfqrrrrrNfqrrrrrOfqrrrrrPfqrrrrrQfqrrrrrRfqrrrrrSfqrrrrrTfqrrrrrUfqrrrrrVfqrrrrrWfqrrrrrXfqrrrrrYfqrrrrrZpqrrrrr[fqrrrrr\fqrrrrr]fqrrrrr^fqrrrrr_fqrrrrrDl`abcdefghijklmnopqrstuvwxyz{|}~`fqrrrrrafqrrrrrbfqrrrrrcfqrrrrrdfqrrrrrefqrrrrrffqrrrrrgfqrrrrrhfqrrrrrifqrrrrrjfqrrrrrkfqrrrrrlfqrrrrrmfqrrrrrnfqrrrrrofqrrrrrpfqrrrrrqfqrrrrrrfqrrrrrsfqrrrrrtfqrrrrrufqrrrrrvfqrrrrrwfqrrrrrxfqrrrrryfqrrrrrzfqrrrrr{fqrrrrr|fqrrrrr}fqrrrrr~fqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl     fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl !"#$%&'()*+,-./0123456789:;<=>? fqrrrrr!fqrrrrr"fqrrrrr#fqrrrrr$fqrrrrr%fqrrrrr&fqrrrrr'fqrrrrr(fqrrrrr)fqrrrrr*fqrrrrr+fqrrrrr,fqrrrrr-fqrrrrr.fqrrrrr/fqrrrrr0fqrrrrr1fqrrrrr2fqrrrrr3fqrrrrr4fqrrrrr5fqrrrrr6fqrrrrr7fqrrrrr8fqrrrrr9fqrrrrr:fqrrrrr;fqrrrrr<fqrrrrr=fqrrrrr>fqrrrrr?fqrrrrrDl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@fqrrrrrAfqrrrrrBfqrrrrrCfqrrrrrDfqrrrrrEfqrrrrrFfqrrrrrGfqrrrrrHfqrrrrrIfqrrrrrJfqrrrrrKfqrrrrrLfqrrrrrMfqrrrrrNfqrrrrrOfqrrrrrPfqrrrrrQfqrrrrrRfqrrrrrSfqrrrrrTfqrrrrrUfqrrrrrVfqrrrrrWfqrrrrrXfqrrrrrYfqrrrrrZfqrrrrr[fqrrrrr\fqrrrrr]fqrrrrr^fqrrrrr_fqrrrrrDl`abcdefghijklmnopqrstuvwxyz{|}~`fqrrrrrafqrrrrrbfqrrrrrcfqrrrrrdfqrrrrrefqrrrrrffqrrrrrgfqrrrrrhfqrrrrrifqrrrrrjfqrrrrrkfqrrrrrlfqrrrrrmfqrrrrrnfqrrrrrofqrrrrrpfqrrrrrqfqrrrrrrfqrrrrrsfqrrrrrtfqrrrrrufqrrrrrvfqrrrrrwfqrrrrrxfqrrrrryfqrrrrrzpqrrrrr{fqrrrrr|fqrrrrr}fqrrrrr~fqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl     fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl !"#$%&'()*+,-./0123456789:;<=>? fqrrrrr!fqrrrrr"fqrrrrr#fqrrrrr$fqrrrrr%fqrrrrr&fqrrrrr'fqrrrrr(fqrrrrr)fqrrrrr*fqrrrrr+fqrrrrr,fqrrrrr-fqrrrrr.fqrrrrr/fqrrrrr0fqrrrrr1fqrrrrr2fqrrrrr3fqrrrrr4fqrrrrr5fqrrrrr6fqrrrrr7fqrrrrr8fqrrrrr9fqrrrrr:pqrrrrr;fqrrrrr<fqrrrrr=fqrrrrr>fqrrrrr?fqrrrrrDl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@fqrrrrrAfqrrrrrBfqrrrrrCfqrrrrrDfqrrrrrEfqrrrrrFfqrrrrrGfqrrrrrHfqrrrrrIfqrrrrrJfqrrrrrKfqrrrrrLfqrrrrrMfqrrrrrNfqrrrrrOfqrrrrrPfqrrrrrQfqrrrrrRfqrrrrrSfqrrrrrTfqrrrrrUfqrrrrrVfqrrrrrWfqrrrrrXfqrrrrrYfqrrrrrZfqrrrrr[fqrrrrr\fqrrrrr]fqrrrrr^fqrrrrr_fqrrrrrDl`abcdefghijklmnopqrstuvwxyz{|}~`fqrrrrrafqrrrrrbfqrrrrrcfqrrrrrdfqrrrrrefqrrrrrffqrrrrrgfqrrrrrhfqrrrrrifqrrrrrjfqrrrrrkfqrrrrrlfqrrrrrmfqrrrrrnfqrrrrrofqrrrrrpfqrrrrrqfqrrrrrrfqrrrrrsfqrrrrrtfqrrrrrufqrrrrrvfqrrrrrwfqrrrrrxfqrrrrryfqrrrrrzfqrrrrr{fqrrrrr|fqrrrrr}fqrrrrr~fqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl     fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl !"#$%&'()*+,-./0123456789:;<=>? fqrrrrr!fqrrrrr"fqrrrrr#fqrrrrr$fqrrrrr%fqrrrrr&fqrrrrr'fqrrrrr(fqrrrrr)fqrrrrr*fqrrrrr+fqrrrrr,fqrrrrr-fqrrrrr.fqrrrrr/fqrrrrr0fqrrrrr1fqrrrrr2fqrrrrr3fqrrrrr4fqrrrrr5fqrrrrr6fqrrrrr7fqrrrrr8fqrrrrr9fqrrrrr:fqrrrrr;fqrrrrr<fqrrrrr=fqrrrrr>fqrrrrr?fqrrrrrDl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@fqrrrrrAfqrrrrrBfqrrrrrCfqrrrrrDfqrrrrrEfqrrrrrFfqrrrrrGfqrrrrrHfqrrrrrIfqrrrrrJfqrrrrrKfqrrrrrLfqrrrrrMfqrrrrrNfqrrrrrOfqrrrrrPfqrrrrrQfqrrrrrRfqrrrrrSfqrrrrrTfqrrrrrUfqrrrrrVfqrrrrrWfqrrrrrXfqrrrrrYfqrrrrrZpqrrrrr[fqrrrrr\fqrrrrr]fqrrrrr^fqrrrrr_fqrrrrrDl`abcdefghijklmnopqrstuvwxyz{|}~`fqrrrrrafqrrrrrbfqrrrrrcfqrrrrrdfqrrrrrefqrrrrrffqrrrrrgfqrrrrrhfqrrrrrifqrrrrrjfqrrrrrkfqrrrrrlfqrrrrrmfqrrrrrnfqrrrrrofqrrrrrpfqrrrrrqfqrrrrrrfqrrrrrsfqrrrrrtfqrrrrrufqrrrrrvfqrrrrrwfqrrrrrxfqrrrrryfqrrrrrzfqrrrrr{fqrrrrr|fqrrrrr}fqrrrrr~fqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDlfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl     fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrr fqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrpqrrrrrfqrrrrrfqrrrrrfqrrrrrfqrrrrrDl !"#$%&'()*+,-./0123456789:;<=>? fqrrrrr!fqrrrrr"fqrrrrr#fqrrrrr$fqrrrrr%fqrrrrr&fqrrrrr'fqrrrrr(fqrrrrr)fqrrrrr*fqrrrrr+fqrrrrr,fqrrrrr-fqrrrrr.fqrrrrr/fqrrrrr0fqrrrrr1fqrrrrr2fqrrrrr3fqrrrrr4fqrrrrr5fqrrrrr6fqrrrrr7fqrrrrr8fqrrrrr9fqrrrrr:fqrrrrr;fqrrrrr<fqrrrrr=fqrrrrr>fqrrrrr?fqrrrrrDl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@fqrrrrrAfqrrrrrBfqrrrrrCfqrrrrrDfqrrrrrEfqrrrrrFfqrrrrrGfqrrrrrHfqrrrrrIfqrrrrrJfqrrrrrKfqrrrrrLfqrrrrrMfqrrrrrNfqrrrrrOfqrrrrrPfqrrrrrQfqrrrrrRfqrrrrrSfqrrrrrTfqrrrrrUfqrrrrrVfqrrrrrWfqrrrrrXfqrrrrrYfqrrrrrZfqrrrrr[fqrrrrr\fqrrrrr]fqrrrrr^fqrrrrr_fqrrrrrDl`abcdefghijklmnopqrstuvwxyz`fqrrrrrafqrrrrrbfqrrrrrcfqrrrrrdfqrrrrrefqrrrrrffqrrrrrgfqrrrrrhfqrrrrrifqrrrrrjfqrrrrrkfqrrrrrlfqrrrrrmfqrrrrrnfqrrrrrofqrrrrrpfqrrrrrqfqrrrrrrfqrrrrrsfqrrrrrtfqrrrrrufqrrrrrvfqrrrrrwfqrrrrrxfqrrrrryfqrrrrrzfqrrrrr:PH@|0(  |>@""" wptUpdateForCharts3ggD f2ɂ   dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dXXLetterwidm      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|}~"dXX??&U}  } m} } }                O#"@ %(B#@ % B CP Q R T S U  o Fr F Cn C\ Dv C C D[ E Eq Ep  Es  E  E CCD D{ G| B}&B D_D@ BldgTot_kWE&A D_D@ BldgTot_th& AT  D_D @ BldgTot_th/hr& AT D_D @ BldgTot_kBtu  Az#@ % B~ ?E Ey Bw B~&A D_D@ ElecMtr_kW&AM D_D@ ElecMtr_kWh AAA #@ % B~ @E Ex Bw B BA&A  D_D@ NaGasMtr_th& As D_D @NaGasMtr_th/hr  AA \4C< A  _ @  a>@  wBldg1ggD f2ɂ    dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dXXLetterwidm"dXX??&U} m} m } m} m } m} $} m            C C J I I I I I e   H H K H H H  f L H H H H H H  f MH H HHH H MH H HHH H MH H HHH H M HHHHH H M d8~~pDDD0>@HJ  w SubsystemsggD f2ɂ  fX  dMbP?_*+%&?'?(?)?"d??&U} } I } I} I} I} m } $} }  } } } } m } } } } $} $} } } $      C C C C C C C C C C C C C C C C C C C C C C     ]   ` t  ^  J    }  _ H ( , 2 7 :      a   d u  b  K    ~  c I ) - 3 8 ;    >  ! e L  @  B  j  D  l # * . 4 9  G  ?  " f M  A  C  k  E  m $ + / i Y   V   Z N  g        F % W X 0 5          G &   1 6 <    h '        = 44&88PHP`0(  `> @  w ComponentsggD f2ɂ   dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"dX??&U} $} } } I} } } I} I} $} m} $                  C C C C C C C C D D  XW  XV X) G    X)  i  Xa X X-X X  X-  Xg a X Z tX  Xb  Xh  X uX  Xc  Xd XX XXX d X XXXXXX bXXXX  XXXXXXX c XXX XXXX ) XXX XXXX - XXX XXXX XXX XXXX XXX XXXX XXXX XXXX XXX&P@v^B:< 0000""  `U(  T U j2(kLY}?Text Box 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!5]Q drs/shapexml.xmlVmo083m]!?8UƯi Ɨ |=7FJ:/@–sXhJ\lo&/_\lJ)jR#um JCu yt%YϷNbk)u7#&1wX+e,ѹ*g*$=f|U59KGI]O睟Fg0_ PdKp ǣN S| B@Y]bɓnj޹O;y2 0wow lMS*|hgڠ2T^h~2WovxWmIqlD\s,$^*0%os1$a{Tp(9MT@A)D3F‘ὴGN 'W[RUy|vP~ b& >>XB OAhTjr1>azzgHY@;f'0QrVw3'qu ʦ~>ӣҖWh X;ls-I!'aB'$3қ2f{뢹S -Ƈijy,MYxl]i-RV_h'DӎHf=hZS?ȅ4NZŒOZ7vg GcP¶)Ԍ ?'FZyX[7vKIXzYBԕ%vʐEteI)  "i;t/l'jF}=x;pxR|rJpcϣoPK!jL<*drs/downrev.xmlT_O0M5M:J11Moutm^Ps5*+k8t;er++Z> 5^yb vMèRJ ߱2itk*ء)jQPFMK/6td-|O6qM;Tv^=v3!cHt 10hKYMݡḿZ^iGS'Sb<_`4YcG^oG?PK-![Content_Types].xmlPK-!1_a ._rels/.relsPK-!5]Q )drs/shapexml.xmlPK-!jL<*drs/downrev.xmlPKx ]`  <This worksheet could be used to make multiple lists of points to use for groups of metrics. Similarly, a worksheet could be used to make multiple lists of points to use for groups of charts.< %\%]%>@wComponentsNormalizeggD f2ɂ [  dMbP?_*+%&?'?(?)?"d??&U} $ } $}  } } } m} m}  m     C C C C C C C C C C  ]   ` ^  _ (  ,  a   d b  c )  - (>@wComponents_kWCalcggD f2ɂ   dMbP?_*+%&?'?(?)?"d??&U} } I} $} } $} $} $ C C C C C C C C V Z g J  h 2 7 K 3 8 i Y v<pp*>@wComponents_tonsWCalcggD f2ɂ     dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"d??&U} } I} $} m}  C C C J }  K ~     0CCCCCCCCCCCCCCCCCCCCCbd***PHp\0(  \>@ w Sheet1ggD f2ɂ A  dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"d??&U} } $} } } } } }           C C C C C C C C C C # & : # : : H * .  * $ '  $ G4 ; I + /  + % : G9      & ; H  .  /  CCCCCCCCCb8PHX0(  X>@ w Sheet2ggD f2ɂ V  dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"d??&U} } $} $} } } } } }          C C C C C C C C C # &  : : H * . * $ '   ; I + / + %     & . / CCCCCCCC~~~F>@CB? Sheet10ggD f2ɂ H   dMbP?_*+%&?'?(?)?"d??&U} } } $}     C C C CC ' 9 # # & 9 : % ;  CCCCCCCCCCCCC jdB88PHh0(  h>@ w Sheet4ggD f2ɂ  3"  dMbP?_*+%&?'?(?)?"d??&U}       CCCCCCCCCCCC    G.CCCCCCCCCCCCCCCCCCCCd.PHH0(  H>@ w Sheet3ggD f2ɂ $$n$  dMbP?_*+%&ffffff?'ffffff?(?)?"d333333?333333?&<3U}  C">@7 Sheet6ggD f2ɂ &K&  dMbP?_*+%&ffffff?'ffffff?(?)?"d333333?333333?&<3U}  C "PHp0(  p>@7 Sheet7ggD f2ɂ 2(|(  dMbP?_*+%&ffffff?'ffffff?(?)?"d333333?333333?&<3U}  C">@7 Sheet8ggD f2ɂ *+  dMbP?_*+%&?'?(?)?"d??&U} I}      CCCCCCCCCC  CC.CCCCCCCCCCCCCCCCCCCC <*l(  lx l 68 XPP?i]4@ f4^gO煱n -<.WilliamK: This is for all zones on one chart.< 3 -WilliamK>@liji7 Sheet5ggD f2ɂ 2/:lA  dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"d??&U} } /} } m} I2 @     ,@ N N O N N~ P? P~ Q$@ PP~ R@ R  SR~ R@ GG~ R@ R  SR~ Rp{@ GG~ R@ R TR~ G@@~ R@ R  TR~ G @~ R@ RTR~ G`z@~ R@ ` TR~ G`z@~ R@ ` T~ G`z@~ R@ `  T~ G`z@ g~ R@ ` T~ G`z@~ R@ ` T~ G`z@~ R@ ` T~ G`z@~ R@ ` T~ G`z@~ R@ ` T~ G`z@~ R@ ` T~ G`z@~ R@ R TR~ G {@~ R@ RTR~ z@~ G@ ` TG~ Gz@~ G@ ` TG~ Gz@~ G@ ` TG~ Gz@~ G@ R TR~ G@z@~ G@ R TR~ GЍ@Ѝ@@~ R@ RTR~ G{@~ G@ ` TG~ G@~ G@ ` TG~ G{@~ 0s@~ G@ ` TG~ G{@~ G@ ` TG~ G{@~ R@ G TR~ R@~ R@ R TR~ G0@@8@~ R@ ` TR~ G0@~ R@ ` TR~ G0@D lF8PPBB@B8B888888B@BBBDZ@BPBBDNB ! " # $ % & ' ( ) * + , - . / 01~ R@ ` T R~ G0@~ !G@ !R !TG~ !G`@~ "G@ "` "T"G~ "G@~ #G@ #` #T#G~ #G`@#n@P@@@~ $G@ $` $T$G~ $G`@~ %G@ %R%T%R%G~ &G@ &` &T&G~ &G`z@~ 'G@ '` 'T'G~ 'G`z@~ (G@ (` (T(G~ (Gz@~ )G@ )` )T)G~ )G`z@~ *G@ *` *T*G~ *G`z@~ +R@ +R+T+R+G~ ,R@ ,` ,S~ ,R@ ,GG~ -R@ -`  -S-R~ -RB@ -GG~ .R@ .` .S.R~ .Rj@.Rn@GR@RV@~ /R@ /` /S/R~ /RH@ /GG~ 0G@ 0R 0T0~ 0G@~ 1G@ 1R 1T1~ 1G@(RTB8B^B<BBBBB<FP^PD(  r   08 XPP?.]4 @ &WIgO -<.1 for Menu 2 for MenuItem 3 for SubMenu Item < -err   08 XPP?N]4 @ QB{&X 0<1Menu Caption. Use & for an underlined character < 0exx  6@8 XPP?2@]4@ 5p|Bs+K J<KIf Level 1, the menu position. If Level 2 or 3, the macro to execute. < iI Jrr  08 XPP?]4@ ]AT0K4,6X @<ATRUE if you want a divider before the Menu Item or SubMenu Item < K@err  08 XPP?]4@ @n j %%%w MenuSheetggD f2ɂ 0JUal(x8؝  dMbP?_*+%&?'?(?)?"d??&U} } I}        C C C C C~ a@ _ a'~ b@@ b(~ a@ _ a)~ b@@ b*~ a @ _! a+~ b@@ b*~ a@ _ a,~ b@@ b-~ a@ _ a.~ b@@ b/~ a`@ _ a0~ b@@ b*~ a@ _ a1~ b@@ b2~ a@ _ a3~ b@@ b*~ a@ _" a4~ b@@ b*~ a@ _# a5~ b@@ b6~ a@ _ a7~ b@@ b-~ a@ _ a8~ b@@ b/~ a@ _ a9~ b@@ b*~ a@ _ a'~ bD@ b*~ a@@ _ a:~ bD@ b*~ a @ _! a;~ bD@ b*~ a@@ _ a<~ bD@ b-~ a@ _ a=~ bD@ b/~ a@ _ a>~ bD@ b*~ a@ _ a1~ bD@ b?~ a "@ _ a@~ bD@ b*~ a#@ _" aA~ bD@ b*~ a ,@ _# aB~ bD@ b6~ a@,@ _ a5~ bD@ b-~ a 0@ _ a8~ bD@ b*~ a@0@ _ a9~ bD@ b2~ a1@ _ aC~ cD@ b*~ a 1@ _ a'~ bH@ b2~ a3@ _ aD~ bH@ b*~ a 7@ _! aE~ bH@ b*~ a<@ _ aF~ bH@ b-D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF !"#$%&'()*+,-./0123456789:;<=>?~ a@<@ _ aG~ bH@ b/~ !a`C@ !_ !aH~ !bH@ !b*~ "a H@ "_ "a1~ "bH@ "b6~ #aO@ #_ #aI~ #bH@ #b*~ $aP@ $_" $aJ~ $bH@ $b*~ %aZ@ %_# %aK~ %bH@ %b6~ &aZ@ &_ &aL~ &bH@ &b-~ 'a]@ '_ 'a8~ 'bH@ 'b2~ (a]@ (_ (a9~ (bH@ (b?~ )a^@ )_ )aC~ )cH@ )b2~ *a^@ *_ *a'~ *bL@ *b?~ +a a@ +_ +aM~ +bL@ +b*~ ,ad@ ,_! ,aN~ ,bL@ ,b*~ -a l@ -_ -aO~ -bL@ -b-~ .a`l@ ._ .aP~ .bL@ .b/~ /ap@ /_ /aQ~ /bL@ /b*~ 0au@ 0_ 0a1~ 0bL@ 0b-~ 1a }@ 1_ 1aR~ 1bL@ 1b*~ 2a~@ 2_" 2aS~ 2bL@ 2b*~ 3a@ 3_# 3aT~ 3bL@ 3b6~ 4a @ 4_ 4aK~ 4bL@ 4b-~ 5a`@ 5_ 5a8~ 5bL@ 5b?~ 6a@ 6_ 6a9~ 6bL@ 6b6~ 7a@@ 7_ 7aC~ 7cL@ 7b?~ 8a`@ 8_ 8a'~ 8bP@ 8b6~ 9a@ 9_ 9aU~ 9bP@ 9b*~ :a @ :_! :aV~ :bP@ :b*~ ;a@ ;_ ;aW~ ;bP@ ;b-~ <a@ <_ <aX~ <bP@ <b/~ =a@@ =_ =aY~ =bP@ =b*~ >a@ >_ >a1~ >bP@ >b/~ ?a@ ?_$ ?aZ~ ?bP@ ?b*D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_~ @a@ @_ @a[~ @bP@ @b*~ Aa`@ A_" Aa\~ AbP@ Ab*~ Ba@ B_# Ba]~ BbP@ Bb6~ Ca@ C_ Ca^~ CbP@ Cb-~ Da@ D_& Da_~ DbP@ Db6~ Ea @ E_% Ea8~ EbP@ Eb-~ Fa@@ F_ Fa9~ FbP@ Fb(~ Ga@ G_  GaC~ GbP@ Gb-~ Ha @ H_ Ha'~ HbT@ Hb(~ Ia @ I_ Ia)~ IbT@ Ib*~ Ja@ J_! Ja+~ JbT@ Jb*~ Ka@ K_ Ka`~ KbT@ Kb-~ La@ L_ Laa~ LbT@ Lb/~ Ma@ M_ Mab~ MbT@ Mb*~ Na @ N_ Na1~ NbT@ Nb*~ Oa@ O_ Oac~ ObT@ Ob*~ Pa@ P_" Pad~ PbT@ Pb*~ Qa@ Q_# Qa7~ QbT@ Qb6~ Ra @ R_ Ra]~ RbT@ Rb-~ Sa@ S_ Sa8~ SbT@ Sb(~ Ta@ T_ Ta9~ TbT@ Tb/~ Ua@ U_% Uae~ UbT@ Ub*~ Va@ V_ Va'~ VbX@ Vb/~ Wa@ W_  Waf~ WbX@ Wb*~ Xa@ X_ Xag~ XbX@ Xb*~ Ya@ Y_! Yah~ YbX@ Yb*~ Za@ Z_ Zai~ ZbX@ Zb-~ [a@ [_ [aj~ [bX@ [b/~ \a@@ \_ \a0~ \bX@ \b*~ ]a@ ]_ ]a1~ ]bX@ ]b2~ ^a@ ^_ ^a3~ ^bX@ ^b*~ _a`@ __" _a4~ _bX@ _b*D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF`abcdefghijklmnopqrstuvwxyz{|}~~ `a@ `_# `a5~ `bX@ `b6~ aa@ a_ aa7~ abX@ ab-~ ba`@ b_ ba8~ bbX@ bb/~ ca@ c_ ca9~ cbX@ cb*~ da`@ d_ da'~ db\@ db*~ ea @ e_ ea:~ eb\@ eb*~ fa@ f_! fa;~ fb\@ fb*~ ga@!@ g_ gak~ gb\@ gb-~ ha!@ h_ hal~ hb\@ hb/~ ia'@ i_ ia>~ ib\@ ib*~ ja`,@ j_ ja1~ jb\@ jb?~ ka4@ k_ ka@~ kb\@ kb*~ la4@ l_" laA~ lb\@ lb*~ ma>@ m_# maB~ mb\@ mb6~ na >@ n_ na5~ nb\@ nb-~ oaB@ o_ oa8~ ob\@ ob*~ pa B@ p_ pa9~ pb\@ pb2~ qaB@ q_ qaC~ qc\@ qb*~ raC@ r_ ra'~ rb`@ rb2~ saE@ s_ saD~ sb`@ sb*~ taI@ t_! taE~ tb`@ tb*~ uaM@ u_ uam~ ub`@ ub-~ va@M@ v_ van~ vb`@ vb/~ wa@U@ w_ waQ~ wb`@ wb*~ xa Z@ x_ xa1~ xb`@ xb-~ yaa@ y_ yaR~ yb`@ yb*~ za`b@ z_" zaS~ zb`@ zb*~ {a`l@ {_# {aT~ {b`@ {b6~ |al@ |_ |aK~ |b`@ |b-~ }ao@ }_ }a8~ }b`@ }b?~ ~ao@ ~_ ~a9~ ~b`@ ~b6~ ap@ _ aC~ c`@ b?D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~ ap@ _ a'~ bd@ b6~ as@ _ aU~ bd@ b*~ av@ _! aV~ bd@ b*~ a }@ _ ao~ bd@ b-~ a`}@ a ap~ bd@ b/~ a@ a aq~ bd@ b*~ a@ a$ ar~ bd@ b-~ a@ a a1~ bd@ b(~ a@ a as~ bd@ b*~ a@ a" at~ bd@ b*~ a@ a# a^~ bd@ b6~ a@ a aT~ bd@ b-~ a`@ a a8~ bd@ b6~ a@ a a9~ bd@ b-~ a@@ _ aC~ cd@ b6~ a`@ a a'~ bh@ b-~ a@ a au~ bh@ b*~ a@ a! av~ bh@ b*~ a@ a aw~ bh@ b-~ a@ a ax~ bh@ b/~ a @ a aY~ bh@ b*~ a`@ a a1~ bh@ b/~ a@ a$ aZ~ bh@ b*~ a`@ a a[~ bh@ b*~ a@@ a" a\~ bh@ b*~ a`@ a# a]~ bh@ b6~ a@ a a^~ bh@ b-~ a@ a& a_~ bh@ b6~ a@ a% a8~ bh@ b-~ a @ a a9~ bh@ b(~ a@ a  aC~ bh@ b-~ a@ a a'~ bl@ b(D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~ a@ a a)~ bl@ b*~ a`@ a! a+~ bl@ b*~ a@ a ay~ bl@ b-~ a @ a az~ bl@ b/~ a@ a ab~ bl@ b*~ a@ a a1~ bl@ b*~ a@ a ac~ bl@ b*~ a@ a" ad~ bl@ b*~ a@ a# a7~ bl@ b6~ a@ a a]~ bl@ b-~ a@ a a8~ bl@ b(~ a@ a a9~ bl@ b/~ a@ a% ae~ bl@ b*~ a@ a a'~ bp@ b/~ a@ a  af~ bp@ b*~ a@ a ag~ bp@ b*~ a@ a! ah~ bp@ b*~ a@ a ak~ bp@ b-~ a@ a al~ bp@ b/~ a @ a a>~ bp@ b*~ a@ a a1~ bp@ b?~ a`@ a a@~ bp@ b*~ a@@ a" aA~ bp@ b*~ a`"@ a# aB~ bp@ b6~ a"@ a a5~ bp@ b-~ a`&@ a a8~ bp@ b*~ a&@ a a9~ bp@ b2~ a@'@ _ aC~ cp@ b*~ a`'@ a a'~ bt@ b2~ a)@ a aD~ bt@ b*~ a`-@ a! aE~ bt@ b*~ a@2@ a aF~ bt@ b-D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~ a2@ a aG~ bt@ b/~ a9@ a aH~ bt@ b*~ a`>@ a a1~ bt@ b6~ aE@ a aI~ bt@ b*~ aF@ a" aJ~ bt@ b*~ aP@ a# aK~ bt@ b6~ aP@ a aL~ bt@ b-~ aT@ a a8~ bt@ b2~ a T@ a a9~ bt@ b?~ aT@ _ aC~ ct@ b2~ aU@ a a'~ bx@ b?~ a`W@ a aM~ bx@ b*~ aZ@ a! aN~ bx@ b*~ a`b@ a aO~ bx@ b-~ ab@ a aP~ bx@ b/~ a g@ a aQ~ bx@ b*~ al@ a a1~ bx@ b-~ a`s@ a aR~ bx@ b*~ a@t@ a" aS~ bx@ b*~ a@~@ a# aT~ bx@ b6~ a`~@ a aK~ bx@ b-~ a@ a a8~ bx@ b?~ a@ a a9~ bx@ b6~ a@ _ aC~ cx@ b?~ a@ a a'~ b|@ b6~ a@ a aU~ b|@ b*~ a`@ a! aV~ b|@ b*~ a @ a a{~ b|@ b-~ a`@ a a|~ b|@ b/~ a@ a aq~ b|@ b*~ a@ a$ ar~ b|@ b-~ a@ a a1~ b|@ b(D@ lFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF~ a@ a as~ b|@ b*~ a@ a" at~ b|@ b*~ a@ a# a^~ b|@ b6~ a@ a aT~ b|@ b-~ a@@ a a8~ b|@ b6~ a`@ a a9~ b|@ b-~ a @ _ aC~ c|@ b6~ a@@ a a'~ b@ s-FFFFFFFPHd0(  d>@w4;@@ LAD LAC B$4;@@ LAD LAC B${+{{+{ HolidayListggD f2ɂ 2Jc}  dMbP?_*+%&?'?(?)?MnMicrosoft Office Document Imag/dLetterwidm"dX??&U} }  } I}  } m } }  I } } } } I} } $ } $ } I}  } m} m} m } I } !} ## } $$ 2%%%%%%%%%% % % % % %%% C U C C C CC C C C C C C C C C C C C C C C C C C C C !C #u $u ?@?? (  L h:mm AM/PMA0 12:00 AM~  V  ~  V VOO?V         ?W@W@@ X?( LALAEAAXv@!~  j@!j@  C#V?V?$ <@@@ ( 12:30 AM VUUUUUU?  ~  V VOO?V         ~ @ WWXX#V?V?$ ?@@@ ( 1:00 AM VZUUUUU?  ~  V VOO?V         ~ @ WWXX#V?V?$ >@@@ ( 1:30 AM~  V?  ~  V VOO?V         ~ @ WWXX#V?V?$ ?@@@ ( 2:00 AM VSUUUUU?  ~  V VOO?V         ~ @ WWXX#V?V?$ >@@@ ( 2:30 AM V?  ~  V VOO?V#V?V?$ ?@@@ ( 3:00 AM~  V?  ~  V VOO?VX#V?V?$ ?@ @(  3:30 AM V?  ~  V VOO?VX#V?V?$  >@"@ (  4:00 AM VaUUUUU? ~ V VOO? V X #V?V?$  ?@$@ (  4:30 AM~ V? ~ V VOO? V #V?V?$  >@&@ (  5:00 AM V? W  ?@(@ (  5:30 AM VJUUUUU? W~ *@ ( 6:00 AM~ V? W~ ,@( 6:30 AM VUUUUUU?W~ .@( 7:00 AM V?W~ 0@( 7:30 AM~  V?~ 1@( 8:00 AM VOUUUUU?W~ 2@( 8:30 AM V? CC C C C C C C C C C~ 3@( 9:00 AM~  V?YUUUUs@#Z? %B?Z?)D:D"NB@(!%DB Quarter AZ@ LBF= !'%D%B@DB DaySchedule3[c)g ]%%L$D"NB@B%B@LBFB DaySchedule38V"% @ @D% B@B8VOO?"% @ @D% B@B`O!JDDAD DDAD B$ OccUnoccBOccO!DDA@% @ @%%DB%B@DBFB% B@B@ DDA@% @ @%%DB%B@DBFB% B@B@ B$@OccUnoccBOcc) LLA- @@L% B@B LLA- @@L% B@B B$ OccUnoccBOcc~ 4@( 9:30 AM VUUUUUU?YYKA@Z=Z?'D$D"NB@(!%DB Quarter AZ@=!'%D%B@DB DaySchedule2[c) DaySchedule28V"% @ @D% B@B8VOO?"% @ @D% B@B`O!JDDAD DDAD B$ OccUnoccBOccO!DDA@% @ @%%DB%B@DBFB% B@B@ DDA@% @ @%%DB%B@DBFB% B@B@ B$@OccUnoccBOcc)Occ~ 5@( 10:00 AM V?Y@ ZZZ@[) DaySchedule3 VV[)Occ~ 6@( 10:30 AM~  V?Y$6<9 @ ZZZ@[) DaySchedule2 VV[)Occ~ 7@( 11:00 AM VOUUUUU?YLA [@ ZZZ?[) DaySchedule1 VV[)Occ~ 8@( 11:30 AM V?YfAޔ@ ZZZ@[) DaySchedule2 VV[)Occ~ 9@( 12:00 PM~  V?Yr=@ ZZZ@[) DaySchedule2 VV[)Occ~ :@( 12:30 PM V?YVr@ ZZZ@[) DaySchedule2 VV[)Occ~ ;@( 1:00 PM VXUUUUU?Yv"<@ ZZZ@[) DaySchedule2 VV[)Occ~ <@( 1:30 PM~  V?Yv@Z@[) DaySchedule2)Occ~ =@( 2:00 PM V?Y~@Z@[) DaySchedule2)Occ~ >@( 2:30 PM VSUUUUU? \Y`X8@Z@[) DaySchedule3)Occ~ ?@( 3:00 PM~  V?Y#cm@Z@ [) DaySchedule3)OccD&l(mmSWWIM !"#$%&'()*+,-./01 c(! 3:30 PM V? ]!(!!!1L h:mm AM/PMA0 4:00 PM! VXUUUUU?0!Xf@"DADAEAA"(#! 4:30 PM~ " V?"]#($! 5:00 PM# V?#]$(%! 5:30 PM$ VSUUUUU?$]%U(&! 6:00 PM~ % V?%]&('! 6:30 PM& V?&]'((! 7:00 PM' VXUUUUU?'](U()! 7:30 PM~ ( V?(])(*! 8:00 PM) V?)]*(+! 8:30 PM* VSUUUUU?*]+U(,! 9:00 PM~ + V?+],(-! 9:30 PM, V?,]-(.! 10:00 PM- VXUUUUU?-].U(/! 10:30 PM~ . V?.]/(0! 11:00 PM/ V?/]0(1! 11:30 PM0 VSUUUUU?0]1U(! 11:59 PM1 VOO?1 ^1](TIEIIEIIEIIEIJFJJ0 1  1 H 0(   x  68 XPP?0P2Px]4@ "w'D# <Bill Koran: Day of Year< xx  68 XPP?1P3Px]4@ w0NT1 <Bill Koran: Day of Year<  Bill Koran Bill Koran>@l j # #$ListsggD f2ɂ  v!i  dMbP?_*+%&ffffff?'ffffff?(?)?"d333333?333333?&  <3U} } $} v,      t t t t C C                            G        G                                                                              G                                                                                        G       p   p  p   s   s  s   q   q  q  D lTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT !"#$%&'()*+,-./0123456789:;<=>?   ! ! " " # # $ $ % % & & ' ' ( ( ) ) * * + + , , - - . . / / 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 : : ; ; < < = = > > ? ?Dl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @ @ A A B B C C D D E E F F G G H H I I J J Kp K Ls L M M N N O O P P Q Q R R S S T T U U V V W W X X Y Y Z Z [ [ \ \ ] ] ^ ^ _ _Dl`abcdefghijklmnopqrstu ` ` a a b b c c d d e e f f g g h h i i j j k k l l m m n n o o p p q q rp ro ss s t t uq u0 du(  t du PTextBox 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!`) drs/shapexml.xmlVmO0>i}b4 Ў1Ӥm ^~;cgm~g;MaFR:gΏrrjYMJ zZˏǔ8`3e(Z8zZwvt53 h( } |l5Ȓd8ppWh|Ҝ "\A5miʨ2?xV~\䪮|kY?zgIүW-  9x~Z_ٙ jE![|s6%T5n8W,*dh5omBL<-wC!Mqz<Dr "a7c\D,_<>;Ee+`D F5R}#Rs.JJtodœ"r61 [Ik=͛jM8g洁mHadِdl$n>Y.0_-x٢6PK!>k4drs/downrev.xmlTO0Mk⋑n%GtmI[_Bo=wnOVWΗ0;a2`z񁛜W;a:Qn2Cq*R)ح08iP7+DQj^ܠV<),5oij}7޴G AlouOCk "_vW p Ŧ0 m53ȹ]wHg5qa$CJ/iҍ0G)=KzC`8PK-![Content_Types].xmlPK-!1_a ._rels/.relsPK-!`) )drs/shapexml.xmlPK-!>k4drs/downrev.xmlPK  ]d` (<If >1 point, and status is included, put Status on Right axis. If only 2 points, and status is not included, put 2nd point on Right axis.<(&$&&&?&>@# ## 7 Sheet9ggD VBAy0 S:-:ThisWorkbook. __SRP_2*__SRP_3%:PSLSS6" <0<8<N0{00020819-0000-0000-C000-000000000046}H *X`k(  .` 0i0  %XH%&%(,xqKeyPssXPx8(x_P!$*\Rffff*1L506072cc$*\Rffff*1M506072cc` " ( $0 ,X $ $ 6   "8` " hpx" Dim frmSplash As FSplashScreen 'show the form modelessly% Set frmSplash = New FSplashScreenx frmSplash.Show vbModeless 'process the startup codeLo0 Application.Wait Now + TimeValue("00:00:6 ")A, Unload frmSplash Set frmSplash = NothingoXA2oxͱAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 P Sub _Open() ' Dim frmS1sh As FScreen 'show the form model esslySet#= New$75.S(vbMÄ$3proc,5startup cApplication.W ait N%+ TimeValu@e("00:6 "@88Call ieMenu  "Unload-3othing EndSEVBeGeCls(CancelTBoolean5I$DOtD$rU@@8!+`Q` `iI)hgg g8HiX` Z  Z`"a"arU@@@x8`(8@!`0@ACb(PH#MetricsPerSF:r>Components_tonsWCalc*1daSubsystemsqSystemDiagram@xME0 (PSLSS<:<> Sub _Click()  ' User1DefineEquip.Show Worksheets( ).VisixlVeryHidden End9  A_Deactiv&!5#xHolidayListNBldg1 MenuSheetF+Components ME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "HolidayList" Bas0{00020820-CA$0046} |G lobalSpacFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD25#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "Bld g1" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2qe#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P! xAttribute VB_Name = "MenuSheet" " Bas0{00020820v-C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2  5Z#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "Components"D Bas0{00020820-C$ 0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD25#Components_kWCalc$) MetricsDaytypeOccupancy0- ComponentsNormalize(=Lists  !xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "Components_kWCalc" " Bas0{00020820v-C$0046} |GlobalSpacAIFalse dCreatablPredeclaIdTru B@ExposeTemplateD0erivBus`tomizD2(\#xME0 (PSLSS<:<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrstvwyz{|}~ . 08X h]]ptMetricsDaytypeOccupancy$D.<0 @ <!F 8%H!JMonthYr 8!Jmmm yyyy P!R%d 8%H!J @%L(Nd 8!J 8%H!J @%L(Nk @ P!T VG PB@Xjo.Attribute VB_Name = "MecsDaytypeOccupan cy" Bas0{0002`0820-C$0046} |GlobalsSpacIFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub Worksheet_Change(ByVal Target As R )  Dim W.S  pPivotT7 S#=5s("pt5On Error ResuNext F Each In@$.GsA+If1.Offset(0, -1).7uAe"MonthYr" Then pt.PageFields(CC).CurrentA @q_Applic@ation.LFuncBT@4%, "mmm y"\#EBA'2G*End |IfAYU`GoTo 0U5Calcu8?xlManu}@W  5/E#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "ComponentsNormalize" Bas0{00020820-CA$0046} |G lobalSpacIFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD25'#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "Lis ts" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2j8 R#p?0CwGK FOxfB s xOxfB s ?0CwGKME0 PSLSS0B<ptUpdateForCharts3&j1e__SRP_38kR__SRP_39EuSheet4x6"<8<N0{00020820-0000-0000-C000-000000000046} z` X88)8x%`|`~`  % %X(%x(%``(x x_P!*\R1*#273$*\Rffff*2D5060848d`9 "  ( 0H ` ,p ,       0 8 @X ` h  ,     8 H Ph x       2 0 @]]]]P  !  !% P(ptField0Category$: P!R%'|ptField0Category$: P!R%'~ |9 ~9 ~ | ' ddd, m/d/yyyy5(9 (\?@ 9k (\5@ 9k Q,@ 9kp  ףp= @ [$-409]ddd, m/d/yy h:mm AM/PM;@5(?9k Gz@ o?9k )\(? QUUU?9k ? qql?9k {Gz? 9kXqP 8 P(| , Application.Calculation = lngCalcSetting P(ogAttribute VB_Name = "ptUpdateForCharts3"D Bas0{00020820-C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExpose TemplsDerivBust0omizD2 P Sub Worksheet_PivotT(ByVal Target As ) Dim dblMinDouw ax TimeP]odDaysmyobjObject  1On Error GoToHandlerE Each RI*ctLS=.s6Wit C .Axes(xlCNgoryA Application.ScreenQingwg N= qFcFun@)W(@Range(F ield0 ")O @\ax.imumSca²C-GJA2.Maxax |=+-inEmTickLabels.Numbe"rsmatS"ddd, m/d/y teMajorUnitIspAuto_IfL< 31.01 The/a 7End IfkT 2_ @@ 3_ T 14zi(1_ T 9 6[@$-409]7 h:mm AM/0PM;@,9.0.5?42.5?;.0.2 =G;c;0.083_T 0.?I.472qE-0_K4cneg!#Nextȵ+0s?Ex.nC "ctb: '1&Calcuu`\lngSet~t\^1 2 rU@@89 !`Q l`i88Hi`88"a "aZrU@@@8xH8`8 b5D#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Sheet3Sheet2Sheet1Sheet9}51#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD255#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD25#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD25l#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et9" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Sheet8Sheet7Sheet6Sheet55L}#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et8" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD25#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et7" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD25#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2      !"#$%&'()*,-./0123456789:;<=>?@ABCDEFGHIJKLMOPQSTVWXZ[\]^`abdefghijklmnopqrstuvwxyz{|}~54#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2MetricsOccupancyMonthYr0nMetricsDaytypeMonthYr,+mod1DataSelect W!.__SRP_6N(\ls#xME0 (PSLSS<:<>fAYU`GopTo 0U5Cpalcu8?xlManuA@W> @A rU@@@@~xHiCIF(ISERROR(FIND(",",RIGHT(RC[+1],LEN(RC[+1])-FIND(",",RC[+1])-1))),' 0IF(ISNUMBER(1*MID(RC[+1],FIND(",",RC[+1])-2,2)),' RC[+1],' .RIGHT(RC[+1],LEN(RC[+1])-FIND(",",RC[+1])-1)),' .RIGHT(RC[+1],LEN(RC[+1])-FIND(",",RC[+1])-1)))'h rngdata.Resize(rngdata.Rows.Count - 1, 1).Offset(1, -1).FormulaR1C1 = strDateConvert   C77:%(^ "=DATE(""20""&RIGHT(RC[-1],2),LEFT(RC[-1],LEN(RC[-1])-4),MID(RC[-1],LEN(RC[-1])-3,2))"C7$:$The dates do not appear to be a valid date format, and were not successfully converted. Please convert the dates to a valid Excel date format.A@|dC7$: C $:%$:!JC7$: C $:%$:(D7$:! B@kk$'' End New Section added 1-31-2008kd % %$B@ A67:B@=RC[-2]+RC[-1]A67: A67:%7:%H([$-409]m/d/yy h:mm AM/PM;@C6$: C $:%$:(C77:$E .Range("C7").EntireColumn.Insert Shift:=xlToRight=IF(ISERROR(FIND(",",RC[-2])),' RC[-2],' CIF(ISERROR(FIND(",",RIGHT(RC[-2],LEN(RC[-2])-FIND(",",RC[-2])-1))),' 0IF(ISNUMBER(1*MID(RC[-2],FIND(",",RC[-2])-2,2)),' RC[-2],' .RIGHT(RC[-2],LEN(RC[-2])-FIND(",",RC[-2])-1)),' .RIGHT(RC[-2],LEN(RC[-2])-FIND(",",RC[-2])-1)))' + RC[-1] !! C77:%([$-409]m/d/yy h:mm AM/PM;@C6$: C $:%$:(C7$:$The dates do not appear to be a valid date format, and were not successfully converted. Please convert the dates to a valid Excel date format.A@|kk$'' End New Section added 1-31-2008A67: A67:%7:%H!JA67: A67:%7:%H(''*** !! !!  %H%B@ D67:B@ D67:B@A6$: B $:%7:B@ k0[$-409]m/d/yy h:mm AM/PM;@C6$: C $:%$:(C:C$(qqA1 HolidayList$D%:"A1:B232 HolidayList &%D%:B@Holidays=HolidayList!$A$2:$A$232& !$B@Holidays %$(bA:B HolidayList$D%! B@(Lists$DB@Data %D*Lists &%DB@Lists %D P18:AB34$:B@ d9bq8Data$DB@,A.A0%'''' ***Added for Load Duration ChartA2,'''' ***End of Added for Load Duration Chart '''' ***Added for Schedule ChartA4''''' ***End of added for Schedule ChartData$DB@,C6$: C6$:%$:.rngOrigHeaders & !$B@rngOrigHeaders %$(b Call DefinePoints P(..X oP H 2Attribute VB_Name = "mod1DataSelect" Public wbUserdBook As WorkFbDNew:r ngzrRangeliTimeColsIntegerstrTempsAvail SngU VBldgAHreaLo3iVoltmlngCalcSetting'added 2011-3 for use with more and ber checksappation vers]iRowCN V" Sub  () Dim Head,Vn=t If Type~(ActiveSheet@) <> "ws" ThenC AMsgBox r"@ w By our d@ mustC th@F@ndow.", "Not a validExit =E@VIf Cg = C/G 'Defaultue of is set in Form_a@wE4StampA.Make subdJmat@t|arDOpBButtonsShow#kG/= 5f GoTo A/Terhmin@/dJE3 InputRn\g.8M.aTZJ!SHxME(00:6 <% %@8%X%(@%8@@ @ `  %`@8@HX@x@` @0@4@< @(xH`@ ((P8x_P!*\R1*#386*\R1*#253$*\Rffff*1N506072cc  (08@ RH " \HP  X \h R 0  HX p   $    0H hx    (  4((P h x &&(PRh><<X n( d0PXd` *   (( P Tp P  L0 &  R > X <p < > P0   8 @ H *P | <Pp4  P  8@ XH>. 0H0P   ,  2(  &` . .,"8 `     ] ] ] ] H] x] `] ] ] Ladded 2011-11-13 for use with more and better checks for application version] ] (]] $ Worksheet7The worksheet with your data must be the active window.Not a valid worksheetA@|k .U Default value of iTimeCols is set in UserForm_Activate for UserForm4TimeStampCols.L Make sure default value matches starting settings for the Option Buttons. B@ Gj B@ Gj% %B@ !! ' P(0 B@Template:="Workbook" . &! ( B@Data ( B@% HolidayList ( d HolidayList$D(b B@ PointsList ( d PointsList$D(b ' P! G6B'j A6 PointsList7D%:B@A PointsList7D%(Data7D  B@ C67:B@ C67:B@ '' New Section added 1-31-2008C77:$ C77:! B@ =IF(ISERROR(FIND(",",RC[+1])),' RC[+1],' (1).CopycY=R&untP - 1Aa.ScreenUpEm= Fals e9s.Add '|l@:="?%EA%OAIwbC lorsTxhis% O n Err@|ResuNext#dbO.E'hHo`ayxLisjs(").VisHiblxl`yHids_ "PointsT 7 W*cA= 65528cW @ > 12 A|nCompbilityxMod!BC] 9}0C6&). )("A6").PasteSpecial :=xlValues, Transpose:=xTru`T ; @u4mn8A@ Wid= 22)G$!a 1!sr%.C@O1HatsE)''?!Y8l@a0qu1-31-200t")bIspe(6p7"))_y.EntirPpl.In`ehiftqToRigh= t=IF(ISERROR(FIND("", RC[+1])),t?0x= & "# IGHDT(LEN)- -1) t*  NUMBER(1*MIDe-2,2rs Rw")qrtpe# $73SX0?.jize(`mw, zOffp(1, `.Q:ulaR1C1^ :5Y~?y{Co2/?1& " =DATE420""&-1]",LEF2,4,`)-4),d&3%81 +EUQEI@es do noppear to!1eР,wesuccessfu lly ced. Pleas>e%³seExcelAe.oF E], " & x)Ud(xlUp))U%%sv" "D;]DtXyq9#jQojhj[ Unޏ9!}11),FEP E7e0wi,E"A6").End(xlDown)).Offset(0, 2).FormulaR1C1 = _  "=RC[-2]+ 1]"BRange( $"C, " & iRowsV$erUpNumber|atw"[$-409]m/d/yy h:mm AM/PM;@pIf Not IsDate(.l7"))` Theni' l tireColumn.Insert Shift:=xlT@oRight-strEConv= "=IF(ISERROR(FIND("",)),kH$ 8& "!8 T&IGHT(LEN)-O/-1)z0 NUMBER(10*MID2,z2K][EB,``S Resi@ze(rng Ta.q.Count - 1, 1MN+ BRAVopK<MsgBox " ds do nappear to be a valid" f@at, and weresuccessf@ully c~ed. PleaseE the Excel F.ԁ!Exiubs= Ifo ''ᠡNew Section added 1-31-2008 DJ%K, _dI  dValueo@***E`c, sfaCopy D`.PasteSpecial sa4BxxlxC+r# $}?_~_~_~_~_~/ $("C:C WidthP$22 WithThisWor@kbook.sheets("Ho=ayListD A1:B232py Destina1:=)")CA 5vebNames.Add :=s"`efersToP=( !$A$2:AO Bf s VisibleFalsT1G_ U A:BEnAutoFiIDeletDOn Error GoTo 0C4VAUe:=wbHBMjE1 os#P18:A8B34 Up%.xl`yHiP4 % .dCall `Field:2BinTemp$ JpXPJWP Lo@ad Dur' 0CharTimeInterpi=A ofQ]3  Schedu#} Occu pancybKPoin vCd GsSetAWHead`1,;G!VpP̈́)7%27P]OrigDJ8od ("," ^l <!\%.@1],d bl 8!\%.>RIGH bl <!\%.@",RC N >(d'k@ P >(PSNUM P @(P[+1] TG T >(Tj TG T @(TjT(RC RG >(fjD(", RG @(fjKT A SubMenu Item", bl >!\%.Bh bl @!\%.Fsize P B(Ps.Co P F(POffs N B(drmul N F(dateC TG T B(Tj% TG T F(Tj(""2 RG B(fjLEFT RG F(fj4),Mnx H 'H`oX: This sub should be executed when the workbook is closed Deletes the Menus. Ple]8]X]p MenuSheet &%.l'H H l%X$VaC H l%XC7 H l%X'P$ P P%Z%\B@$ P P%Z%\B@k H 'HtiohAttribute VB_Name = "modzMenu" Sub Create@() \.xProcDataInvoke_Func \n14' This sshould be execd when the workbook +ope@ned. =NOTE:Cereno error handli0ng i@aroutine w Dim Sheet As4 Wds ObjecComm+BarPopu:p2$Item, ! V1Button" FRowCIntegerCLevel, NextPositionOrMacro, Ca p,Rvider, FaceI:dW'0!vLoca f@sml dSkGn=oA.ss("="{#G$MaCase$!G1' AgfE?top-lAr?toB> ǁ %eAp #Uy.s(1)8. _k Controls.(Type:=mlso",~ b>e{N=Temporary:=True`9?}99(2X(2_(4_(_(j%_(+QA(.?n2Y6b42 e4 qIfkp3ary52u=29 / /Ca"0  Elsu u d.:/ / n/ J? AA.OnAcb|= \>TIf;F_# #C%On EҡResuq^+ #b`<> ""#./c m2߿ q`kT!@BeginGp0 M>2.*GoTo 053Q 5Ԥ5B# o.g.?#(u3T D+YQ -?]42OO *xtk*i*C*j'y'.O+ON+ CsGsQ`cLoo0ub!/X׻QR  # !" $%&'()*+,-./0123456789;<=>?ABCDEFGHIJKLMNOP:STUVWXYZ[\]^~`abldefghijk_mnopqrstuvwxyz{|}r U xME@ >(L: D> "LLP*LLLLLLLPL<<<<<<<<<<0 ,`X oUU 14 mx% 8% <%`> `@ C% G(%`H@J @L @N`x @P` @RH @T0 2`08oU 14 mP%`H`P6late%H`x08hpX&2V^Pbthe p-@( @ @ @ @ @ @ P`@%8@ h'@ @x @` @X @P @ 8 @ p8X&VP@  @8 @ @P @h @x @` @H @0 @( @ @ x_P!$*\Rffff*1M506072cc*\R1*#384*\R3*#52*\R3*#92$*\Rffff*1L506072cc*\R1*#12e*\R1*#119*\R1*#121*\R1*#121*\R1*#253*\R0*#14*\R3*#30*\R1*#385*\R1*#125*\R1*#114*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f*\R3*#50*\R3*#51*\R3*#51j" B <P  & : 8RX :x .  $ :  "` \ N N N N N R(@ HP Fh D D D@ D $ $ $ h h@  `hhh       4 4 ,( ,@  X $` F F $ $ $ $   8 8( *H *`  x  " @    (R0P\X`x V       ( ; This sub should be executed when the workbook is opened.6 NOTE: There iss closAs4sS oo_a܅SS`ng>&&Set MenuShe= ThisWorkbook.s(" ") Ro w = 20Do Until IsEmpty(\.Cells(Z0, 1)v~If $V1en[,Captio6n\2[.Ap plica2.CommandBa rs(1)nt roR).Delete7 2! End If(+ 1 LoopOn Error GoTo 0 Sub b(,Q-0rU@@@@~x  HiHi a S  S(rU@@@ UserForm2Scheds "OKmod6Schedules(@,__SRP_a$8Yt__SRP_b_`    0 "8 @ .H  x  >  R ^0  ". 8H>P R^ Pp " . >P RX^ 0Php "x. > R^p (0 "8 @ b` "  > X h < @   0 H<X @    D  hHp    D @HH     " " 8(` h >   " " 88@x  >    " ( 0 8 ^H    N `p x  "  @ 8 N  (0  8 HX "` hx " "   b " HrU@@@@~x qa1a !$%(,Q-0Q1102 +../!/Q//a+/+45  ggR(Z(U(g grg\k(( ( ggNk(((gNk((`(gNk((x(gNk((H(gNk((0(gRqk(((gggKgXx` x(Z8(xH XU (xXgXx` x(Z8(xH XU (xXg$`aP Pg$`aP P gKgKgh` ( (H e(gh` ( (H e(ggh`( (H e(gh`( (H e(gxgg`g`g g0\0g0g0\dg0gHlggHlgg  gK gF8 V8 gF8 V8 g$`aP Pg$`aP Pg$xaP Pg$xaP Pg g0\L g0 g0\ g0 gHl g gHl g g ggqg rg{ nH`x0J P(xX8  gg gRZUgrg\k` `g`k`HK`gVk```gq (Z8( X( ( gq (Z8( X( ( ggqg rg g{ D >( `0 aS SPX`h x] ] 0ListWeekSchedules n(po@ t(J'j P!T' V P(Tox Box1Index x!z& !$B@% Box1MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box1Index+1,2),1)& !$B@'''''' Box1Index %$(bme Box1MonthDays %$(b.l Box1MonthDays |(p''''''` x!J  |!J t ;xME( PSPSSS<:<0<8<0{4C6F3665-A7FC-4823-B14D-C3DA2419D201}{97242A2D-EA56-4467-8640-7CB63188CE4A} ( h l r v8   @   H   P ,,` H`` `` `` p %  % `` `   i00i PthMi%(b%jj pj!P0`HH8@P0P" x_P!E "8 "@ HX ` p ",j0"Px. >( R0^  (@H "P<Xj"(P p.x > R^`    "(<0jp"(H .P > R^8  " < jH  "   .(  X h >p  > R ^P      " < j December 31 m ~(ddupld x!J  |!J$ mmmm d$ ~(d=k Box2MonthMin x!J  !J$ $& !$B@n b MonthsBox26=OFFSET(Lists!$A$2,Box2MonthMin-1,0,13-Box2MonthMin,1)& !$B@" Box2MonthMin %$(b MonthsBox2 %$(bn MonthsBox2 (pco8 Box2Index !z ! & !$B@ex Box2MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box2Index+1,2),1)& !$B@'' Box2Index %$(b'' Box2MonthDays %$(b** Box2MonthDays (p P !J  !J December 31'' (d''''d@ !J  !J$ mmmm d$ (d Ak Box3MonthMin !J  !J$ $& !$B@@1], MonthsBox36=OFFSET(Lists!$A$2,Box3MonthMin-1,0,13-Box3MonthMin,1)& !$B@ Box3MonthMin %$(b MonthsBox3 %$(b( MonthsBox3 (p o Box3Index !z ! & !$B@ A Box3MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box3Index+1,2),1)& !$B@POffs Box3Index %$(beC Box3MonthDays %$(bj% Box3MonthDays (pj(""2 !J  !J December 31 (ddh !J  !J$ mmmm d$ (dhek Box4MonthMin !J  !J$ $& !$B@ MonthsBox46=OFFSET(Lists!$A$2,Box4MonthMin-1,0,13-Box4MonthMin,1)& !$B@ Box4MonthMin %$(b MonthsBox4 %$(b MonthsBox4 (po Box4Index !z ! & !$B@ Box4MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box4Index+1,2),1)& !$B@ Box4Index %$(b Box4MonthDays %$(b)= Box4MonthDays (p !J  !J December 31 (dZ=d !J  !J$ mmmm d$ (dkH !J  !J$ mmmm d$ (d Box5MonthMin !J  !J$ $& !$B@ MonthsBox56=OFFSET(Lists!$A$2,Box5MonthMin-1,0,13-Box5MonthMin,1)& !$B@ Box5MonthMin %$(b MonthsBox5 %$(b MonthsBox5 (po@ Box5Index !z ! & !$B@ Box5MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box5Index+1,2),1)& !$B@Holidays %$(Holidays %$( Box5MonthDays (po x!J  |!J December 31 ~(ddp x!J  |!J$ mmmm d$ ~(dk( Box2MonthMin x!J  |!J$ $& !$B@ MonthsBox26=OFFSET(Lists!$A$2,Box2MonthMin-1,0,13-Box2MonthMin,1)& !$B@ Box2MonthMin %$(b MonthsBox2 %$(b MonthsBox2 (po !J  !J December 31 (d\d !J  !J$ mmmm d$ (dkh Box3MonthMin !J  !J$ $& !$B@ MonthsBox36=OFFSET(Lists!$A$2,Box3MonthMin-1,0,13-Box3MonthMin,1)& !$B@ Box3MonthMin %$(b MonthsBox3 %$(b MonthsBox3 (pPoHH8 !J  !J December 31 (dd !J  !J$ mmmm d$ (dk Box4MonthMin !J  !J$ $& !$B@ MonthsBox46=OFFSET(Lists!$A$2,Box4MonthMin-1,0,13-Box4MonthMin,1)& !$B@ Box4MonthMin %$(b MonthsBox4 %$(b MonthsBox4 (p o x !J  !J December 31 (dd0 !J  !J$ mmmm d$ (dk Box5MonthMin !J  !J$ $& !$B@ MonthsBox56=OFFSET(Lists!$A$2,Box5MonthMin-1,0,13-Box5MonthMin,1)& !$B@ Box5MonthMin %$(b MonthsBox5 %$(b MonthsBox5 (p o On Error Resume Next[TextBox16.Text = Format(DateValue(ComboBox23.Value & " " & ComboBox20.Value) + 1, "mmmm d")0 o( P]Lists$D  TextBox  h%\!J L17:%H(J     ComboBox110 h%\!J M17:%H(Jd( ComboBox10  h%\!J M17:%H(Jk      ComboBox120 h%\!J N17:%H(Jd` ComboBox11  h%\!J N17:%H(Jk     StartupComboBox10 h%\!J AJ17:%H(JdStartupComboBox  h%\!J AJ17:%H(Jk@    ShutdownComboBox10 h%\!J AK17:%H(JdShutdownComboBox  h%\!J AK17:%H(Jkh qP t(Jo8]]0 ComboBox121 h%\!J'Lists$D'j ComboBox122 h%\!J P17:,H'j ComboBox  h%\!J  P17:%H(J q(o H]] ComboBox121 h%\!J'Lists$D'j ComboBox122 h%\!J P17:,H'j ComboBox  h%\!J  P17:%H(J q t(Jo](]@]X]x jG|jP2Lists$D%: P1Lists$D%:%Lists$D%:.'    ' !J h!n!J  h!(J   P1Lists$D%:%H!JComboBox  h%\(J k poh]PLists$DAA2:AC67:B@ TextBox1  h%\!J AA17:%H(J ComboBox   h%\!J ComboBox    h%\!J$ AA17:%H(JComboBox   h%\!J AA17:%H(J q hB@  P(To  P(To`  P(To`  [ Changed this to not set iSkipSchedCalcs so that schedules could be changed. 12-11-2008 iSkipSchedCalcs = 1'd'ko Attribute VB_Name = "UserForm2Scheds" Bas0{4C6F3665-A7FC-4823-B14D-C3DA2419D201}{97242A2D-EA56-4467-8640-7CB63188CE4A} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDPublic boolNextWeekCaller As B ean lngcSe ttingLopng <@ Sub MultiPage1_Change()  ComboBox122.R@owSour"Lis<uleqEnd& .}_ActivG.Valu[296= Q%L5= AppDation.;uWC mxl Manual 1BH5 eWork-k.s.Add A:="OIndex", Refe@rsTo:=.R+IMon@thDays"=OFFSET(As!$C$2,0@INDEX( Array,%+1,2),1)V3(1).Visiƛ gTF!6kL!#On Error )su!`#If h*J& " &6&M"Decembf31" The`faTj2.!uD"d#EBat(D`\() + 1, "bm d"o!QINfiALx2%MinB$2$d s&2ZRA@R-1Sz1oQQoor("Hf6,hFQGoTo4 02:x22G2 -\cCount d*COEpn;RBEg_ esc k7NES25]oExiEd1 nE7oE oEeE3oEmEfoEVyt oEAoEvfk3oE0hoE_ CdoEssaE3oEndE hE6oE{b%"_%)oE3&fE3(oEoE 1oE63oE nE3"GoE36# oEoE__V`i f8nEReiE3228ߊ2Hh HHH17,z2,2,c7,z ,3,ʼn3n, $ ߟ,z,^3,۠tx 8o9Y ,?_F"3,t ,6,,ϣ&e[H ,,3,},3dttt8o,,d,3,,8,,,4,,qQ-Qi$+  ,,,,o!+_ _ 1,,,4,,Ӏ ,6,,,w,XY4sVY4;,,4,oox19,,^Y4,, ,f_YGO$ ,,,,,,ombo״Box19.Value) + 1) ActiveWorkbook.Name@s.Add $:="Months5", Ref ersTo.=OFFSET(Lists!$A$2,H\Min-1@,0,13- &,H1)"t(" +").Visible = False97Combo015.RowSourc, o0On Error GoTo 0 End Sub Priv(ate (20_Change('Resume Next 'T>6.hormat(D&('3 & "&3, "bm d"ZDoneDaysButton_Click.ADim i@) As Integer= With sheets("B} AF@L= 1 N1@N.RH"L1@vOffset( , 0@lC@EUserm2Scheds.bCrolP"EA ClY/E,3$If;,0 Then-M-Eu1109]EE"F0K [If(:( e(N(rP?~2(dN1{((rMqc(f(AJ((Startup_)P)w***{"AK**hutdown?*%*9ϡS_*S*1 a@]SMultiPage1g`21_pTp1C0Week[/e "e*eAffid= `nt`&2sCL_jYj l% Caller Truą uCPy! jo o 2^dX k8 4t 8q? ht"0J!  /`p!oj0)x12 Lt Xa3 QAA(Q?i!Brng.pC*celXs w/  0Exitu1 Set =߰@?3)FE!,"6(xlDe)  TBEach qIn  bއPM224?57c߁e#1a iy-!UK@gY\F, /!O 5 nub OKq1ֲa_+Q+MMe&AA2:AC6`%Clearaents For iBox = 1 To 5.Range("AA1").Offset(^, 0).ValuerUserm2Scheds.Controls("Text1" &f&d 1d_ 4Date(}Combo~}10 + Hl"  #(#5j)K)&d2d081v088NhEnd With@On ErrGo0 >Hide Application.Ca0lculwlngSetting SubPPrivb  _Deact(HD_Ter8min-QueryClose(Cancel As Integer, Mod&eH6IfH= vbADMenu Then ' ChAd this to not iSki pSYs so aules could b(e c.@12-11-2008C wA= BEls@And If @gRangestrForPmulaSng StartTiopr`Foundw-If Exists("OrigHeaders") ThenujlngSettic= Appation. ?_.xlManual 5 ScreenU pd4;Fals3iRowsVer+65528/ q %s+ > 12 ADInCompbilityModՂ? 90G3@DA|= |SData"B X((WS.("C07"),"C" &).End(xlUp)HUse2Ss.ShowP><=Nu&%.Offset(0,F).= _9 "=INDEX(TableDayC,MATCH(%LAntWeek 1+INT (FeA)-DATE(YEAR,1,1),sC0),if(RC[-2]=""Holiday"",8,WEEKDAY`,2))) 2'This f$oc|!Xes the difference betVw@Ptp(stamp) an*dsD rtZ !,/cANru io h opB . @ls,n durz!occupied pe0riodP b&me thod `us!to h le %d " ancy at gopast mid nightr e @altern@rv2e ju@ sef @2(% }$e350@dn't w Awa@ m,rba remaiBn)issun A+_#F#uldNe next [I s a `xupBa given!type. @&s expect7b 7 mall,"'sho| /b!Cagover@Ye with knowledg8.Bc@ful C o6>LrARcan pos`sibly aNs 2k IFmtemenih@6p|ckzHP8RoGPmmat= HuN by 1 (row(`or down?`Yo!H}sB10?ult, organi0zed: [u=IF(@(1S-7VFsWO23S s,0))-0.0001)<=001+oo^g/a // <=?/ {) e/q/ AlD p St t_QY_/___Y)o "Occ","Un\"n. .F("z1]) )y#DC 3%d$+ /2" ' 0106$ u< e"3 +S6_ Shut1B1 x o @ȴb 7@(P49 #<=!Q%+m"upP/!5ula = st rForm& "IF(AND(Time<(" &xShutdownPD"),$D>=|top6.X001t4-22 )),"""" Unocc"")))"  ' = "N=-0Q01-INDEX(ListStarts,MATCH(RC[-1],DaySch eds,0k<=l0,o6 6 1~+,643h<=@_[}ZqL%rs2U~%A޿%""Otu@4urng.Offset(0, 13).R1C1 |_ \BvbDateDgT()>=I*,s ><:6 < ` pp <% %``` % `  r`@%x_P!$*\Rffff*1P506072cc " (08 @  ` p   ( @   0  @ j f J T@ ` D r@ t B0 xx J .@ p N J J  p p n n`   D T0  F  R  ((  $P  "x    ,    ,  *( @X    R  p fx b `H ( *`   8      , ,H &x : "  ( 0 .8 Nh & F "( ^P       "TJ`Hxxv] ]p]]]]]rngOrigHeaders$ P!T' V P(T P(%' P! G6B'jData$D.<C7 <%: C  <%:% <%:. hB@'''''' dex =INDEX(TableDayScheds,MATCH(INDEX(ListAnnualWeekScheds,MATCH(1+INT(DateTime)-DATE(YEAR(DateTime),1,1),ListStartDays,1)),ListWeekScheds,0),if(RC[-2]="Holiday",8,WEEKDAY(DateTime,2))) %H( c This formula calculates the difference between the time (timestamp) and the schedule start time, ` and compares it to the difference between the schedule stop time and the schedule start time. D If the difference is less, then it is during the occupied period. M This method is used to handle scheduled occupancy that goes past midnight. Y The alternative is just to see if the time is between the schedule start and end time, = but that doesn't work for schedules that go past midnight. l There is a remaining issue in that the scheduled occupancy that goes past midnight would be the next day, m and schedules are setup for a given daytype. This issue is expected to be small, and should be able to be < overcome with knowledge and careful use of the schedules. r Later, this issue can possibly be overcome as part of the IF statement that checks for occupancy past midnight, C and offsetting the matched ListDaySched by 1 row. (up or down?) ' strFormula sample result, organized:  =IF( H IF((Time-INDEX(ListStartTimes,MATCH(O23,ListDayScheds,0))-0.0001)<=0, D 1+Time-INDEX(ListStartTimes,MATCH(O23,ListDayScheds,0))-0.0001, D Time-INDEX(ListStartTimes,MATCH(O23,ListDayScheds,0))-0.0001)  <= j IF(INDEX(ListStopTimes,MATCH(O23,ListDayScheds,0))-INDEX(ListStartTimes,MATCH(O23,ListDayScheds,0))<=0, g 1+INDEX(ListStopTimes,MATCH(O23,ListDayScheds,0))-INDEX(ListStartTimes,MATCH(O23,ListDayScheds,0)), h INDEX(ListStopTimes,MATCH(O23,ListDayScheds,0))-INDEX(ListStartTimes,MATCH(O23,ListDayScheds,0))),  "Occ","Unocc");INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)) -0.0001'(#:INDEX(ListStopTimes, MATCH(RC[-1],ListDayScheds,0))+ 0.002'Z + 0.000106=INDEX(ListStartupTimes,MATCH(RC[-1],ListDayScheds,0)) +0.0001'7INDEX(ListShutdownTimes, MATCH(RC[-1],ListDayScheds,0))'[ + 0.000106 =IF(IF((Time- )<=0,' 1+Time- ,' Time- )' <=' IF( - ' <0,'0 1+ - ,'  - ),' : strFormula = strFormula & """Occ"",""Unocc"")" "Occ",'  IF(AND(Time>(  ),Time<=( +.0001)),"Startup",'  IF(AND(Time<(  ),Time>=( ),.001<( -.002)),"Shutdown","Unocc")))' _ strFormula = "=IF(IF((Time-0.0001-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)))<=0," [ strFormula = strFormula & "1+Time-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0))," Y strFormula = strFormula & "Time-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)))" " strFormula = strFormula & "<=" strFormula = strFormula & "IF(INDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0))" $ strFormula = strFormula & "<=0," strFormula = strFormula & "1+INDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0))," strFormula = strFormula & "INDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)))," 2 strFormula = strFormula & """Occ"",""Unocc"")"  %H( rng.Offset(0, 13).FormulaR1C1 = ' "=IF(AND(DateTime-INT(DateTime)>=INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)),DateTime-INT(DateTime)<=INDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))),""Occ"",""Unocc"")" PB@X %H!J %H( %H!J %H( '''' ***Added for Schedule ChartC6 <%: C6 <%:% <%:.OccupancyValue %. G ! B@jA4A ''''' ***End of added for Schedule Chart H'' Added next 3 lines so that schedules could be changed. 12-11-2008 On Error Resume Next? Worksheets("pt1").PivotTables(1).PivotCache.Refresh On Error GoTo 0 X'' Commented out lines after "Call AddNewData" was added above for the Schedule ChartkH  P(T P(d Ak o ]pL=IF(IF((Time-0.0001-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)))<=0,' ;1+Time-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)),' 9Time-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)))' <=' iIF(INDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0))' <=0,' i1+INDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0)),' hINDEX(ListStopTimes,MATCH(RC[-1],ListDayScheds,0))-INDEX(ListStartTimes,MATCH(RC[-1],ListDayScheds,0))),' "Occ","Unocc")' P7$:(o8 0 Attribute VB_Name = "mod6Schedules" Public iSkip\Calcs As Integer Sub CreateAt() D im WS^Worksheet0rn8 `8a `bt4xME( UserForm3InputDataRng,VZc UserForm4TimeStampCols.m mod2AddFields~c<__SRP_20pPSPSSS<:<0<8<0{D891DD2F-62DF-4E9F-84DE-F99524CE21BB}{F703C65F-6614-408F-B930-04C0FCD96229} x p % i0iH @ange%xHl%xhxHx_P! "  R0 @ ^ HP X  hx .  6  0 " 8@X h]Xh !d$:. !! !!  !! Gj x  %!X! !J$  P%  P%Header in cell ! is not text or a number.Error in Input RangeA@k s  A@r.l|x#The selection is not a valid range.A@J P(mber 3|0(0 MsgBox "The selection is not a valid range."% A@r c  P(ula caox  G'jo3Attribute VB_Name = "UserForm3InputDataR ng" Bas0{D891DD2F-62DF-4E9F-84DE-F99524CE21BB}{F703C65J614-408F-B930-04C0FCD9 6229} dGlobalSpacoFalse HCreblPredeclaDIdTru BE`xpose0TemplateDerivCus@tomizaDP Sub OKRangeButton1_Click() Dim cel As  On Error GoTo BadSet rngl (RefEdit1.Te$xt.If.Rows.Count < 3 OrFColumn:2( I= 2 And iT(imes2)` ThenS* Each9In#(1).Cells<DateTime =Data!RC3  !$B@ MonthArray %$(b" WeekdayArray %$(b D:T$B@ teTime =Data!RC10  !$B@ / <DateTimeC6$:(J/xYearC6$:%H(J/MonthC6$:%H(JMonthYrC6$:%H(J_ToDayC6$:%H(JmHourC6$:%H(JtDateC6$:%H(JgTimeC6$:%H(J f WeekdayNumC6$:%H(Jl Weekday C6$:%H(JheduleDaytype C6$:%H(Jbe theHoliday C6$:%H(J setup DaySchedule C6$:%H(Jto Occupancy C6$:%H(J< 1degBinC6$:%H(Jf the 5degBinC6$:%H(J can pTempRngC6$:%H(Jement DateRngC6$:%H(J C BoldA6:AZ6$:!(C7$: C $:%$:.Form =YEAR(RC3) %H( 0 %H(DEX('=VLOOKUP(MONTH(RC3),MonthArray,2,FALSE) %H( 1+Tim)=DATE(YEAR(RC3),MONTH(RC3)+1,1)-(1/24/60) %H(D mmm yyyy %H(CH(O23 =Day(RC3) %H( 0 %H(stSt =Hour(RC3) %H(INDE0 %H(istD =Int(RC3) %H( m/d/yO-xME(<><:<6 P .`X UU&Macro recorded 8/15/2006 by Bill Koranx 14 <% %`  @` U 0` //X % <% %`  ` 77 <% % %`  2X`  <P% 4`  <%`@X@%X x_P!$*\Rffff*1[506072cd"    0(@ h@ 0 @ ` , &( *H&x& &&, *H*x*.,*8*h**   4 $PxBD"($Px$$$(0.X@ ,@ nX f L0 n \ P h     ,  "   "    (  0 (@  h x @        (  28  4p    J   8\  (  0 ,@ px  " z  (08  @(P x@        $(4PJ  \  J`"x"J ~  >     ( 0 "8@ H  h(x  :N0Ph82 fX  "  (  :N@:H P `]]yyy;@ %H(INDE=RC[-7]-RC[-1] %H([$-409]h:mm AM/PM;@ %H(O2  %H$:!J  %H$:(=Weekday(RC[-2],2) %H(stSt0 %H(ySch%=VLOOKUP(RC[-1],WeekdayArray,2,FALSE) %H(h rng.Offset(0, 10).FormulaR1C1 = "=IF(RC[-2]<6,""Weekday"",IF(RC[-2]=6,""Saturday"",""Sunday""))"00_ rng.Offset(0, 11).FormulaR1C1 = "=IF(ISERROR(MATCH(RC[-5],Holidays,0)),""No"",""Yes"")"F(1=IF(ISERROR(MATCH(RC[-5],Holidays,0)),"No","Yes") %H(S=if(RC[+1]="Yes","Holiday",IF(RC[-2]<6,"Weekday",IF(RC[-2]=6,"Saturday","Sunday"))) %H(' %H %H$:!J %H %H$:('C:T$! B@(C6$:B@HFormulqx.<..% Application.ScreenUpdating = Trueo( HolidayList$D(b'o@]]]]' P! G6B'j .'Data$D.< = "C7 <%: C  <%:% <%:. B@,0," P(strFor B@Formul P(e-INDE imes < Yes !  %!   ' & "Tim =ROUND(RC[ ],0) %H())"0 %H(rmul =ROUND((RC[  ]-2.5)/5,0)*5+2.5 %H(RC[-1]0.0 %H(ta =if(RC[  ]<55,"under 55",IF(RC[  ]<=70,"55 to 70","over 70")) %H(k@ %H %H$:!J %H %H$:(),"qk B@,Formul% Application.ScreenUpdating = TrueySch..<..oht This sub is used to add temperature data after the other point data has been selected and the other fields added.]h]]]' P! G6B'jData$D.<C7 <%: C  <%:% <%:. P( B@ P(  < Yes ! %H! '  =ROUND(RC[ ],0) %H(0 %H( =ROUND((RC[  ]-2.5)/5,0)*5+2.5 %H(0.0 %H( =if(RC[  ]<55,"under 55",IF(RC[  ]<=70,"55 to 70","over 70")) %H(k`  %H %H$:!J %H %H$:(q k C6 <%:% C  <%:% <%:.  $ ! %HB@   %%HB@ C6 <%:% C  <%:% <%:.k x Worksheets("pt1").PivotTables(1).PivotCache.SourceData = "'" & WS.Name & "'!" & Rng2.Address(ReferenceStyle:=xlR1C1)7 Worksheets("pt1").PivotTables(1).TableRange2.DeleteA" P( Call DefinePoints.<..o ]8 Dim iRows As Long' P! G6B'jData$D.< <C6$: C $:%$:!!' P! GC6$: C999990$:%$:!!'jDays C6$:%%H(J =RC3-R[-1]C3 C6$:%%H  C6$:%%H$:( =R[+1]C3-RC3 C6$:%%H(Hours C6$:%%H(J =RC[-1]*24 C6$:%%H  C6$:%%H$:(* C6$:%%H   C6$:%%H$:!J C6$:%%H   C6$:%%H$:(qxopX]]' P! G6B'jData$D.< <C6$: C $:%$:!!' P! GC6$: C999990$:%$:!!'jOccupancyValue C6$:%%H(J)O=IF(RC[-10]="Occ",2.5,IF(RC[-10]="Startup",1.5,IF(RC[-10]="Shutdown",1.5,0.5))) C6$:%%H  C6$:%%H$:(* C6$:%%H   C6$:%%H$:!J C6$:%%H   C6$:%%H$:(qoPAttribute VB_Name = "mod2AddFields" Sub <() X.~Descri ptionMacro recorded 8/15/2006 by Bill K0oran_NPr@ocDataZInvoke_FuncZ \n149 Dim WS As WorksheetrngRangeiColO ffsetInteger Applicac.ScreenU pd$= Fa ls$iRowsVerI65528 If !s> 12 And InComp(bilityMod, Then +90+-SYv=vs(""z$S.{(W"C06"), "C" &).End(xlUp)ActiveV book.s.} A:="MonthArray", RefersToR1C1:8= _%"={1,""January"";2@Febr3March4April5 6@June*7lA8AuPgust9September 10OctocA Nov Dtec}@.AWeekday;BR( TuesCaAWednBThurACFri DSaturqESun2`IeTime9"=L!RC3Fo"(iB).Visibl&\J("(0c@wumn^:T").Insert Shift:=xlOigh$610Withf#Bki.Val>upC'#(0, 1Year 2BnU>3-Y 4hD z5Hou ]6J te75= 8$JNum 910Q@&typ_1?Hlolbw1I@ S@chedul 1)AOccupan cy? 1degBizo*).x-!v5OQx(C3H9!TempRng ky!!KC^A6:dAZ@o.FjBStyH"Boldp's=5>71s_s sw )pr0mulaqq=YEAR(T)xNP+0jFormatQH!aVLOOKUP(MONTH,rCj,2,FALSE=f J0#DA(TE( ,+1,1)-(1/2p4/60?8- mpmm yot4/g0W+L@et- 0 m/d/<;@ 1RC [-7]-a1][$-409]h:AM/PMz0, 7) +odS5_3`\ \[-2],2&f 3p_3s,{38'taIF <"",v=+ѫ)/&e/(ISERROR(MATCA@[-5],gs,0))`No`""Yes"""= c$O"=ifA+1]= us/2]/5):[*D8 1?.(+O`/ C@EntireC.AutoFit sSelec=0 ᩥ4QlNothingsImi Set rngTemps = Nothing P ' Application.ScreenUpd8ngTrueZEnd@ Sub  ChgHolidays() Worksheets(".List").VisibleG EBinBDim WB As RbookSjpRangFiColOffs'Integer{iRowsVerK65528&XIf s @> 12 AI nCompbilityModlFalse Then +90+Ām= ActivepSH Data"jS.v(W"C7"), H" &G).](`xlUp)wbUserB@Y.$atO A$A Form5AqAvail.ShowLc]@IsEBU With@8C strB@F"Yes"D W=.@umn + 2 -AACs(1)iTime@ s A.(0, 14).ADulaR1C1A$=ROUND(RC[d@D& "],0)"NumbeRrAat0[ 5#U P- 1D"]-2.5)/5*5+`> n. 6_"=if2<55,""und@v55"",IF=7055 to 70""ov@a)).IfGjn:,C<6)@2tCValAG?ZWBsCA fƾA li a"cAdd This sub used1 aderature a aft3the A pointChas b@ selecta@Gfields ed.e@ys 9c-n.bB:Axabbybo\!%``A ``3`A/a /a3oa@e_"a][cg A_`_`_` )`\`S0p``R _aa_|_a af1-@{taat tdaaAX^^Ӂbe(4 bA.ME @02Y>"C6 ToRightO5K4alrs`W 2bp`) 91 G53putw+ Y/).PasteSpecialW~eٰϱ[ A vpt1PivotTapbCache.Sourceq"'`Namea'!Rng2.rress(ReferenceStyle:= 12 Then iRows = Range("C6"D),H"C90").End(x@lUp)).j.Count xTToRight).Offset(0, 1)@.Valuer"`Days" ?E2x, 0n- 10).FormulaR1C1>=RC3-R[-1]C3B+'&[+$-*&ጉHour1J8AD*241f -1mf@ f _GEeB With 1Sub AddOccupancyB Point()Dim WS As WorksheeCLongA7@65528If ApplicaOAnd @InCompbilityModFalseHGCCSet=s(pta"C`@@M" &#9aFo+<`lmqcBa"=IF(RCAr0]="""@",2.5,S@tartup@1Nhutdownd0.5)))?1kH {+{{ HiHiX a S  S  S  S  S  S0rU@@@ __SRP_21 UserForm5TempAvail&3UserForm6TempCols$ UserForm7BldgInfo$2"%8 `!a8a `8 `8 `8 `8 `bL7xME(SPSSS0{528A6123-4277-47E1-B3CA-404CBFB29BA5}{7ABFDB60-86D7-4E82-BB27-C7D8797C1345} X  i0(i xH%%X(Hx_P!"   &( P` "h p  "  Yes' A@r Worksheets("Data").Activate $B@oXNo' A@r<%:oh  G.jo@8߱Attribute VB_Name = "UserForm5TempAvail"D Bas0{528A6123-4277-47E1-B3CA-404CBFB29BA5}{7ABFDB60-86DJE82-BB27-C7D8797C1345} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BExppose0lateDerivCustomizDP Sub OptionButton1_Click() D str2scYes U@nload   'Worksheets("D").Acti.v:-60Cols.Show  EndK U)2\)No)E%_QueryCl_(Cancel As Int@eger, ModeHLIfH= vbAControlMenu Then Se`t rngAFUN@othing ? LPxME(SPSSS0{6AECD      !#$%&'()*+,-./0123456789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnopqrsuvwyz{|}~D0A-29D8-4E9A-94C1-A1C5E49F3CDD}{036A9EDF-A5C2-434F-8E66-BACAA343529B}8 &X   `i0i %%Xx_P!"( 8H P.X   "  "  "   p YesG (!d$:.j $A@r|0(#The selection is not a valid range.A@  P(T P(oPXYes'o0No'o  G.joeAttribute VB_Name = "UserForm6TempCols" " Bas0{6AECDD0A-29D8-4E9A-94C1-A1C5E49F3:}{036A9EDF-A5C2-434F-8E66-BACAA343529B} dGlobal!SpacoFalse CreatablPre declaIdTru BExp8ose0lateDerivCustomiz DP Sub OKRangeButton2_Click()  On Error GoTo0 Bad If strBsAvailYes" Then Set rng (RefEdit@2.Text1Unload ExitA) :MsgBox " selection is not a valid r6.@pA3App7a .CalcuO = lnga-tingI ScreenUpdng3CkEnd'JTpT1 TRL LfNo@9W_QueryCl@(Cancel As Integer, ModeHDi{G= vbControlMenu }DHNothBSH%LixME(SPSSS0{D7C712D3-BDE3-403B-9815-4CBD2D8AFE4A}{62C9DEE9-2E56-439F-A4AE-2FD8BB310B7D} , Xx%%(Xx_P!"8D@ 6H ( H2`   *!.!JAG2Lists %D%:(JBldgAreaAG2Lists %D%:& !$B@xBldgArea %$(b =RC[-1]/1000AH2Lists %D%:(' BldgArea1000AH2Lists %D%:& !$B@ BldgArea1000 %$(b *!.!J'Volts *!0!J& !$B@Volts %$(b Hs *!0!J' *A@roAttribute VB_Name = "UserForm7BldgInfo" " Bas0{D7C712D3-BDE3-403B-9815-4CBD2D8AFE4A}{62C9DEE9-2E56-439F-A4AE-2FD8BB310B7D} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP Sub OK@ButtonAZ_Click() Act.Workbook.sheets("Lists").Range ("AG2Valuy1 * .TextBox1.0s.Add A:="%", Refer`sTo:=%W().VisiJl @H@ulaR1C1A=RC[-1]/1000PU< ="={>i_@2ttV\ol 62E(>"# } UnloadX End!g xmod3DefinePoints"CRE __SRP_86l__SRP_9tmod9KoranCharts ME(6 <<< 4X`  `  `8`: >` X2%pP8x_P!$*\Rffff*1O506072cc " ( 8HPX`h "px :N8H "PtXrngOrigHeaders$ *B@ 6B@Ad(AkoX]]2You need to have previously selected your data and'8 8 <9have the active workbook be the workbook created by ECAM.'8Not an ECAM workbook.': 8 :A@oChlr_ChW_TempInChlr_ChW_TempOutPmp_ChW_Evap_gpm ChW_TempIn ChW_TempOutPmp_ChW_Sec_gpmA@ABADAFoAttribute VB_Name = "mod3DefinePoints" @ Sub P() If nExists("rngOrigHeaders") ThenRZUserForm7BldgInf@o.Show1AjEquip "Call AddN@ewData;ElseE"NotECAMworkbook'nd If EmDim strMsg As 2Sng# Tixtle You need to have previously select your dg and!& vbCrL f & "$the acti)r0 be  crDea0by .-](?B # @?BoxA, ,DR@^culOAERl Ton@Chlr_ChW_Temp@In", "ODutPmpB Evap_gpm K C Sec ĨBNalizĉStatus*m@KrU@@@~x HiHiXHi aS S SPrU@@@8`8a`8`bffff*1W506072cd*\R1*#119$*\Rffff*2C50608480*\R1*#42*\R0*#17$*\Rffff*1L506072cc*\R1*#12e*\R1*#24f*\R0*#f*\R1*#80*\R1*#95*\R1*#43*\R1*#24e*\R0*#e*\R0*#1a*\R1*#e6*\R1*#2b3*\R1*#3d*\R1*#118*\R1*#1d*\R1*#252*\R1*#383*\R1*#1a*\R1*#2ed*\R1*#2cc*\R1*#2ee*\R0*#10*\R1*#11*\R1*#2ec*\R3*#17b "   (@HP X` x " H J .0 B@ 8P  `"h      @ 0 6 " 4 0  8@  @HNX.6p    "   4  .0  @X.P ( L   F@ P `Vp   *$ 0  Z@ X` Rp 4    X R n | >  @H  4P ` L    (  40 L@BFlxME08 ( (:(<0<<<> LL   L""LL**<<<<<<<<<<<<<<<<.>@%X(1 Lp`  Z`hk P `k% R8`8ox5ij %`l`n`8`: 0% T@`x# o??`|`~ %```` b8`.o]]# %`l`n`8`: 0% P`ij %`l`n`8`: H% `2kb ^`H(ovvf`|`~ H%````  ` ij @%`l`n`8`: %  ` <<`|`~` % H ` ,,`8`:` @ %  `    `  P ` ,  `3kE  `  ^   `6oX hi X %`l`n`8`:    %  ` p ) %`` "P `550`$`& 4 `66e`$`& (`0i h%`8`: B` 66K` Dh`  X` :: Z`.. 0 %` ````` (% F` 44 X(% x%` `aa#` ``  `  <0% 8% `  <h0% 8% (` <0%  %  ` ))` ` ``` P!` ! "`"``````n`b <h0%` ` #` #`8`$J@  8H P ( P P pP (` @ h8HP 8hPVPR\T^@ @ @ `b:@ @ hPPdfJDh@ @ @ @ x `#(p @ PDhd@ @ @ @ @x @(p @@X @P @X8 @p @ @ @ @ @ @ @0 @H @`h @xP @8 @ @ @ @ @ @ @  @8x @P` @hH @0 @ @ @ @ @ @ h&p@h @`@1@h h9@ ``9@H @ 0  :@(!( 8 :@H  ` :@! H :@P"o p :@ p A:J<@`! ! ^@!`@!!^@!O P!(!cx!(!f@! !`!y@"`!!y@" !!@" "!@(" @""@" h"("@(#xo x"P""P"@` ""@X ""@#P #"@H @##@@o P#(#(#@8 (x'(&0$x$&H$(%$$`'$PD@% @`$ @$ @%x @@&` $$ @h&X`@%$ @$@ @P%( @0( @ `X&(%@h% @% @% @% @% @& @%p @&X @@ @8 @' &@&@'`'h&& & @& @' @' @0' @ @8 $<@:H'h @'P ''&@(H`''&@0 ('-@(`(-@ h,0PX+)0)+))*0*-)PD@) @`) @H) @x)x @X*` @+H @`-@ @)8 ))@*0O )) *)@p+ H**@+`*0*@p* @* @- `+*@* @* @* @,x @(+` @@+H @0 @( @, +p+#@,`,+#(<:, + @0, @H, @`, @x, @ @8p @:,X @-@ -,/@8-8`(-,/@x- P--6@-`-8-6@ @ -x-G@`--G+@ `-mH0./@/.00/P@0 `0.`8%0. @(/ @/ @X/x @p/` @/H @/0 @/ @0 @/ @0 @ @2 .<@ x0`p%`0/@0 @0p @0X @0@ @1( @ 1 @81 @P1 @h1 @1 @1 @1 @1h @1P @18 @2 @(2 @@2 @X2 @p2 @2 @ @2 @ 3p3@ h5X4p44454 64@44 :P@ @6 @4 @ 5 @P5 @5 54@5`54@85p @x6X @H6@ @( @ 55 @ 55 @5 65 @ 865 @o 6 6 @`6 @ @6 @ @ 6< ; =7777(<H;<p;=`;PVdfJD@7 @ @8 @89 @H8 p7hp@08p @`8X @x8P @88 @80 @8 @8 @8 @9 @ 9 @P9 @ @h9 @9x @9` @9H @=0 @9 @9 @9 @: @(: @@: @X: @p:p @:X @:@ @:( @: @: @; @; @0; @ @; ;H;:@;x`;p;:@<` ;;C@P<X`<;C@@ @=( @<<D@X= h<(<D@x< <P<D@0= <x<D@o <<D8@x =<K@ H==e@`p=0=e@=O =X=j=X=m<\`<=`8%=@ @ $$((88Xx_P!*\R1*#275$*\Rffff*1R506072cc*\R1*#253*\R1*#2d8*\R1*#385*\R1*#125*\R1*#114$*\Rffff*1N506072cc*\R1*#5b$*\Rffff*1T506072cc*\R1*#253$*\Rffff*1d50607d64$*\R 0` Rp  J    4  6 6  (D@ 6h (D 66 6 6 80  6h    "4    6  6  6  6  4 @ RH LX   x  ,N  ,N     *x $T(  P  V`  *x 6 4  "4    F  @  DH  (Dh   : : L0  6P  4h  V  *    0 2b    0N hx  V 2 NN0NP  2p   2 * ,@ H(Pjhx .@(j*hf*F@P X` 6h 6x 0   " (  4  .0 L@ `6h  4 dH 4(` dh ,f"B*   V P4p :4  6  20HP"BX  2   "B    "PB8  , *  " (0 $8  4` .p & V.HjXV .8BhDHj   ` t t  4  fX  x  & f  < V . 20  @ >Hv  * $ jt P  v   ( (NHNhN  2   6 0 6 ( jhH .@j*0f*F   ( 0  68  0H  6X h "        $  X (P! Lx! ! ! ! ""0"8"@" H"P"  X" h" *x"" 0" " # (# 8# H#X# `# h# x# # # ># $$  $ ($ $ $ $ $$  $ % (% 8% X% h%%%% %  %  % % (& 0& (P& x& >& & & 8' P' p' "x' ' ' ' '  ' ( (( 0( @( `( ,h( ,( ( (*($) 8) H) `)p)))")) ) F) (* 0* (P* x* * :* :* +  + @+ X+ p+ + + +2+ + +N, X,h, p, x, ", , ,.,,-0-H-.`------ .  . . 0.  4H. . . . &. .  . / / .(/ X/ h/ >p// / // $/ j0tx00 0 1 1 (101@1 ,`1 1111  2  2(2 202 h2 x22 2(2j20383.@3@p3j3f 444 44 4 4 4 "4245 "55 5(5 (05X5`5h5p5  4x5 .5  25 ,b5^5,5 6 26 L(6 H66P6 h6 4p6 d6H6 47H7 dP7 ,fp777"B7*7 7 7 V8 P4X8 :48 8 69 290989"B@9 h9p9 2x9 9 9 "B99 9 9 99 "P9B : h:;  ; v;,;,<@<H< (P<p<(x< <<(< <<(< << ,< N = p=(= ,(=  ==(=  >>(>  0>@>(H> `>h>p> x> d> 2>V> > >>\>> ? " ? ?(?0?8?@?H? $P?  x?X? (? L@ X@ x@ @ @@@@@ @@  @ @ *A8A 0HA xA A A A AA A A BB  B (B 8B B B B BC  C C 8C HC hC xCCCC C  C  C C (D @D (`D D >D D E 8(E `E E "E E E E E  F F 8F @F PF pF ,xF ,F F F*F$ G HG XG pGGGG"GG G FG 8H @H (`H H H :H :H (I 0I PI hI I I I I2I I JNJ hJxJ J JJJ ,J JK0KPK  pK KK K K ,KK K(KjLLL.L@LjMfxMMM MN N N "(N "PNXN`NhNpN  xNN N BNN O ,O ,HO xO O O  O O OO O OP P P(P 0P .8P NhP P P,PQ (Q 0QHQ XQ `QxQ Q QQ Q QQ Q Q QR ,R8R@R HR XRhR "pR xRRRR R R RRR R S `S0xS S XS T 0T  HT `T xTNT T T UU :U BPU NU NU ,8V hV xVVV  VV "VV VW  W "(W PW XW pW W W WWW W WNX XXhX pX X X XX "XX YY 0Y HY `Y xY YYY Y Y2Y Z  ZN0Z ZZ Z Z Z ZZ "[[ ([8[ X[ p[ [ [ [[[ [ [N\ X\h\ p\ \ \ \\ "\"\ ]L] 68] 4P] Vh] *]  ]6]B] ] 0]N] 8^H^ @P^ $h^ ^ 6^^ "^^ ^^$_ 8_ @_P_ " h_p_x____ ^__  4`  B` 8 ` 00` H`P`  @X`Nh` 6`  ` ``  `X.`( a LHa a Fa a aVab bb b b  4(b$8b ^Hb 8Xb 4hb xb  b Xb Rb nb |b :b  (c0c 8c Lc c c c  d d  d d L(d 0Hd RXd xd Jd ddd d  6d 6d (De 6@e (D`e 6e >e 6e 6f 8(f 6`f  f "4f  f 6f 6f 6f  6g 4g8g R@g LPg  pg ,Nxg ,Ng  g g*xg$T h Hh VXh *ph6h4h h"4h h  h6h ii i^0i^Pi  pi xi ixi 0i .i &j Vj. jHPjjhjXjVj.jBjHkjk8k @k 0Hk Bxk `k tk tkl  lVl l ,@l 2pl 6ll l(ljhl 8m.@m@pmj*mf* nFnn nn 6n 6n n " nnoo o  o (o8o @oPohooo*o o oo pp p"(p0p8p @p `ppp p p p ppq q0q8q Xq`qq q q *q ,q .r @r  HrNXr r r rr s s s &8s`sxs ss ss s$s t t  t "@tHtPt  Xt xtt t t t t *u ,0u .`u u u uu 6u v v J@vv v vNv w w @w`w hw pw w &www x x x 0x PxXx `xxx x$x x x $x" yy y0y8y  @yPy (hy y  y y yyy  yy z  z 0z@z  HzXXz<z Lz R@{ T{ H{ 8| X| h| x||||| |||  | || } } }0} 8} @} P} `} } :} }} } ~ ~ ~ ~ ~ ~ ~~ ~   0 @`px        , ,H x  * , . H ` "  ^  ( @@ 4` h   ȃ؃ 4BP*$Є   (8P hp    ؅ @ NH "І 2 0 @P X<`@TH8V؈jh.p@jfPȊ Њ؊   " ( 0 @X ^x؋ . . >P  ، N P`x  2ȍ     ( 08@ X ` h px  Ȏ Ў  "  ,(X"`h " (ȏ "(P`p     Ȑ ؐ   ( 08@ P X `p     Zȑ( 8 @P "X " :   (  8 HP hp x  Г    ( 8HPX` h ,p "ȔДؔ  08@ HX `p x   Е ؕ 0HP Xh p   Ȗ Ж   (@ "X` h <xЗ ^H .` . > 0 H` Np Й 2 Xp  Ț   ( 8 @ H 6P 4ț Л $ "(P ,X .М؜   ( HX ` ,p :  "8*P & Ȟ "О 2 *0 8`  ȟ " 4  0  8HhȠ(Hh  ȡ(H P (X  "  ,Ȣ   8 X hp x    "ȣУ  أ , 8 @X &h     ( "@HP  X hp Хإ  8 8P 6 "Ȧ $Ц    0 @P Z`Ч @ HX h    ب ZHXh ȩЩة& " &@ "H PX`hpx T L@  H Xx  J     ( 0@H P`hpx   4$  @HX `  hxȭ Эح...@ Dp N 6@4PȯЯد * 4 2H <  (08@HP X ` 2xȱ б (8@ HPh   ز**0*`*ȳг(0$Hp x H *( @Pp  \     ( 8 @H` Hx  ж  , 0 "P X` dhdзf8Jjb`Dȹf\x$غ ] ( P(NAP ptDataSummaryARATAVAX.A1$:B@H P(NxoppB Note that History charts, although they appear as a line chart,D Are actually x-y scatter charts with time as the x-axis variable. P(N P!T' V P(TAP chtHistoryARA\ATA^A`Ab.A1$:B@H P(N  P(To CreateHistoryCharti P(attpt1$dd:Afk !'J="Data$DB@,"  P(''' *** Don't delete this line!a ute hB@d:rk8o SetupLPforHistorycom ]]]]]] P(d:c P(NxTy e=C6Data$D%: C6Data$D%:%Data$D%:.  $ !! CSelect just the headers for the points you want, not multiple rows.'8WeekError in Point Selection': 8 :A@ hB@  ( !! .hk`k      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~XkP# strWkshtName = "chtHistory" DayS j$d$* ptUpdateEvent &%DB@  Worksheets.Add j ptUpdateEvent$D( j$D(b j$DB@, p(rH(dh` j$D(b j$DB@, j$D%B@ j$D%F!tB@ ld 7 Worksheets(strWkshtName).Visible = xlVeryHiddenk P(RC3)!B26 j$D%:zptECAM1|pt1 %D%F!vB@x6', DefaultVersion:=xlPivotTableVersion10AR(RptECAM1 %F60)9~99q P( ptECAM1 %FC3) 5 !$Status  =Hou ! G  (j  ' k(k  ))<=0, P( TempRng7( 1degBin7(]-RC[- 1degBin1degBin7B@ 5degBin7((O2 5degBin5degBin7B@ Holiday7(=Wee  Occupancy7(H Daytype7(%H Weekday7(],Week 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7(1 = "=pmmm yyyyMonthYr7(rday""@ Month7( Year7(aR Date7(CH Time7("N h:mm AM/PMTime7(q j$DB@,ptECAM1 %F%HWeekdayDaytype7%(WeekSaturdayDaytype7%(    !J7Avg !J C@ 0.00Avg !J7(' ! !X! B@H 5(x Day7(Day7(Sc@WeekdayDaytype7(N Hod? .PivotFields("Day").Orientation = xlColumnFieldk DateDate7B@ DateTimeDateTime7B@qh''''''''''''''''''4 Columns("B:B").EntireColumn.ColumnWidth = 21strFor4 Columns("C:C").EntireColumn.ColumnWidth = 11ptECAM1 %F % Day7('Day7( !X!  5())"kP 5L !N(All)GBold !!(j)*5+2.   5L1] !N(All)GBold ! !%H$:!(jr   qdx J$DB@,k not rngdata is nothing+Start of end of sub CreateHistoryPivotTable!J Range("A1").SelectA:A %( B:B %(ApplicC:C %(eySch PB@X.< Set rngData = Nothing., Application.Calculation = lngCalcSetting"",""U# Application.EnableEvents = True% Application.ScreenUpdating = True|  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@d.%Unknown Error in Create History Data.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k ..  P(T P( P(No CreateHistoryPivotTable8]]]" Dim strFirstDataCell As String]]]]( P( P(NptECAM1 %F Time7(x (All)Daytype7(N] iDateTime = Worksheets("pt1").PivotTables(1).PivotFields("DateTime").PivotItems.CountData$DC77: C77:%7:!X!'q } P! DateTimeptECAM1 %F% 99D 9 DateTimeC@q d MThere are more timestamps than your version of Excel can put in a PivotTable.'8 8 <;The time series history will use Time rather than DateTime '8 8 <&and the time axis will not be labeled.'8Too Many Timestamps': 8 :A@Time7 99D 9qx kp Date7 99D 9q  C@q !!ptFirstDataCell' ptECAM1 %F!%X& !$B@% Application.ScreenUpdating = True# Application.EnableEvents = Trueo FromTimeToDateTime@]]]]]] Dim strWkshtName As String P( P(N  !X! %F%!%X!J'l  7( l  7!!(d 7!( !X! %F%!%X!J'n7( 7(  7( n  7!!(dk(k 5!(5! 5(5! 5(!*for charts that don't have a Category Axis 7!!(9 On Error Resume Next P!$ GAj 5( !X!9' .ChartArea.Height = 320@5(d8 .ChartArea.Height = 320 + .Legend.Height@5! 5(kX59 .Height = 293csmall PlotArea.Height to give room for "ddd, m/d/yy" format for dates, plus room for 1-line legend.9!ewas .height- ActiveChart.Legend.Height; changed to increase .ChartArea.Height for multi-line legends.9 !X!G9jqq"Start of end of FormatHistoryChart Range("A1").SelectA:A %( B:B %(C:C %( PB@X Set rngData = Nothing.  P(T P(N P(|  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@d@&Unknown Error in Create History Chart.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@.k..  P(T P(N P(o FormatHistoryChart8]]]]]]0 Dim strWkshtName As String C6Data$D%: C6Data$D%:%Data$D%:.  $ !! CSelect just the headers for the points you want, not multiple rows.'8Error in Point Selection': 8 :A@ hB@  !! .kkk P( P(N# strWkshtName = "chtHistory" j$d$* ptUpdateEvent &%DB@  Worksheets.Add j ptUpdateEvent$D( j$D(b j$DB@, p(rd j$D(b j$DB@, j$D%B@ j$D%F!tB@  7 Worksheets(strWkshtName).Visible = xlVeryHiddenk P(!B26 j$D%:zptECAM1|pt1 %D%F!vB@x6', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F9~99q P(ptECAM1 %F 5 !$Status  ! G  (j  'k`kX  P( TempRng7( 1degBin7( 1degBin1degBin7B@ 5degBin7( 5degBin5degBin7B@ Holiday7( 7 .PivotFields("Occupancy").Orientation = xlPageField Daytype7( Weekday7( 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7(mmm yyyyMonthYr7(X Month7( Year7( Date7( Time7( h:mm AM/PMTime7(q j$DB@,ptECAM1 %FWeekdayDaytype7%(SaturdayDaytype7%(0   !J7Avg !J C@0.00Avg !J7(  !X! 5( Day7(Day7(XWeekdayDaytype7(N(d ? .PivotFields("Day").Orientation = xlColumnFieldk DateDate7B@ DateTimeDateTime7B@q''''''''''''''''''4 Columns("B:B").EntireColumn.ColumnWidth = 214 Columns("C:C").EntireColumn.ColumnWidth = 11A\ptECAM1 %F Day7(Day7( !X! 5(k` 5L !N(All)GBold !!(j  5L !N(All)GBold ! !%H$:!(j qA^A` Call BoldChartLines  !X! %F%!%X!J'l  7( l  7!!(d 7!( !X! %F%!%X!J'n7( 7(  7( n  7!!(dkk5!(5! 5(5! 5(!*for charts that don't have a Category Axis 7!!(X9 On Error Resume Next P!$ GAj 5( !X!9' .ChartArea.Height = 320@5(d8 .ChartArea.Height = 320 + .Legend.Height@5! 5(k059 .Height = 293csmall PlotArea.Height to give room for "ddd, m/d/yy" format for dates, plus room for 1-line legend.9!ewas .height- ActiveChart.Legend.Height; changed to increase .ChartArea.Height for multi-line legends.9 !X!G9jqqd J$DB@,k not rngdata is nothing&Start of end of sub CreateLPforHistory Range("A1").SelectA:A %( B:B %(C:C %( PB@X.., Application.Calculation = lngCalcSetting P(N P(|p h  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@d .&Unknown Error in Create History Chart.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k` ..  P(T P(o CreateLPforHistoryP  B@o ]]]0" Dim strFirstDataCell As String]P]h]] P( P(N  (' !'!ptField0Category'  !=  (   (ptECAM1 %F Time7( (All)Daytype7(N] iDateTime = Worksheets("pt1").PivotTables(1).PivotFields("DateTime").PivotItems.CountData$DC77: C77:%7:!X!'q } P! DateTimeptECAM1 %F% 99D 9 DateTimeC@qdMThere are more timestamps than your version of Excel can put in a PivotTable.'8 8 <;The time series history will use Time rather than DateTime '8 8 <&and the time axis will not be labeled.'8Too Many Timestamps': 8 :A@Time7 99D 9qkDate7 99D 9q0( C@q !!ptFirstDataCell' ptECAM1 %F!%X& !$B@ ActiveWorkbook.Names.Add Name:="ptScatterChartOcc!MaxChartCat", RefersToR1C1 ' :="=MAX(ptScatterChartOcc!ptField0Category)" ActiveWorkbook.Names.Add Name:="ptScatterChartOcc!MinChartCat", RefersToR1C1 ' :="=MIN(ptScatterChartOcc!ptField0Category)"@  %!%ptField0Category$: P!R%'|ptField0Category$: P!R%'~ |9 ~9 ddd, m/d/yyyy5(9 ~ | (\?@ 9k` ~ | (\5@ 9k8 ~ | Q,@ 9k& If dblMax - dblMin < 7.01 ThenH .TickLabels.NumberFormat = "[$-409]ddd, m/d/yy h:mm AM/PM;@" End If ~ | ףp= @ [$-409]ddd, m/d/yy h:mm AM/PM;@5(?9k ~ | Gz@ ?9k ~ | )\(? QUUU?9k ~ | {Gz? 9kq } P!   (  %99q   %B@ko FromLPtoHistory](]H]`]x]] Dim strWkshtName As String C6Data$D%: C6Data$D%:%Data$D%:.  $ !! CSelect just the headers for the points you want, not multiple rows.'8Error in Point Selection': 8 :A@ hB@  !! .0?k(?k ?k? P( P(N# strWkshtName = "chtHistory" j$d$* ptUpdateEvent &%DB@  Worksheets.Add j ptUpdateEvent$D( j$D(b j$DB@, p(rd>> j$D(b j$DB@,k== P(!B26 j$D%:zptECAM1|pt1 %D%F!vB@x6', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F9~99q< P(ptECAM1 %F 5 !$Status  ! G  (j  'kP<kH<  P( TempRng7( 1degBin7( 1degBin1degBin7B@ 5degBin7( 5degBin5degBin7B@ Holiday7( 7 .PivotFields("Occupancy").Orientation = xlPageField Daytype7( Weekday7( 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7(x:mmm yyyyMonthYr7(H: Month7( Year7( Date7( Time7( h:mm AM/PMTime7(q9 j$DB@,ptECAM1 %F9WeekdayDaytype7%(SaturdayDaytype7%( 9   !J7Avg !J C@0.00Avg !J7(  !X! 5( Day7(Day7(H8WeekdayDaytype7(N8d8? .PivotFields("Day").Orientation = xlColumnFieldk7 DateDate7B@ DateTimeDateTime7B@qp7''''''''''''''''''4 Columns("B:B").EntireColumn.ColumnWidth = 214 Columns("C:C").EntireColumn.ColumnWidth = 11A\ptECAM1 %F Day7(Day7( !X! 5(kP6 5L !N(All)GBold !!(j  5L !N(All)GBold ! !%H$:!(j q5A^dp5 J$DB@,k not rngdata is nothing&Start of end of sub CreateLPforHistory Range("A1").SelectA:A %( B:B %(C:C %( PB@X..  P(T P(N% Application.ScreenUpdating = True|44  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@dp3.%Unknown Error in Create Load Profile.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k2..  P(T P(o CreateLPforHistoryRetuning] ]8]P]h P(p1  !; With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)  !% P(ptField0Category$: P!R%'|ptField0Category$: P!R%'~ |9 ~9 ~ | ' ddd, m/d/yyyy5(9 (\?@ 9k0 (\5@ 9k/ Q,@ 9k/ ( If dblTimePeriodDays < 7.01 Then H .TickLabels.NumberFormat = "[$-409]ddd, m/d/yy h:mm AM/PM;@"  End If  ףp= @ [$-409]ddd, m/d/yy h:mm AM/PM;@5(?9k. Gz@ ?9k. )\(? QUUU?9kp. ? qql?9k@. {Gz? 9k.q. -% Application.ScreenUpdating = True|--  P(T P(o-]]] ](  Call CreateLoadProfile P( %F' 5  ' Y If rngdata.Cells.Count <> 1 Or .PivotFields("MonthYr").CurrentPage = "(All)" Then MonthYr7!N(All) %B@H R .PivotFields("MonthYr").CurrentPage = .PivotFields("MonthYr").PivotItems(1).Name Day7(Day7( Date7(Date7A 5L !N(All)GBold ! !%H$:!(j A1$:B@HAd*+Calendar Charts can only plot one parameter <'8 8(and must have a single MonthYr selected. < <'8 89Create a Load Profile by Day with just a single parameter <'8 8?and select a single MonthYr prior to creating a Calendar Chart.'8$Too much data to chart in a Calendar': 8 :A@A1$:B@Hkh)q`) P(o CreateCalendarLPH ptLPchartDateRngA  ptECAM1 %F(WeekdayDaytype7(N( Day7(Day7( !X! 5(dH( DateRng7(DateRng7Ak( 5L !N(All)GBold ! !%H$:!(j q'A1$:B@HkNot rngdata Is Nothing. P(o CreateLPbyDateRng ptLPchartYrA  ptECAM1 %F Day7(Day7( !X! 5(dp& Year7(Year7Ak8& 5L !N(All)GBold !!(j  5L !N(All)GBold ! !%H$:!(j qh%A1$:B@HkNot rngdata Is Nothing. P(o CreateLPbyYear ptLPchartMonthYrA  ptECAM1 %F Day7(Day7( !X! 5(dH$ MonthYr7(MonthYr7Ak$ 5L !N(All)GBold ! !%H$:!(j q#A1$:B@HkNot rngdata Is Nothing. P(o CreateLPbyMonthYrP ptLPchartDaytypeA  ptECAM1 %F Day7(Day7( !X! 5(dh" Daytype7(Daytype7Ak(" 5L !N(All)GBold ! !%H$:!(j q!A1$:B@HkNot rngdata Is Nothing Then. P(oCreateLPbyDaytype ptLPchartDayA  A1$:B@HkNot rngdata Is Nothing Then. P(o CreateLPbyDay ]x ] ] ] ] W Dim strCurrentSheet As String 'Public strCurrentSheet as String in mod9KoranCharts] P( P!T' V P(Tpt1$dAfk !'JData$DB@, P(  hB@kH C6Data$D%: C6Data$D%:%Data$D%:.  $ !! CSelect just the headers for the points you want, not multiple rows.'8Error in Point Selection': 8 :A@ hB@  !! .kkk P( $d DB@  ( p(rdx $D(b $DB@, $D%B@ $D%F!tB@  4 Worksheets(WkshtName).Visible = xlVeryHiddenk!B26 $D%:zptECAM1|pt1 %D%F!vB@x6', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F9~99 C@qptECAM1 %F 5 !$Status  ! G  (j  'k@k8  TempRng7( 1degBin7( 1degBin1degBin7B@ 5degBin7( 5degBin5degBin7B@ Holiday7( 7 .PivotFields("Occupancy").Orientation = xlPageField Daytype7( Weekday7( 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7(xmmm yyyyMonthYr7(H Month7( Year7( Date7( Time7( h:mm AM/PMTime7(q $DB@,ptECAM1 %FWeekdayDaytype7%(SaturdayDaytype7%(    !J7Avg !J C@0.00Avg !J7(  !X! 5( Day7(Day7(HWeekdayDaytype7(Nd Day7(kq''''''''''''''''''B:B$! ( C:C$! (A\A`A !!() Selection.Left = Range("g7").Left' Selection.Top = Range("g7").Top  !X! %F%!%X!J'l  7( l  7!!(d 7!( !X! %F%!%X!J'n7(  7( n  7!!(dkk ) .Axes(xlCategory).HasTitle = True < .Axes(xlCategory).AxisTitle.Characters.Text = "Time"5!(5! 5(5! 5(qd J$DB@,k not rngdata is nothing%Start of end of sub CreateLoadProfile PB@X  P(T|h`  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@d%Unknown Error in Create Load Profile.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k`..  P(T P(o CreateLoadProfile ] ]  595!(k 5(5! 5(5! 5(5!!'5!( 5! !!  5%! B@  5!( 5(qo ] ]8 ptScatterChartOccA( ptECAM1 %F Day7(Day7( !X! 5(  Occupancy7(Occ Occupancy7(N Occupancy7(d  Occupancy7( Occupancy7AkXPOcc Occupancy7%(Unocc Occupancy7%(Startup Occupancy7%(  5L !N(All)GBold ! !%H$:!(j 7!%X!J'$7*!%X!J'&q   7( & 7!!(dptECAM1 %F!!  7( $  7!!(dk` qX A1$:B@H 0 %,(.A2kNot rngdata Is Nothing Then. P(o CreateScatterChartByOccP ] ] ptScatterChartDateRngA( ptECAM1 %F Day7(Day7( Occ Occupancy7(NOcc Occupancy7%(Unocc Occupancy7%(Startup Occupancy7%(h !X! 5( DateRng7(0 .PivotFields("DateRng").Position = 5d DateRng7(D .PivotFields("DateRng").AutoSort xlDescending, "DateRng"DateRng7AkP  5L !N(All)GBold ! !%H$:!(j 7!%X!J'$7*!%X!J'&q  7( & 7!!(dptECAM1 %F!!  7( $  7!!(dk76%(876%(8qA1$:B@H 0 %,(.A2kNot rngdata Is Nothing Then. P(o CreateScatterChartByDateRng ]P Dim iCel As Integer]p] !'JData$DB@,!Application.ScreenUpdating = True P( P!T' V P(Tpt1$dAfk !'JData$DB@, P(  :B@k C6Data$D%: C6Data$D%:%Data$D%:.  $ !!  !X! CSelect just the headers for the points you want, not multiple rows.'8 8 < <8At least 2 headers must be selected for a scatter chart.'8 8 <?Select the independent variable first, hold down the Ctrl key, '8 8 <4and then select the second and subsequent variables.'8Error in Point Selection': 8 :A@ :B@  !! .PkHk@k8k0  P( $d DB@  ( p(rd $D(b $DB@, $D%B@ $D%F!tB@  4 Worksheets(WkshtName).Visible = xlVeryHiddenk!B26 $D%:zptECAM1|pt1 %D%F!vB@x6', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F9~99@ C@(q ptECAM1 %F 5 !$Status  ! G  (j  'kk  1degBin7( 5degBin7( Holiday7( Daytype7(WeekdayDaytype7%(SaturdayDaytype7%( Weekday7(  Occupancy7(Occ Occupancy7%(Unocc Occupancy7%(Startup Occupancy7%( Hour7( MonthYr7(mmm yyyyMonthYr7(P~ X .PivotFields("MonthYr").CurrentPage = .PivotFields("MonthYr").PivotItems(1).Name Month7( Year7( 9 .PivotFields("DateTime").Orientation = xlRowField[$-409]m/d/yy h:mm AM/PM;@DateTime7( .PivotFields("DateTime").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)q|B:B$! ( C:C$! (ptECAM1 %F   !J %X!J  %X!J7(  %X!J %X!J7B@ED  %X!J7(d`{ !J7Avg !J C@0.00Avg !J7(k{  !X! 5( Day7(Day7(dz Day7(kpzqhzA< Call BoldChartLines !!(g7$:! >(g7$:! >(: ActiveChart.ChartTitle.Characters.Text = rngdata.ValueH ActiveChart.Location Where:=xlLocationAsObject, Name:="ScatterChart"A@ !!(d@y J$DB@,kif not rngdata is nothing+Start of end of sub CreateScatterChartByDay PB@X  P(T|xx  $ !!  !X! 8At least 2 headers must be selected for a scatter chart.'8 8 <?Select the independent variable first, hold down the Ctrl key, '8 8 <4and then select the second and subsequent variables.'8 8 < <;Select only cells from the row of headings, not the column.'8Not a valid range.':+Select only cells from the row of headings, <not the column.Not a valid range.A@dv&Unknown Error in Create Scatter Chart.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k0u..  P(T P(o CreateScatterChartByDay] P( %B@HptECAM1 %FX .PivotFields("MonthYr").CurrentPage = .PivotFields("MonthYr").PivotItems(1).Name Day7(( .PivotFields("Day").Position = 6' If rngdata.Cells.Count > 1 Then7 .DataPivotField.Orientation = xlColumnField Else Date7(Date7A End If 5L !N(All)GBold ! !%H$:!(j Date7AqrAD' !!ptECAM1 %F!!!  %B@  'rAF 9 H79J9L9Nqq  %9P9R9T9qqX5(qhq %(A1 %:B@H. P(oChart3dColoredDaytypes V (AXAZ% Application.ScreenUpdating = Trueoph  %6(\ 5(^ Added for Excel 20079`! End of Add for Excel 20079b 9d9f9h9j9lK9n .AutoScaling = True5p!r(t5v!r(t H7!!Arial9Regular99qHo ;x 795z!09t ~9|qn5!Arial9 9qnqn 7 9J 9L5!Arial9 9qpn95z!09t ~9|q@nq8nTAdded for Excel 2007 to compensate for contour chart needing series Labels at xlHigh H7 95!(qmEnd of Added for Excel 2007qxmoFormat3D_stacks3 This sub eliminates the lines on a contour chart]]8]P]h]]]] P( .' !G'jl 5!'5!'5b'5n'95!!'5!( 5!  ! !(  5!( 9 5( 5( 9b 9nqkk.% Application.ScreenUpdating = TrueoNoLinesBetweenContours]@]`] P( .  ! ! $'j KT !r(tKT !r(tKT !r(tKT !r(tKT !r(tKT !r(tKT !r(tnjj |iF  ! ! $' KT !(tKT !(tKT !(tKT !(tKT !(tKT !(tKT !(tni .!Application.ScreenUpdating = TrueoColorByDayType] P(5 Worksheets("ptLPchartDay").ChartObjects(1).Select %B@H %FX .PivotFields("MonthYr").CurrentPage = .PivotFields("MonthYr").PivotItems(1).Name Day7(( .PivotFields("Day").Position = 6' If rngdata.Cells.Count > 1 Then7 .DataPivotField.Orientation = xlColumnField Else Date7(Date7A End If 5L !N(All)GBold ! !%H$:!(j Date7Aqf Call ConvertChartTo3D'e !!ptECAM1 %F!!!  %B@  'xepe  (  ,x  %55 9qe Call ColorByDayTypeAAZ 9 H79J9L9N 0 .TickLabels.Orientation = xlVertical . .TickLabels.Orientation = xlUpwardq8d9 5(9bZ9f9hZ9j Changed for Excel 2007 .HeightPercent = 759n% End of changed for Excel 2007  7!(' Added or changed for Excel 2007(c H7 9 95!(qb !!(5!!!!(5(9`@5(&End of Added or changed for Excel 20073.Axes(xlValue).AxisTitle.Orientation = xlHorizontal.AutoScaling = True 7B@ Added for Excel 2007 7!B@5!5! 5!  5(76(`aEnd of Additions for Excel 2007q0aCommented out for Excel 2007, ActiveSheet.ChartObjects(1).Height = 500#End of commented out for Excel 20071 Worksheets("ptLPchartDay").Range("A1").SelectA1 %:B@H. P(o ContourChart. Requires Colors from DefaultColorPalette5.xls P(_ !7! !r(t"7! !r(t7! !r(t7! !r(t$7! !r(t7! !r(t,7! !r(t7! !r(t- 7! !r(t. 7! !r(t 7! !r(t3 7! !r(t 7! !r(t 7! !r(t7! !r(t67! !r(tq]]!Application.ScreenUpdating = TrueoSurfaceChartColors`]] P(%Drawing$Z%. !G B@jA < !D <! ChartMatrix <B@,Ak\ <A P(o MatrixSelectedCharts]P]p P(%Drawing$Z%. !G B@jA < !D <!b <! $ ChartMatrix  <! !!B@ ChartMatrix$DB@ k[k[ <A P(o MatrixAllCharts]] P(Z ChartMatrix$DB@hZ$D* !B@ ChartMatrix ( p9r9qZA:A$( B:M$(1$(2:13$(1'' *** Temporarily hide Worksheets("ChartMatrix")0Worksheets("ChartMatrix").Visible = xlVeryHiddeno8Y( Dim chtObj As ChartObject]]]]] P(  process !B@S The Application.Wait statement is needed to avoid an error at the .Paste statement$$'$$'$$ '   $'  PB@ ChartMatrix$DB@dW >.   $ ChartObject Debug.Print Obj.Name process Obj.Chart.ChartArea.Copy B@S The Application.Wait statement is needed to avoid an error at the .Paste statement$$'$$'$$ '   $'  PB@ ChartMatrix$DB@k0V(Vk VoAddSelectedChartsToMatrixSheetA activechart.Axes(xlvalue).labelsoUP]]]]]] ]8]P]p]E''''' This was intended to be passed byVal, and used for re-ordering,F''''' as well as first Matrix creation. Re-ordering is not completed.' P( ChartMatrix$DB@, !!' 8 (Too many charts! Excel may be unstable!Matrix Not CreatedA@dT 'dS 'dS 'dS *'dS'kSkxSkpSkhS   . Columns("A:A").ColumnWidth = 4     '    'dR  ''kR   %  %!9  %!999(R5d'n-For 3d columns of load profiles'b,For 3d columns of load profilesd'n-For 3d columns of load profiles= .HeightPercent = 100 'For color contour of load profilesH .DepthPercent = 400 'For color contour of load profiles0 .Axes(xlCategory).Delete 75! ddd, m/d/yyyyGm/d/yy5(jqpP 7!zB@ H7!09t ~9| 9q P$ With .Axes(xlSeries). .MajorTickMark = xlOutside+ .MinorTickMark = xlNone5 .TickLabelPosition = xlNextToAxis End With 7!09t ~9| 9qN5p!9t ~9| 9qNqNNqN  %B@,+ ActiveChart.Axes(xlValue).HasTitle = FalseHN !(0N !9~999qM !(^ !!Arial99qMM !!(  %(  %(`M PM 5(5! 5(5(  %!5!5! 7!( 7!!5!  5(5!5! 7!(dhL5!5! 5!  5(k0L5!5! 5!5(5!5(5!5(5!5(kK5!5! 5(-.ChartArea.HeightkK  7!( 7!(B .Axes(xlValue, secondary).AxisTitle.Left = 152# On Error GoTo 05! 5( 5(  7!( 7!(5(5! 5(V .Axes(xlValue, xlSecondary).AxisTitle.Left = .ChartArea.Width - 14IqIkI kII < !D  <! !d &!!AddSelectedChartsToMatrixSheetG B@j  <I$A$1$:B@H% Application.ScreenUpdating = Trueo ChartMatrixCreation]]UMatrix Selected Charts will look on each worksheet to see if the current selection is <'8 8Oone or more charts. Each selected chart will be copied to a new worksheet, and <'8 8Rarranged in a matrix of rows and columns. The number of columns will be dependent <'8 8/upon the total number of charts to be matrixed. < <'8 8VA maximum of 56 charts is allowed. There is little in the way of automatic formatting, <'8 8Mexcept for font shrinking, since all types of charts can be included. You can <'8 8*modify formatting of each chart as needed. < <'8 8QAfter the matrix is created, you can drag charts around as you prefer. They will <'8 8M'snap' to location to maintain even distribution and an organized appearance.'8Information on Chart Matrix'$ 8 $A@oDDAttribute VB_Name = "mod9KoranCharts" Public strCurrentSheet As S~ng Sub DataSummaryRaw() " Appation.EnabPleEvsoF0alseA'Ca@ll Get;forHistoryCCreatePivotTM("p3}"v2FromTimheToUe OPT_Range~~s @&2S1rngbNo8thib(("A1").SelectTruခEnd u'17e that c, althoughey appear as @a line, "Are actu\y x-y scatter witNtheaxi@s vari\.G^5vDlngcc=@MtI@L CAulOB xlMan@/chtQ; _LM_PT3(!l LP to ormatStandardND  C?C31. 7 dT '/TeWnx1ScreenUp2d@?ng jIf ENts!|j Thenc"A1#upFirsft4IfD= Active .! Works!{x%n* ''' *** Don't d`sp!E`Is AlUserF`F8LP%a.Show !' |LPj5("WtGDim celTitle1gŏ2Msg7  %Headers:2Ȑ{21 ~3-= pG("C68"),d(xlToRigh|t)3!_!`Ins($,d) HLOr![.Rows.Count > 1'l jusrtf h&points you want, not multiple r15#Error in P @\Box, ,b133o8q)I9d"L GoTo bHaleroe?=! ?0oPW9)?X!This.book.)/ptb^cUCopy be#e:=s(1h- .AdsqQbbM="FWZ.Vis~irwrO).bReWindow.DisplayGrid1;8EqOnA3! Resu`NexDUo o cOb`o trXrObjGa.Deletch2S2.ClF! wxlVeryHidd96! /4_f&XfW @_1t1 Cache. _s|7 Despon:=h"B2"g;14:= ECAM1" ', Defap]sY:=xl D10U!Wģ>>.@`iluhmnGdUG.HasAuto= lqZ/ 1 __@? P E pf In 3FieldGq Y(pfª, 6X"@tus."{i~< 10D If pf.Orientation = xlHidden ThxPageField &iCount+ 1XEnd IfNext .Applic.Scre enUpdng{False Z@.Pivotes("TempRn8g")x 1d egBin?Au@toSortDescending, "0a5;B!E!Holi8daygBA SOccupanc( DaytypeucPWeek0'0HourMonthYOn Error Resu8me h NumberFormav"mmm y " GoToc Handler '(Yea? 5E ?t?TimRow D *h:*AM/PM*GWithiWorksheets(strW`tName).Activat@ eSa Table@ptECAM1")%EkiItem gdPosi̼("Saturm 2TO0W Each cel In rn`gData.xAdd!8+F@.@Value)@Avg " & ,Aver ߰ n).A0.0~0kb` d.@Cells.>| 1P.ColumnO,4WxlpAp?5 (xt_?$]Curr` ~"(fK Ea ]5} ~KxSe# teDH?7"iGH'f@B:BEnt8ireC*&Wihdth 2AC:C1OO.).-6 ;;@.;*; % PpfP.& s[  4<> "(All)"LabelRange.FABStyle7BoldL5_ d_ q_ W ( ,1 Offset(0, 1)) " bPgW17BK{ yy{ 'notja is h9%9'Sta0(of `su b CreHi`storyb^/ & 4c"A0.SelecU)$;A:A 7E:dZ>133= 2$CalculA Se"1&NotHeaderslngMtEnѓEv7qTru^s Exit SubB:c7Int@ (}, ) Is  Or.Ч1MsgBox "3 onlyыls from the row of headings," & vbCrLf@"not the column.", , "NPa valid range ." El seSet rngData 4= hh9Make sure your doand selection i s OK,n tKagai &* ReviewECAM documenta -4m @ hav2ene perin.uHsd=Ifi)#s= 12 Th0A$'7ǁ an?RowCPPosi· tot \Array(Y, _\&AutoSortWDescenACkg3%o c"@0a)`motstampsiansTbExcel "cputxa :idZsp KxPh}wi0Ouse ;p`qr d_gqxsaxbe labdo *Too Many /sG-+#Jka ++q0.+b.++`OO]/@_+O(W "1"O12;sDX ?k:k0IA)Laa>@Аr`w!?j o6ڃ}=u"& "!pt4-WAdbook.s .Add :=EmRefp]Txo:=[n|.0aBodybhe (0, 1 sIc~P 'l1 FormatChartAOМ" tb1ϗm2@CmD W0t B@Ts16<$] @? 1vϡps($L\i%0`.Axes@,uPrimary ).Has= gC S1<.1act@1.T੷@ 31 )i.Left5/A %>2p:s:2ields(2).LabelRange.Cells(1).Val ue .SeriesCollectionAxisGrou p = 2(nChartType7xlXYScatterLinesNoMarkersOAxes(xl, xlSecondary).HasTitlyUTr g . PacIs.TextSstr sEnd IfW  +tArea.Border.y(StyZ0 Legend.HeighA. - 1 ++ On Error Res ume N;'fchs that don't have a Category AK V).TickBs.Font.Sizg9T!GoTo$Han0dlerHxFatls'ɪQ3KIf @(Applfi.V) > 11 Then8ll Excel_2007_«SetElement %e0PosiBBottomNrngData.CounAv 6?Q< '32  Par/JEo*8 + KRPiWith 0.Plobg To?aaACbf$293/ 'sma?E Ae%to gi_room c"ddd, m/d/yy"!mddcs, plus 1-l` lz40was .h"- A ve< .; t@Dd incse mul$tis.Wid@-= 41HgW .3:8G'/c'St of `Fora`+Histb  :("A1") Aӣ#&Sheetllumnsy:A@%5B:B1dF hC:C6ŅCalcul@E$ @ ,}Nothing#DHea=sQ `ln6ga tf EnableEvpAQ wsIS%enUp-@PgExitp SubAd[:c #Inat@( ,1 ) Is  Or.Ro|wsQ`YRY1MsgBox "Se only AZls fr9the7w#h s," & vbCrLf"noBtme co!.", , "Pmvalid rr"#CQ1p"UnknowUtic08te * C;Make sure your a Po sb is ODK, n twa gain.= S JReviewrECAM@|c~nta"jm } ~e 1 perinuB "`0 #`s;S&0 ou&,PKe@ck whe obt ed AJa newvyc"G"3v0 $&O7"2lcEd!ofe5OBFB%u?<K5AyEFD= False P '@strWkshtName = "chtHistory"If Sh eetEx4s( f)h ThendThisWorkbook.sDs("ptUpdateEvent").Copy before:=is(1) LYL.Add? (hr `r.V isiblTr>uB8 Ac8tivs1 eWindow.DisplayGridlinesE݉7On Error ResuNext 1H1"ChartO bjectq.DeletLPivpotTaZBRange2.Cl8ear9 1}. B"{Co1 47bw!5(}(n ]CurrpY'&[o#կK]5o)]OGxx:ζ .PivotFields("DateTime").AutoSort xlDescending,  End With"'8nColumnxB:Bs@Entire.Width = 21>C:C>1>@Call CreLineChartFromPT jh ActiveSheetTableXptECAM1".)+jyKOrientationdxlPageCPosi6If rng؀a.Cellsunt > 1 Then L.J[%wIf For Each pf In@4s@*pf.Cu rr@A> <> "(All)"*.LabelRange.FontStyle@L@"Bold" Next %I%B#(.&,*Offset(0, 1|))4.3ALPtoHisto ryormatStandardG'| P h \' LeeGtA .Border.a0Leg.HeighEr. - hb-+k On ErrResume )¦'fcs that don't have a CPqgF  %).Tick;sOSizA9_RGoTo bHKler8hcype xlXYS@terLinesNoMark "s/= "'"yc Sheet.{'!ptF@ield0CHg GFgEach: f2I9 F!5Colleona %.+=gNext C With )PivotT!+s("dpt1"_O n ErrRes@ c."#!=").O E= xlHid deF GoTo 0 Dayt8! Curr>Paga:"(All)?/a8_aN= Works!91)U@Items.Coxunt "( a)&m.Range("C7"), .(xlDown)).u?Va G<= 3`0 Or fV`]A>= 12 T'A$  ?RowCPPosi1totyArray(b~, _(]  Aut oSort+De scendS, "! EK[Y" pxa0m o@tQstam$psan|r !tx of i c!put ba ),zVpJ  E hSp wiause bZra N; _"ax0not be labeledo s"Too Many O-+CJk ++$.+b.++OOp/%+O(w "-"O12;sDWX _kx(\.0IAy)Laa>4r`w!_j  0= v%84-W!dbooks.Add q:="mRefp]To,:=[|.p)@Rax9teqimtuml .@"axY.TickLas.Number mat`ddd, m/8d/y8`PjorUnitIsz35-ր< 31.01/ (nit = 7  End IfxIf dbl Max - in < 21.01` Then~.@MajorU3S6"14 T1T'w7\0]TickLabels.Number Forma"[$-409]ddd, m/d/yy h:mm AM/PM;@"I?)xxBEj0.&5y.5^y0.2!0.083--IsAutoTrue!oWithCOn Error GoTo 0 MiDateTime > 32000 AApplication`.Vers@12Active@Chart.BType%xlLin&" Axe s(xlCgo8ry)#A|B}Has~Gridl@sFals inor .Delet A! !Sub'FromLPtoHist !)!Cre`LPfor$Retuning(strWk shtNa,As0 StrDDi@m cel R8ang$Title1ac$2Msg7 rngHead=?pINo t Ja Is hFSeAe = Wor $e ets("A") .("C6"l),.6LToRight)@.#L@_Int@ect($,A)Or.Rows.Countft6/= "Sel just tphe hd+`Dpoints you want, n'multiple r (AWc 7 CzP! @uBox x, ,$" Us8LPdata.Show+&_WeekaHour?MonthY(On Error Resume 0Next0NumberFormat@i"mmm y"GoToHandleFr5AYea6PDat-TimQxRowKMUh:UAM/PMUEnd With Worksheets(strWtNamectiv5  AeS # TableptECAM1")G-i}ItemC gdPosi|1+ k#Saturۃm 2TO0W Each cel In rng?aAdd! 8 @.Value)Avg X" & ,Axver ʟn).A0.00ku Ife.Cells.Count > 1 Th\enP.-ColumnX#5wen=:5Pa Cur~rˁQ \Elsee$,~If "5 "(All)"H LabelRan0ge.FBStyle9Bold}?Otp_ 4_ W_ ] ( , Offset(0, 1)) " • 3 *)LPtoHistory)F+d|Y 'notadata is h /'St00 of asub2Pfor18"A.Sexlec䣹%>A:A:=]A13@ 3$pplicr".`culXSeǂ2p'NotsHeadersA_Dlngat2EnEv8QTrupdRYScreen|Up PsExit Subb:p.Intk P(č, ) Is  Or{./1MsgBox " onlyls f`T the hrow#h s,!vbCrLf-"(Qc2." , P a va r@D? /O p TitC@Unknowin, Load Profile.E"Make sure y 2P s.q3OK,n try againT& 'Review do.c%m  have@ne  perinupjog@!w0 #`sF'0 oum, chec k whe obt ed 0@pnewps." MsgB@ox strH, ,HTitleEnd If  4Set rngData = Nothing 4Headers :Application.Calcul &lng YtK -Scre enUpd0ng0Tru Sub'CreateLPforHistoryRetunP %ScalesAdjust()\Dim dblMin As DoLub~ ax TimePerio dDaysmyChartobjObjectCuFalsOn Error GoToHanPdler$FEPach 9IictiveSheett.?s?OW ith A (1).Axes(xlC[gYP %? i= Works78Fun/@r(Range("pt@Field0,"),wax.imum@C-[.Maxax =+r-in~TickLabels.Number@mat@!"ddd, m/d/y"jorUnitIsAutol IfL< 31.01 Thea 7kEiT 2_ @@ 3_ T 14ji(1_ 'Et 7S .89[$-409]: h:mm AM/PM<;@l; .< /!$ D0.5+t*2.5P D0.2 @R]PP0.083_T 0.?a^.472qE-0`k< 4</B%&7eNextiCOm0 +aNaExP9~q4q:9opoDob SsendarLP!cqStrƍbm irk2Integq~pfQPivomU`rl oadProfi?8Ć TzasЀC =~ A1 `.7 q + V#p3PAa.CeloCount <> @1 Or .s("MonthYr"urren tPage`4"(All)"/ 1 A //? 1R.Se~lq??=2Item"NamtEOrixlb)).PosviѾ6Np!elColumn -D teExtra t?])& %pf.CX", C@" , .Offset(0, 10)).F'BStylR'Bold {.q"A1" cHsFromPTEUQI= "e s can onl@y plote par#ter" & vbCr>L8q& " mp have a s P07 sR.ed.'""M@L NB 4N by + wG */ C w p0r wpaS.Ls#_ TooQKa 0 sg" 9"x ndG@ If End With  xApplication.ScreenUpd8ng = True Subz'CreateCalendarLP6.LPbyD>Rng() Tl :oadProfile("ptLPchar t/"/If N@ot rngaH IshiT8henS ActiveSheet.Pivot@Tables]EpCAM1T0On Error Resume N8ext)#Field#Daytype").CurrentPage"Weekday" /GoTo 0,*Ori**xl/=Posiڀ6.Cells.Count > 1 P; "(All)"Q Range(A LabelB,@..Offset(0, 1)@).FontStylBold̐@$2 '"A.SIc@C ='~Sel=elc_I dhYear?$YrH>yr*aQrtar" .rr" g{`A1q!q _q _q'_qplA lct bbqvBB@xB?= BK!AMQhYBteL/ _Bq3///.>)ro{")._B $o{o{ _B˄uo{ &߀߀t`B@o{("Be_9ge҈o{1o{o{fxzo{o{ *o{k _9 o{ _9  o{tѯA3_9_9 Y99{9sB 999Zm Om!39PP 999\99?nD$oo 99+Ϗ999$Ppi< 6r,/9999 ?59._9_9U9"8) If Not rngD@ata Isphing ThenRange("A1").Select6End D'dZ4Se=iApplication.Screen UpJ= True kSub 'CreateLPbyDay  oadProfile(WkshtName As StrKDim cel lA strTitle12Msg + '9Curre`ntSheV 'Pub K ah in mod9KoranChartsWHeaders;tFals[C lngCalcntcAulBm = xlManualnAB>Exists("pt ! l #upFirstPTáK= ActiveB.C Wor\ @IC 0UserForm8LP.ShowCK/@Ax= 3}("C6"),.(xlToRight)cdh7IntK(,h) Or!,.Rows.Count > 1,< 8i= " just the hZforpoints you want, nmultiple r ", g q Err@ hP! @KBoxq , ,$ <%<%+?'%C- iI EGoTo  HandlerTEmg߄% `if)Z.Add ~f 1Window.DisplayGridlinevsGEbOn' ResuxNexo.VisibTۥ?3sObj@ss(1).Deletqme).PivoxtTa rD2.Clea!blw)HxlVeryHidd?(B1%! boxok. d} b Cache. _+  rDess`on:=(h#V"B2T;Qh:= ECAM1" ', DefaK`sH:=xflD105n!Withmbt[AWlumnGd-HasAutojat?20\/2?1=1LAtLa[tPrp!E!!~p E! pf In #FieldĔq#Jrp(pf, 61J"Statu\s"liCo< 108Ori`'`xl3 .Pager -= + 17u O("TempRn>g0o o 1degBinl_3j("-Sor!'=cendp\, K5OonOO"OCOot)("Holiday 2 "Z Occupanc_@G_$q typeOOCWeek? QϏ? pur("MonthY MMFENumbT"mmm y kNtl-bOOGds("Year").Orientation = xlPageField .Pivot`0DatevzTibm=Rowx:NumberFormat"h:mm AM/PM"xEnd With Worksheets(WtName).Activi2  eSTableptEC`AM1")-On Error Resume NextytypItem.WeekdayPPosi1#Satur$2 $,GoTo 0 @X Each cel In rng ~a >.AddAp 9.Value), "Avg " &,Aver@P ).́0.0>0HA&`KIf2.Cells.Count > 1 Then"A7#ColumnЯBG1DvݕH5O+ߡ dQCurr`!kQ bG"_HandlerkElseNa0*y{If }!a' `mB:BEntire@AAA9Width2oC:C1 all Cre@LineChartFromPT'l#St )arȰCBold] s#".A .Border.aStyle |'%Seleon.LefARange("g7AzTop I  q<= 2qstrT`itle1u1$).&s(Labelc~a!.AxxlAPrimary`).Has"TruZVAxic4acters.T ` |`զ$5*)1%2?so;2).?)s] rSesp4&(0qGrou1$i1rMSecond#; H? 665C`@go$$v  ""AACS@gend.Heigh@ - Q!Le+ Ia(thIAnot|data isB hingG'`Trt of asubXoad@ProfilApplicҰ.Vxcul@lngSett2 xit Subq:P:InA@W(, HeaP[s) Is Not OrM.p1Msg Box "] onlyяls fg the rowhP s,@vbCrLf" Qc.", `P a valid ra.T0Q"Unkn$ow%in L}  G"Make sure your p sejOK, n try apgainT& 7Reviewa docкUm  have@ne ! perinusx$= P0 #a`sist0 ou, chec k whe oDbt ed fa newPsPIcC's3)*e%&(000ScreenUp0pct 2Ma ': D teExtra2pf As GTDim ig6gFontSizeJߟ1N Fa_ J5S."= 8U1XxlRY75[\y[Q .Legend.Height = + 1 iFontSize$.&L 4\4 21 .A;˜N%@umn%5Supancy'7@On Err@Resume A@Current;O"tGo-0-9Elsh;->z+X#u`ExtraB-(I.DY%nIfk- C,).h#VC"UnoccE2m@OStup+ 34Q@KEach௠ In .Fss- nP<> "@(All)"bn @Range(Label,!.Offset(0, 1))."Sty= "`Bold"kp;F{vs(1faValu X RowMCGȥ.DAxxlC`gory).Hasa= TrAxi. acs.T=ck6߷bQdw= 1/T6U , xlPrima  r 2{ >% ("Aj.SPct7IDrabwoObj#P`lacempV}Mov KPurE}S 'uduuSex=x`AppliScreenUpz"& '/" 03eRng_`8_&) By_tT5pT=+ `ݏfx&hl./}Oepa?j$Nm?j?jby?j4?j?j Kt #"2olv1oo4'q#t53U A"Jϕup te AutoSort1Desc0F, " B??eAIDAppli@ion.ScreenUp'AŸ ASub 'Cre#D#tBy@eR0ng A y(WkshtNaz@As Str)!Dim cel Q '$iCIner Msg M  Curr?@[؀C gA' Wor@ps("&nw@>''Fals=lng=:c5t0I!ul|at 5C@AlcManualWE@t`p>tV@L l upFirstPTcO **=6Q@]2]aUserForm9T.ShowQ `bh @!сHeas&pÀ"C6"), . ,ToRight)d ars`( ,h2))"Or!"Row%> 1 (klE< 2,@a<m= "Ú just the h !f@points you w@ant, n@multip@ra"/ j & v@bCrLf "@At lea`2&mAbe sed Aa sC ct. e %indepe@!Xvariw f/, hold downCtrl key, C_ "andn7 o`su`bsequ`s= rMP#tin| P:qL Box # , ,bK3ta3_3߄e?$"+.(57b9=m 2zHlbqK?'9Lu^0Xr)Y%C.Add l1JUwveW.ow.DisplayGridlineM ERj6sϛxt+HN .Visiଐ me).ww򈸕DBtu}x 2\2.CGuoaGxlVeryHidd͹ۥ+(Qbook.| Cache. _7b rDes:=(sn"B2l;:= ', Defa0b`s:=FD1 ODplumnGrrQV= - Ahutoaa? K/v?1=1LaPrt` prQ !Ǻo! p E! pf In C J!ˆ(pf.1, 61J"Statu\s"/_6i3< 10:O@n `Bxl3 .Pager o = + ޅ7ŵ@ If EndNext p .PivotFields("1degBin").Orientation = xlPageJ|5;>Holiday5}Daytype'On Error Resuxme o0ItemWeekZPosi1#Satur$2$=kOccupancv\ D@aCUUnoccZCStartupK3UHour 2UMonthY.NumberF ormat"mmm y"K.XGoToYHandler'e+~Curr@~} <1).Name ?)SYea(?sDateTimRow~-2![$-409]m/d/yy h:4AM/PM;@l4t/H Subtotals@/_# Array(Fe, _) With  gColumn)B:B@9Ent(ire.Width2#C:C1  ActiveSheetITable ptECAxM1"@G$d Each cel In rng+&aIfA.V0alue@.C`ells( ZTheno[L _ ).Au@toSort@Descending, ).(' (??/+,-.lswu+E.Add1!? z@#!), "AvgP " &g",0AverBQr0*`R\0.00,Bqo 2P,'8unt > 2 +" g :" ?"P=q0).4 a?_6? 0}^Nall CrebScatterCh`From,PT \CBold"LinesWK.RA@.Border.PStylG0IVSele@Oon.Lef~Range("g7!Top L ATitle acPs.T=Dpdatas0 nLoqWhere:=xlAsO$bjp , :=~"/ndard' A#Worksads(strreUAf3"#'if not ishVU' ofF `Xasub#t By2AppliS.cul#ElngSe tt Exit 0Z˴:spAInQ@(B, Hea's) I s Not OVrA.js6D17q 1` Then0!.N . <`k9te Ul DteExtr~aH+ q9jaFtEach pfP@=9s'!&pf*><> "( All)"' R(Label, ..Offset(0, `1)).FIStyðBold(Next dT5*A_%ContfTo3Dq= 31WhigjAv? 4ŠDHkHBody#`OAscP ($).AG%- eend BT EH"g `.HasL@= ďBa.Ax9xlÙ(O.Tickr Spac T2&Mark? p]eP@lotOrdPe=~ Y U ValueM Minimum\leIsAuto&_qp.MaxsinorUnitw2jOR? .A.Wid ]`N00(a@Height 5ǵ)("A`&d_xkss' q(rs9sC n+P xl3DS">Mmat3D_stackLNoLinesBetw~@tRo   yGrouprpGap1* a"2a)*Sc86{Add1ExP 2007e8O) 1 #PHpthPerc= 9$.PDe U!rElevU25Sx spЋiP=@ RoD= 1)R,Angle!H/..' 7F.<.Wap.!riora[or`Index Flo舲 1Oq .Datag.M 1"umno  Er elCall DteEx|tr C 2 -IfWTpf pT. q`pf.C<> "(All)"Range(@R , ,e.Offset(0, 1)).Font Style = "Bo@ld" N@ext pf@Call DeleteExtraPivotItems(.Fields("Date"))rEnd @With '^JConvertChartTo3D!iSeri$es313On Error Resume WhiActiveH. SheetWTableWptECA M1").\aBodyRangelumns 7]6(]%j - nWendsGoTo 0G8rTypxlSurface HasAxis(xlValue)Tru cC.AxA A:.MajorU(nit(@xi@mumSca\- .Min) / 16G|{lorByDay{/ CD1"norsNoLinesBetweentou2C/@LegV/Fals?B E=DA.TickLabelSpacingkMarkWResePlotOrderO"BHJs.Ontation@g@i@_9Upwar$M4!.i&EBc) .PosiRightH.Dept@hPerce n=8 40@XEl4eve9 sṕuvZ)Ro)G& Fud f@Excel 2007.HeAG|75h&%opf chA7JC@gory)I9 HorizalPAdded ]._]'j;`~H (B:nTsSiza=8 Q/əObo.rmat.TFraxme2BUArea.Width46IPAutoS`nC.cH32'F9)`'HöisTitlG.Lxj^.|. ?5#   .aO@dFLef0t - y:Groups(1)J3DShadh~t RLsC('Comm M8utF+ ObjpM H!5EQcL`Works2LrPArtt2.("AAScTY ?Set rngя NothaAppl g_.ScrxUpdP\q% Sub pnyA} (v'quir` fromХfault"P`tte5.xl9?Qx3Q? C"Ent 7C*Key.HIntoro@rIndex 2s2)364319{4e53O(674 8(9Ϯ)I!10@M&&1PU1&i5nd''13/'3X^1?'5d#]c0-'OOON%PMaDxsYedBGsAPq3Dim WS As ]# btngandBarButto>nS? 8 Q  Set btn = CommandBars("Drawing").FindControl(ID:=549, Recursive:=True$) If.State0 THhen$Ex`te PCall AddMatrixSheetFor Each WS In ActeWorkbPook.s.sHuWS.Name <> "ChartX")?-*S ISe@lected#sToQ End If NextVmBCreationApplic .Scr@eenUpdn&g 0Sub6'A L7 (AllW(DimAs = Butth(Falsr&???S.Visid,B e)ColumnA:A#@Wid = F4fB:Mn32Row1! Heig@e= 192:13 36A''' *** Temporarily hxideg i" *'w8xlVeryHidde@!!`6xU'!* mRdCobj ȁY'newHoubrDou JM8inu`secol1(j110QNot& I4s h# 56LwMsgBox "To$o y ".s!۴ Excel may be unstable!", , "Matrix Not Created" Else$If numCharts <= 16 Th en@HiColmax = 40 K25K O5 hSW30W-6-/ 421735 8nd If E GFor i@Looper@q1 To}BiĎ;@A'0umns("A:A").WidthC iRow"+@ Int((ES- 1 +E*) / ) )A@2 (E7@) ModE eH#OdKQWiGActiveSheet.Obje8ctsE4>?.Leftol0=D#)bATop@2).#e:1724Heigh!13 p@On Err`RResume Next3B$"C@Percen"00 'a^3d c" of load profiles Dept:h 5 nsbBo. *contour . 4 ] 7+.Axes(xlCgory)let%?CWr.TickLabels.Number DmaF"ddd, m/d/y"B CValue).MajorGridlines C%Series).Border/ ZorI8ndeB}/h .W%=xlHair L Style0FP(inuouO7V #*  e'1!Mark Outsid'u inorNon__&Pos`ition" QToAxi^ ?(#] #?#o.#O#+ Wal?OM1OO;OtO+OwGo0 2OL.[x ⍁,OHasTitBFa ςς rR 4 #y PlotA"r{12#1.6? 2B9 A .AutoScaleFYp ^ Q.Na@= "Arialr.Siza C q7!$Se&l X(1Azrkbegroundtxlo_ IN2OOdb On Error GoTo @0 With ActiveChart`Resume NexR.Legend.Position = xlBottomh>Top9 + 22Plo@tArea.45 &If s.Axes(xlCategory).Ha@sTitle;True Thenc8AxiA.IHeight - e13/g= V8. <+ -.2.El|se'5I1MԀEnd If~^Wid@> g{AcG.ILeftA C'c7'BzQ'd'a= 25 'd!%c@Value,@Primay'd/r1?e) Ey';msecond5@Y2 eUD@24Te@ײ ą+ +u+fr.50uN{-n !!?6GSx6 1T,8/1[^!a iLooperee FEach WS InpWorkbook.sheets objBuznWS. Uv.OnCq"ThisfNa& "!AddSelectedPsToMatPrixSA""w Dtd# 92WSORange("$A$p1").B!A@pplica.ScreenUpdng`C!hSubQ' C?U! jInfo()Dim strMsg As Sng N Tx =T "s   @will l 5pewB to see if the curprent is" & vbCy !' as=e/*ftǠ!rixp8!d, yC dragarou prefevr)p!yb   ' snap'los?maint0 even diq)ibu='o@rganiz .appea*ce." a:">Q6;%r: ;?Bobx", ,  F __SRP_eP9__SRP_fxxmod8Metricsas__SRP_18 %g&gF@@(gZg& 6gVVv0gUg :gggg$@p>>g Z perP'p(Z)pP*+pPgZq' Z gXq Z ,gRq Z g4 Z gg gXq Z ,gRq Z gnq Z -.g|q Z /h01hg :gg4p  Z 8g2q Z #38XPp Z pP/84567 pP8gL3 Z /Hg8g9g:gg4p  Z 8gL3 Z /Hhh`g0`;H00Hv gRH <KZ g T g.H=K4 gH=g gggHz g4p  Z 8g6x>`;=g6x?`;=gDx8??`;@g6xA`;=gDx8AA`;@g6xB`;=g6xC`;=g6xD`;=g6xE`;=g6xF`;=g g4xGF`;Hg :g6xI`;=g6xJ`;=g6xK`;=g6xL`;=g4xML`;rU@@@~x$$a \dm  ]2 pn oZ,`cQ]]6|q]e+~a0`aiaQee_qэ1юaAAw!qє1AqAq!a1qљ1q|!!њQAѺ1Aqq!waA1q!QqaA1q!!Qa:1aaHi0gg.p Z 8h gB  Z 8@g8  Z 8Hg g"g g g g  g  gUg@ Z @ g0 Z 8h g6  Z 8Hg{H8 xgg4p  Z 8g0Ip>vg gg@ Z `GgN Z g6  Z 8g&jgZgg{@x8&gg4p  Z 8g.p Z 8h g& g." Z #8"PXp Z pP#h$ Z 8#V pPh8gp 0H`x P 8Xx Z  p&VPPv&pP<gHg`gRq Z gL3 Z /Hg gN8xED;NOgN8xPD;NOg ggx8;QOh8R8hgTxSQOh;HhggVVvg*T=g6xU;=g4xU;Og g4xED;Vg :gggDx8KK;@gDx8WW;@ggL3 Z /Hg6xU;=g4xU;OgVVvg*T=gg0XHHxdg,HVY\Ng6ZH[\]gHxg0XH``H@g,HVY\tgH[xH[h^8Zh Z @ 8V_h8gH@gggV'q Z ggNx` Z abgNx c Z abgNxd Z abg2  Z 8!gUg{gp 0H`x P 8Xx Z  p&VPPv&pP(gh8heIfgPg8hPq(8h8ggUgigjg*gPg8kP8g*gPg8lP8gF@@(ggUgUg6  Z 8Hg6  Z 8g0 Z 8h g{x@(Xh0`HV 8pPh86 X gg4p  Z 8g.p Z 8h gL3 Z x/H``Xg g6@LXx;=xg g4@YDXx;VxgH  Z e gn#@nx#$p#Xo@p xpX@ggd}a8  Z 88 t&8gf@W3 Z x/;H  xg=gOgB FF@F(FFFFFF F F Fxmfxqxg*@W@g0ggrg4gOxsOxg4gOxtOxguhg6xh(xg2LXx;HPPHgH=gHOgB FF@F(FFFFFF F F FxmfxHqxgHgg2KXx;H00(g(=g(OgB FF@F(FFFFFF F F Fxmfx(qxg(g g Xvg gXgP Z xwO`xg@@3 Z x/xo   Z    xg{X |V ` P0hb 8  xpX@t)gg4p  Z 8g.p Z 8h g& Z XegVVvagHx Z /[o` gH` x|gjq` x|gX` x|gVVv?gHx Z /[o` gB` xzgD`K xzgH` x|gjq` x|ggg`x Vwgt {qnx {gt {qnx {g gf`  x|\g D gp gZ  Z 8 g g<x gVVv?gp g2x@HRggv {@nxHgg* egqnx~g nx{g nxzgVVv?V g nxzgggNHx` Z abgNH xc Z abgNHxd Z abg2  Z 8!gUg6  Z 8Hg0 Z 8h g6  Z 8g{g  8Ph(@Xp0H`x Z  &Vv&2 ghxeIfgPghPq(gggjg*gPgkPg*gPglPgF`@x@(gUggUgUg6  Z 8Hg0 Z 8h g6  Z 8g{hDP Hi8@gg2 Z XHyg{@8gg4p  Z 8g.p Z 8h g2K Z X8ygb} Z Ox`~OH`xHg^@  Z Xze@80g,PqWg0Zg2K Z X8ygL3 Z /Hg g6L;=g g4YD;VgH@ Z e@gnx#n#H$`#Ho0p xH`H0ggd}a(  Z 8( t&(gfW3 Z /x;Hg=gOgB F`FFFFFFxFF F F Fmfqg*W@gggrpg4pgO`sOxpg4pgO`tOxpguXg6xXp(xg2L;H@@8g8=g8OgB F`FFFFFFxFF F F Fmf8qg8gg2K;H  g=gOgB F`FFFFFFxFF F F Fmfqgg g vg ggP Z wOx`xg@3 Z /xxHo@ Z @@xHg gv Z -xHHxg` Z @ er@ Z 8@{x@@xg` Z @ er@ Z 8@{x@@xgngng(Hgg((\?@ggg((\5@dggg(Q,@ggg( ףp= @"g(Hg ?gg(Gz@pg ?gg()\(?g QUUU?gg({Gz?gggg gd}(  Z 8( 2(g2 Z X8ygV@  Z X|e@gggg\@  Z X|@.@gg{n80@ Xpb (@xH`H0DHiHiHiHiH Hi Hi bgg"g& vgL3 Z /Hg6pU;=g4pU;OgVV@v@zg*T=gg6pD;=gBD;Vgg0XH($g,(VY\g(@[p([^Z@ Z @ V_@g(.gg@ Z @ ggUg6  Z 8g{xX2(F>@Hi gg4p  Z 8gB  Z 8@g8  Z 8Hg0Ip>g gg@ Z `GgN Z g6  Z 8g&gZgg& g.p" Z #"08P Z P0#`$ Z 0#V P0`0gP (@XpHx8Xp Z  P&V00v&P0g%g&gFp@@(gZg& gVVvgUg gggg4p  Z 8g$@p>g^ 8Xp Z Pg8q Z g4 Z gg gXpq Z ,gRq Z gnpq Z -.g|pq Z /`01`g ggp2q Z #380P Z P0/04567 P00gL3 Z /Hxgx8gx9gx:g g xvg gxgL3 Z /H``Xg0X;H((@ gR@ <K g  g.@=K g@=g ggg@ g6X>X;=g6X?X;=gDX??X;@g6XAX;=gDXAAX;@g6XBX;=g6XDX;=g6XEX;=g6XFX;=g g4XGFX;Hg g6XIX;=g6XJX;=g6XKX;=g6XLX;=g4XMLX;HgXgRq Z gL3 Z /Hg gNXED;NOgNXPD;NOg ggx0;pQO`R0`gTXSQO`;H`ggVVvg*T=g6XU;=g4XU;Og g4XED;Vg *gg6XU;=ggg^Xc Z bg^X d Z bg g  g gx  Z XVPPwPg& Z XegVVvagX Z /`[0o` `0gHp |gjqp |gXp |gVVv?gX Z /`[0o` `0gBp zgHp |gjqp |ggg` Vwgt {qn {gt {qn {gRggV'q Z gg2  Z 8!g6  Z 8Hg{gP (@XpHx8Xp Z  P&V00v&P0gh0`eIfgPghPq(`0vgggjg*gPgkPg*gPglPgFp@@(ggUgUg6  Z 8Hg6  Z 8g{8`t `(@\ P0`0Hi Hi HiP Hi HiHiHihHiHiHiHiHi`HiHiHi(HiHiPHi aS S S  Z   S  S  "ZS  S  "Z  S  S   S  S SS S "Z  Z S   $S ! Z # SS %S &S (S )S , 0S -S .SS  1S !2S "4S #5S"rU@@@8`8a`8`@`P8`8 `@ `P8q`8 `@ `P8 `8 `8 `8 `8`8a`8`@`PH`!^8`8`@!`P8"`8q`8%`8&`8(`8)`8*`8-`8.`8a+`81 `82!`84"`85#`b    (0 H`h    8 X`h    (@H `x  ((  ,HP "X &` & &        (  0  @  P ` h          "      ,   ( 0  8 ,H  x  (   ,    :  :0  p x 4      0  P ` .h  . " @@ .H x :4NHh x      X(0jX.@j@f( 08 @ P` "x  >   0 @H` h p "         ( @H *P  & *  8 80 hp 2x   (( P` :h F >  @ P`h p X(j8@jfx     ( "HP X h x        ( ( $8` (h  6  80 Hh    X(8j`8@jPf(8 @H P `p "            8 @ *H  x  &T xME@ >0B<<:6 LLLPLL <<<<<<<<<<  fx`k =p% `  `(VV")@H% <h% %`` 8` x @0% &`XX`8`: % (x`  <P% p% 2`GG % 4h`99I `% 6`88 % * `8 BBi8Xi:xi<i> @%`B`D8xhxx %XhP8P PD@ @ @ @ @ @x @p @h @(P @H @@0 @X @p @ @ @ @` @ @ @ h @0 ` @H X @8 P @x 8 @ @  @ @ @h @ @ @h x @p d @ X @ @ @ ( @ X8 h @ x Hx_P!*\R1*#273$*\Rffff*1W506072cd*\R1*#384$*\Rffff*1d50607d64*\R1*#385*\R1*#125*\R1*#114*\R1*#119*\R1*#121*\R1*#4a*\R1*#42*\R1*#121*\R1*#253*\R1*#12e*\R1*#270*\R1*#26f*\R1*#b5*\R1*#11$*\Rffff*1O506072cc*\R1*#4b " ,  40  ^@4P ,`R T    0+ X     " "    (8 @ HP `       : 0 FH 0  P L( x   *    8  (!0! :8!2x!!!  ! """ " @"XH"("j"8#8@#@x#j#f($$$ $$ $ $ $ " $ j% p% &&&  & (& 0& P& h& x& *&& & *&& |& x' "' '''(( 0(8(,P( ( ( ,( ,( *( , ) .P) ) D) ) )  * * *  * $(* P**`*$* * ***** *+ + ++]XrngOrigHeaders$ P( DB@pt1 (& Set WS = Worksheets("WeatherList")Data$D.< P! 7B26pt1$D%:zptECAM1|  C6 <%:% C6 <%:% <%:  !%B@x'', DefaultVersion:=xlPivotTableVersion11dxk dpt1$D(bdAk.<oxptECAM1 %FAoP]P]p]] P(' @ 5 !$Status  ! G  (j  'kk   2Only the first 10 Status points will be displayed.'  < <' 8ECAM is set up to display a maximum of 10 Status points ' !in the filter fields for Metrics.'  < <' AYou can move and change Status fields after the Table is created.' F MsgBox strStatusMsg, , "Too many Status Points to display"'kTempRng75 G 9jq1degBin75 G 9jqX5degBin75 G 9jq      "fd$&'()*4,-./0123#56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcewhijklmopqrstuvgxyz{|}~ Holiday75 G 9jqDaytype75 G 9jqWeekday75 G 9jqx Occupancy75  9Occ7(Unocc7(Startup7(kqHour75 G 9jqDay7n5 G 9jqxMonthYr75 G 9jq@Month7(5 G 9jqYear7<5 G 9jqDate75 G 9jq 5degBin5degBin7B@ 1degBin1degBin7B@q@8% Application.ScreenUpdating = True.<o *** This Sub is Not Used *** *** This Sub is Not Used *** *** This Sub is Not Used ***] %F.@  @!35r(t 5(q  @!35r(tP 5(q @!%5r(t5(t 5(bold5(q  @!%(  $ @!%!"(.@o88z This sub creates a table using GETPIVOTDATA formulas to organize the output from 2 PivotTables, one for each MetricField.]]] P!T' V P(T& Application.ScreenUpdating = Falsept1$dAfk A( ptMetricsSFDaytypeOccupancy$d DB@ptMetricsSFDaytypeOccupancy (dptMetricsSFDaytypeOccupancy$D(b%`ptMetricsSFDaytypeOccupancy$D%F!tB@ ptMetricsSFDaytypeOccupancy$D%F!tB@ k ptMetricsSFDaytype OccupancyA*ptECAM1 %FAptECAM2 %FAB:Z %! B@(0 P(,( MetricsPerSF$DB@ P(,$* MetricsPerSF &%DB@ p(r MetricsPerSF MetricsPerSF %D( Call MetricsTableSFptMetricsSFDaytypeOccupancyDaytype OccupancyA.A0 dptMetricsSFDaytypeOccupancy$D(bd1There are no points normalized by square footage.'8X 8 <Did you enter a square footage?'8 8 <9Building area can be entered as part of point definition.'8No Metrics created.': 8 :A@k PB@X  P(Tj P(.| PerSFmetricsxC6Data$D%: C6Data$D%:%Data$D%:.  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@ea.Heid&Unknown Error in Watts per SF Metrics.':lu8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8ct 8 :A@k ..  P(T( P(o PerSFmetrics]8]X P(ata = .Data$D.< D6 <%: D6 <%:% <%: !J$perSF lls fr . of hed  $.lumnk k  e.A@.<.o x] P!T'Char V P(TMakeData$DB@,sele P(K, the hB@n.'8 URe8 P(mentatpt1$du haAfk ptMetricsDaytypeOccupancy$dRIf DB@persisptMetricsDaytypeOccupancy ( Ed ptMetricsDaytypeOccupancy$D(b.X ptMetricsDaytypeOccupancy$D%F!tB@ ptMetricsDaytypeOccupancy$D%F!tB@  k  ptMetricsDaytype OccupancyA* As StptECAM1 %FAC6ptECAM2 %FAC6B:Z %! B@(Data8 P(, MetricsDaytypeOccupancy$DB@ P(,e head$*MetricsDaytypeOccupancy &%DB@in Poi p(ron':MetricsDaytypeOccupancyMetricsDaytypeOccupancy %D(ptMetricsDaytypeOccupancyDaytype OccupancyA.( PB@X#  P(ThtNak.|MetricsDaytypeOccupancyC6Data$D%: C6Data$D%:%Data$D%:.  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@D%d/Unknown Error in Daytype and Occupancy Metrics.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8votTab 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8pt 8 :A@kX..  P(T$ P(uso MetricsDaytypeOccupancy]H P!T' V P(TXData$DB@,P( P( hB@(  P(pt1$d1degAfkPptMetricsDaytypeMonthYr$d DB@5degptMetricsDaytypeMonthYr ((dptMetricsDaytypeMonthYr$D(bptMetricsDaytypeMonthYr$D%F!tB@ xkp1 Call MetricsPivots2("Daytype", "MonthYr") ptMetricsDaytypeMonthYrA*ptECAM1 %FA(B:Z %! B@(h7 PB@X  P(Tk.| MetricsDaytypeMonthYr2pC6Data$D%: C6Data$D%:%Data$D%:.  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@!Jdx/Unknown Error in Daytype and Occupancy Metrics.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k..  P(T#; P(o MetricsDaytypeMonthYr2umh] P!T'4 V P(Ts("CData$DB@,lumn P( hB@pt F@ P(y7pt1$d7AfkptMetricsOccupancyMonthYr$d  DB@!NptMetricsOccupancyMonthYr (dptMetricsOccupancyMonthYr$D(b(All`ptMetricsOccupancyMonthYr$D%F!tB@  k3 Call MetricsPivots2("Occupancy", "MonthYr") ptMetrics OccupancyMonthYrA*F%ptECAM1 %FA B:Z %! B@(7 PB@X(d  P(T!k8.| MetricsOccupancyMonthYr2C6Data$D%: C6Data$D%:%Data$D%:.  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@don't d/Unknown Error in Daytype and Occupancy Metrics.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8320 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'85 8 :A@k..  P(T .H P(3o MetricsOccupancyMonthYr2d This sub creates one PivotTable with MetricField1 as a row field and MetricField2 as a column fieldhart.L or it creates two PivotTables, the first using MetricField1 as a ColumnField and the second using MetricField2 as a ColumnField.]]] P(a is n  : < >$DB@,eate B 8 B"A1" <'DB26 : < >$D%:.@B d >'DI26 : < >$D%:.@kX! @zptECAM B|pt1 %D%F!vB@x>', DefaultVersion:=xlPivotTableVersion10ptECAM B %Flemmm yyyyMonthYr7(ings, 8t th  <7(Not a  >7(  <7(&Unkn  >7(e Histd  D7(ure yoD D7('8kWeekdayDaytype7%(u haSaturdayDaytype7%(Occ Occupancy7%(le, chUnocc Occupancy7%(ion.Startup Occupancy7%( = .PivotFields("Occupancy").Orientation = xlColumnField Points5(P All Periods9F0H C@irstDa09~ .RowGrand = FalseP(  ( !J7Avg !J C@'!pt0.00Avg !J7(! = 5! 5 99qXkPqH Bo MetricsPivotsBB26pt1$D%:zptECAM1|  B C6 <%:% C6 <%:% <%:%  !% B@x/۵Attribute VB_Name = "mod8Mecs" Sub SetupFirstPT() Dim WS As Works0heet\4If Exists("rngOrigHeaders") ThenV/Application.Scr@eenUpdngFalse -ns.AddE@ctiveS.qpt1'7=QWe@atherLX"ÄoData<w aVre < 12u&ASbbook.PivotCacheg(SourceType:=xl6base, :=WS.Range("C6"@).End(own), _P?ToRight@))).Cr@Be$Table BDestinh{MW)""B2 Ae:="ptECAM1" ', Defau$JrK3?K"m##+ur#+MonthYo#CICC " With .PivotFields("Year ") If .Orientation = xlHidden Th8PageEnd"Date[|~ 5degBin").AutoSortqDescending, " 1  On Error GoTo 0 'Applic.ScreenHUpdngTrueSet WS NothY 1Sub   PTfo@rmats( " -***pis  Used **0Dim pt As Tabl@--= ActiveSheetgq s(1+pt.aBody0RangD?.Interior.ColorInddexC51Font.Sizey12b LabelBS8B1.Rows(2@;!425 4?;D5;Styl!"bold"". umn.Horiz)alAlignm`*xlRight 1).Borders.LHinexlN onCZMetricsDaytypeOccupancySF\'[0sub fs a tO us@d GETPIVO@TDATA culas to organDthe output @from 2(Xs , @ eac,h c.)_stPrMsg_Sng#ab#Tit@0crngHeaa%/ lngCalc~tg! c I5ManualE pFalso`"wExistpt1") B0en#O l upFirstPTCd IfPerSFmC)PIYB:Z@EntireCҌFi!!BDisplayAts<y:0DeletAA_W+OrFThisboo4k.srCpCo py be]e:>=I1 r "Wi ndow.Gridli 5@jKU!d0SFwAHo,p)Char?Ii G1GxlVerySM $p= "re a0no poi*n%nqlvd @by squfootp.4V& vbCrLf & "Did you `erK`~[?_= _"0Buil a xcan##@p of definiav_ C}NosDdBox, ,JM4c~6a ;낅Żuv=ev~t'z!)Z:P U= '|@;r(."C6"),).(xlToҨS#"sect( ,)iOr1 "0unt > &1܌"S0Octly cellFsrowA#hcs,"++not Qcol@.P<ia val`-raE##,&Unknown@in Wat5p1SFe('N strMsg = "Make sure your data and selection is OK, then try again." & vbCrLf & "@Reviewx ECAM documentaZhm have$ne2ings Hper=in]us%{IfRFsistyouble, chec k whe~ o$btledTfor a new@pvers <BDox, ,TPitleEIf Set rngD= Notho Head3ʊApplic.Calcul= lng,t%ScreenUp+TruMKSubn'PerSFmetricsA*%RC,()C*Dim WS As Workshee"tcelARa ngD@#Fals #XH=hs("S"' FAmEach #In+.#(WS"D6"),.D(xlToRight)(.Valu)5)S"@SFx" T1 {IsE{ <EH Un@(Del/|mNext&C -NU`FGMIDaytypeOccupancyR2iH]`I(FKZ IH_cxlManual&WG.AvatV= ChUserMm8LP.Showe  F#}V@On Err`VGoToCH`ler .zh SrEx pt1"AUP $l `=upFirstPTC' =Z0.Add !1e".Name@9"pt ge<7).Vis~i G;!a3Res !d `_").PivotTa s(2)."^2.Cleao= 1 M > ?"R , G">?YY2ptPageFieldsGeneral(7)т+L__T2"]wIColuDmnp2B:Z`E ntireC.AutoFin!xpa:DisplayA 1|k"Se! onlyqls fromrow of hc s,"GnotRc?.pK{a valid r1վe3bP"Unknowe|in 432P 4 ă1////T//r //h|e /!π "`/r/ز//v/R// 6^2/?//P?./" v=*=!>MonthYr @ cation.C alcul Appli = xlMa@nual hWorksheets("Data").ActivateScreenUpdungXTru&UserForm8LP@a.ShowcIf Not rn"ga IshiaAThenfOn Error GoTo Hanpdler# GFalsG@l SetupF@irstPT%End Ifi.MetricsDaytypeMo`nthYr8.Add6/e_ .Name["pt1)@x).VisibluEfResua"Next*P@ivotTas(1).BRange2.CleayAGe'+pDIs2d", "eG0 (1@ K uLptPageFieldsGeneral(q @rECAM)G Colum"nB:ZEntire.AutoFi0CQtGQJlng c^t`r **fw=Ewxit Sub 'R2eBz x:$ Headxers@GB("C6"), .(xlToRight),vIntect(-,!))Ore.Rows.Count > 1MsgBox "Sel only cells from the row of h,s," & vbCrLfY"n c>.L Pa valid re."/|strTitw"UnknowQin dW Occupanc|y D6E A= 2"Make sure your a sGis OK,!n try again Review"!` docnt  m  hav2ene@' perin u d# p?`C  s@e`:trou , check whe obt ed "fӠa newvH@!@, , #b3D7 ɘkdAhO<= < _|R|!?<a5).`0.00: ; b. su>.lW!O}.M& BP@q4ImJ[@{pT s rU@@@@~x ,a Z1adeqa`2 `cQ]]Qeeeg`$gg, Ig4p  Z 8g^p x Z Ppg4  Z  gRp Z pUpgTh  Z 8h h|g0HPx H p  Z p8`VrhVr e`rPX Z XPVpp,pHXPphgg 0HPx H p  Z p(8`VrhVr ``qPX Z XPhVpp,pH`XPphggXp  Z ppgg ggUg{$@`zhpH`XPphHixHiHiHi8HiHixHiHihHi  aS S  Z S   S  S  SS  S  "&oVrU@@@8`8a`H__SRP_19HYmod4NormalizeFields(+l~__SRP_2a__SRP_2biA>`^8`8`8 `8 `8q`8 `` `1aFPPPbP    ( , &Hp*HH ,X  $ $     $( P  p  0  . & &8  ` p      &  * H X Hp  ,  $   @  `  p     0  .0 &` &         " (08@     !"#$%&'()*+,-./0123456789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefhijklmnopqrstuvwxyz|}~HP X`hpx     B  :h l( @@.  B. 0 B8.  : (  \H F L H@ v ppX z` p  j   F@ ,020P0  8@ HH$,  H("p( F 2H     4 X` Hh 2 ( 8 X p 4 F 0H`     4  H("p(   ( X8    "     ( 0 8 @ H P X ` h p x          !:! lH!!! @!. " P" BX"." " B". # P# X#:h### (# \# FH$ L$ H$ v(% p%&X(& z&' ' 0' jP' ' F' ((  ZxME(<:<>6 <x J`(( p% L% N% % Z0`+\` I^ I` Ib Id If (Ih `^```b`d`f`h`B @`HZZiphiritivixiz N % |@% ~`% %````` %``````` Bx` 8% X% x% % % % <%`` H% h%``````````` ` % N % ( % H % h %  %  % < %``  %``````````0xHh %x8   x_P!$*\Rffff*1c50607d64 "  ( ,8h ,  ( ( \8 $ 0  H0 @x H  @ HP X hpx  "J ~ h B p >x <  (028 p2  "  (08@ HH,8(h(p( Fx((0(L):`)F)),*0*P* HX**0*J*:@+F++(+,(, F0, 2x,,0,- - @-6P-:-F-.(.4@.x.. H. 2./0(/X/x/ /6/:/F 0h004000 F0 0(1X10x111 161:(2Fh222423 3 H(3p303J3:4FP44(4445 5 5 (5 X855  5 5555555 6]X]x]] P(rngOrigHeaders %$!&$P.  PointsList$: %H.L%Check to see if point has been mappedear Lart, Point has been mapped !J TR XV %.N NVPoint name was found in original list of headers, so move the original name up 2 rows,and put mapped name in headers N N,H L!J N(Jd !J TR %H%.N NBPoint name was found in list of headers that were moved up 2 rows,:so point was previously mapped and has now been re-mapped.ATherefore, don't need to move original point name, but do need toput mapped name in headers L!J N%H(Jkkk ..L.N.opd1d2d3 ChW_TempIn ChW_TempOutPmp_ChW_Sec_gpmA@xCall CalcTons("Chlr_ChW_TempIn", "Chlr_ChW_TempOut", "Pmp_ChW_Evap_gpm", "ChW_TempIn", "ChW_TempOut", "Pmp_ChW_Sec_gpm")o08Returns TRUE if necessary Points exist in the PointsList5 *** As of 2010-04-25 This sub is no longer used. ***]H]`]x]]]] ^$j `$j b$j 'B l'ndp  b$j f$j h$j 'B lG'ncG'njki]](]H]h]]]]]]] %9these variables are the chiller number, pump number, etc.]8]P]h]]] P(' P! G6B'j'rngOrigHeaders %$!&$P. Find Primary (chiller) CHW Pumps   C6Data$D%:%.| |%H   |%H%$:%H.~ |! '< !J $ t $ !J$ t$ !J !J  $'7 !' Find Chiller CHW Temperatures@Chlr_ChW _TempIn'Upda  TR %.N N N!'b isChlr_ChW _TempOut'b is  TR %.N Thi N Use N!'Chlr _Tons |%H(J |%H!( =500/12000 * RC[   ] * ' (RC[   ]-'r RC[   ])'  ~(( ~!J ~(kxkpkh @! Find Secondary or Loop CHW Pumps  b C6Data$D%:%.|s to o |%H   |%H%$:%H.~ |! 'P!T !J $ z $ !J$ z$ !J !J  $' !' Find Chiller CHW TemperaturesChW _TempIn'  TR %.N( Npt N!'typeChW _TempOut'  TR %.Ncupa NF N!'ChW _Tons |%H(J |%H!(=500/12000 * RC[   ] * 'A (RC[   ]-' RC[   ])'Z  ~( B@ ~!J ~(k(k k DB@o CalcTons] ]@]`]]]]]]]0]P]p]]]]]]]]0]H]`'pancy P! G6B'j P(dData$D.<cupa <C7$:  C7$:%H%$:!!'ge.'U6 <%: T6 <%:% <%:.8e Use a Counter rather than a For Each so that columns can be deleted starting at the end (far right). !X!'     U6 <%:%H!J$_perSF   U6 <%:%H! B@kH   U6 <%:%H!J$_perTon   U6 <%:%H! B@k   U6 <%:%H!J$_perGPM   U6 <%:%H! B@kH U6 <%: T6 <%:% <%:. !X!'q ComponentsNormalize &%D.<V *** This needs to be changed to Tons for each chiller and Tons for each CHW loop. ***? Set celTons = rngheaders.Find("ChW_Tons", LookIn:=xlValues)EThis sub loops through the columns on Worksheet "ComponentsNormalize"BEach value of iLooper is another column and type of Normalization.oAdditional points to be normalized can be added to the appropriate column and will automatically be normalized.iAdditional columns can create additional types of normalizations, by increasing the max value of iLooper.  A2 <%:%H  A100 <%:%H% <%:.sLook at each cel in the column in Worksheet "ComponentsNormalize" and find a corresponding cel in the Data headers.   !J_$' !J   ' cstrEquipName excludes the equipment ID integer, since it comes from the "ComponentsNormalize" list. !J  $' ?Look for the corresponding cel in the Data Headers (rngHeaders)   !J * !J $ !J !J ' !J !J_$ $'  %H%%H. %H  %H$:. %H  %H$:.} Set rngCnormdata = rngCdata.Offset(0, 2 + rngCdata.Offset(0, -1).End(xlToRight).Column - rngCdata.Column) KTBCase 0 Measure is _kW and normalized Measure will be _Watts_perSF.   Watts_perSF (J " B@ BldgArea1000Lists$D%:B@   B@KTACase 1 Measure is _cfm and normalized Measure will be _CFM_perSF.   CFM_perSF (J " B@BldgAreaLists$D%:B@   B@KT@Case 2 Measure is _kW and normalized Measure will be _kW_perTon.+ get name of Tons header for this equipment  _Tons'  TR %.  !J_perTon (J ! ! ' ! ! '=RC[ ]/RC[ ] (kKTBCase 3 Measure is _gpm and normalized Measure will be _gpm_perTon.+ get name of Tons header for this equipment  _Tons'  TR %.  !J_perTon (J ! ! ' ! ! '=RC[ ]/RC[ ] (k8KT@Case 4 Measure is _kW and normalized Measure will be _kW_perCFM.* get name of CFM header for this equipment  _CFM'  TR %.  !J_perCFM (J ! ! ' ! ! '=RC[ ]/RC[ ] (kKTACase 5 Measure is _kWh and normalized Measure will be _kWh_perSF.   _kWh_perSF (J " B@BldgAreaLists$D%:B@   B@nk   C6Data$D%: C6Data$D%:%Data$D%:. !( P(......<o Normalizex]]] ]0 ]P ]p ] ] ] ] ] ] ]8 ]P ]h ] ] ] ] ] ] ' P! G6B'j P(Data$D.< <U6 <%: T6 <%:% <%:.e Use a Counter rather than a For Each so that columns can be deleted starting at the end (far right). !X!'     C6 <%:%H!J$_perSF   C6 <%:%H! B@k   C6 <%:%H!J$_perTon   C6 <%:%H! B@k(   C6 <%:%H!J$_perGPM   C6 <%:%H! B@k U6 <%: T6 <%:% <%:. !X!'q@ComponentsNormalize &%D.<V *** This needs to be changed to Tons for each chiller and Tons for each CHW loop. ***? Set celTons = rngheaders.Find("ChW_Tons", LookIn:=xlValues)EThis sub loops through the columns on Worksheet "ComponentsNormalize"BEach value of iLooper is another column and type of Normalization.oAdditional points to be normalized can be added to the appropriate column and will automatically be normalized.iAdditional columns can create additional types of normalizations, by increasing the max value of iLooper.  A2 <%:%H  A100 <%:%H% <%:.sLook at each cel in the column in Worksheet "ComponentsNormalize" and find a corresponding cel in the Data headers.   !J_$' !J   ' cstrEquipName excludes the equipment ID integer, since it comes from the "ComponentsNormalize" list. !J  $' ?Look for the corresponding cel in the Data Headers (rngHeaders)   !J * !J $ KT?Case 0 Measure is _kW and normalized Measure will be _kW_perSF. !J !J ' !J !J_$ $'   Watts_perSF  %H%%H(J %H   %H%$:.  %H%! ! %H. " B@ BldgArea1000Lists$D%:B@   B@KTACase 1 Measure is _cfm and normalized Measure will be _cfm_perSF. !J !J ' !J !J_$ $'   CFM_perSF  %H%%H(J %H   %H%$:.  %H%! ! %H. " B@BldgAreaLists$D%:B@   B@KT@Case 2 Measure is _kW and normalized Measure will be _kW_perTon.+ get name of Tons header for this equipment !J !J ' !J !J_$ $'  _Tons'  TR %.  !J_perTon  %%H(J %H   %H%$:.  %H%! ! %H. ! ! ' ! ! '=RC[ ]/RC[ ] (kKTBCase 3 Measure is _gpm and normalized Measure will be _gpm_perTon.+ get name of Tons header for this equipment !J !J ' !J !J_$ $'  _Tons'  TR %.  !J_perTon  %%H(J %H   %H%$:.  %H%! ! %H. ! ! ' ! ! '=RC[ ]/RC[ ] (k(KT@Case 4 Measure is _kW and normalized Measure will be _kW_perCFM.* get name of CFM header for this equipment !J !J ' !J !J_$ $'  _CFM'  TR %.  !J_perCFM  %%H(J %H   %H%$:.  %H%! ! %H. ! ! ' ! ! '=RC[ ]/RC[ ] (k KTACase 5 Measure is _kWh and normalized Measure will be _kWh_perSF. !J !J ' !J !J_$ $'   kWh_perSF  %H%%H(J %H   %H%$:.  %H%! ! %H. " B@BldgAreaLists$D%:B@   B@n k    C6Data$D%: C6Data$D%:%Data$D%:. !( P(..N....<o NormalizeBAK ڶAttribute VB_Name = "mod4NormalizeFields" Sub Replaces() Dim cel As Range *2,&rngHeadersIApplication.Scre enUpdngaFalsq)Set H= Evaluate(ActiveWor@kbook."+Ori<").HRef@TolFor EachoIno("PointsList"o>2J.Offset(0, 1'Check to se@e if p% has bl m`appedf*If=2 <> "" Then ~'ELJ.Find(RVGe, LEIn:(=xlsCatAWhole0%Not c Is hib'A )(naw@9found in o^inal lQ of h, so move theG up 2 rows,KAEaputP /  ch-2, 0)m Del2.K EŸA \C^` \']A ^[,at were.d , 3V9previously/0YnowcZre-Z.+ GreforQdon't needad@E:, ` do Ag&BB=8?ENIfmNexfelD`=hC a?k@g{ aŷTestIt2%Call cTons("d1", "d23ChW_T empInOuBtPmp_S@ec_gpme' Chlr H @p @FunonnfptGPMevap, ptT1&2%secK2) B o@a@'Returns TRUEnecessary ex?c1' *** 2010-04-250is s`no lo@r used.!!FS@ngCt"sm@m iPTaInteger On ErrpuResu0a1=Es(f) _3 +\OuTdUTP20 1nCompbilitpyModa9H h90sS* 7Ϗ# c'! Pri mAm(4 ) CHW P scG' 8= sheetDataA("C6I(xlToRight=1=@ku1a,;t(EA.Up))|:@a`:humn@i1' Left)11!R 8PA!3qSm, Cן>= Mi:13, Len(cel.Value) - 12 4)  iColgp0m = 0umn 'Find Chiller CHW Temperatures VstrZ= "Chlr_ChW" & nPmp _Evap_n& "_FIn"A ASet crngHeaders.Q(Y, LookIn:=x ls If NoBIshing Thei|;A~.}.iOuti#k!mo#8 @[LastPt\.Offset(0, 1)tsons>Font.BoldTrue  Kbormula"=500/12000 *p RC[%A<- >#"]%w@(D-o/Af )hT 3.FC@R1C1@A,L %bgrE }IfmNdex`mele6cSecondary( orupPu mpą Eacha In }GfRWorksheets("Data").Range("C6``(xlToRight( A(# e^1, 0 ),A1biRowPsVer. Up)) fgP= aÍ + 1{Lefto1)=Ũ,A`63G Mid21ol`+eotpZaY_WTdorq3r,@K wo5djNoRd5D1dT%d&cddV*d!d*UOo@d08F]dcd /q\p׏drQ dd:9#dqSubp'Calc e!No@alize(]DimBdAs R] T  MeasѫZCdeodjrn  WS1kw iдIntegerCells$ imUncoreDLtr+! iEquipIDlenp#@%NamStrи IDr# UCFMm is /8~Long b265528SVApplication.sp >!qx h90/Scre0enUp0&q= pFalsqa`&= OWith WSQbb =3(r$7"0 ount _1 6ss0WS䚆"Up,P uT' Use a CoPh`thanPqvso s cbe de letedNartatpe e (far rr.8d ."<= 1 ToPd; S =i0bA, 6!"_BSF"?Y,").Offset(0, iCells - iLooper).EntireColumn.Dele te End If &If Right(WS.Range("U6Value, 7) = "_{Ton" Txhen [z(VwGPM_NextSet rngHeaders, Tlw (xlTos))+G=.B.C0ount Wi0th !WSThisWor@kbook.sheets("ComponentsNormalize"@' ***is needs to be chdAs for eachiller aKCHW zl.A(cZe;nI@LhCL.Find@'hW_", kIn:=xlBs)60 sub(hrough th@*As on = +<$E1v ofu ?anor cBB8typeA NationB.Addia`l poiWNnAEYd can)addeb)appropriatB w* autom cally!g s cre ea"f es, by iBnsingb(max -" F?$`L0 To 5a; :Measure`A2bA100de,Upd'AE atdRel AAb.f P a>r`dd"`U Dat|a Ua"HAInu% #iLastUncore(InStrR(ev(@."_`_-1]aeiD DLtLeng)#k + 1'strEquipName exclud@4APem  ID`teger, Ace i t!mfromb*" listdDE = Left!- m:a@&2(Od,(4# 5%23 Like & "*" n&8)6)ovU iRIDlen!I e @`= Midy,&& [CAP G+:emO]CdQ6= S1, 0), ~iRows: BICP_q{1 'E yA 2 +o, /P!>U_RO"aSct Cas=Ww@R0q'C Is_kWTfnbm_WattsASFlCBR`'<8/9" py @Destinq:~="OIeЕL pPskDBldgAxmmCopy' U.P0]eSpeci@O xlDivide, !s|a1Xcfm2~ CFMpHU" EY)#w]2 29d&9 ;a Co9 ' gn_p!t v eB=u!`m= W`&s#_Tc No0I:sh1 celHeaderNorm.Value = TD& "_perTon" izOffsetrngCndata.Column -_#TwXsiV OFSulaR1C1\"=RC[" & -h]/ I End IfKCase 3[' Measure is _`gpm a-a lizedwi`ll be.  gnname of S h for thequipmenbt[str= EAN&dID@Y"_ OS&@os.Find(, LookIn:=xls)+If NotIshing ThenA%C#ҁAV= j`It ?i ?i!>?ioL?i i46#i4I*ikWikWhCFMhhhZah`h\ 6sh_hGh ?h?h/ ?hA!# _]?h h_m_ 4td]Rf54Y45 4hG4jhkWh!S~F4*U0_di~pTd!Dpy DestinatiocYWorksheets("Lists").Range("BldgAreaCopyy.PasteSpecial O`d xlDivide, mmQSelecz Nex"p17uiuy 3y` s{DП5C`6"), . (xlToRi0ght)D}.Font.Bold!0True Applic.ScreenUp ~= D{Jtqt C&Ft WSY2ub '7a11S BADK(Dim4 As ) R? $sB u@! 'IntegerCel>lB 'iL7UnscoDLtr+6QiIIDlen KStr0( L1U4!x q d/m iRo wsVer Long S= 65528Sp7sV > 12µQ'= 90O;nO;Fals=Q;r2CCWith47)=FWSGUITH1' UPa Cou0)r rathpthan a @ Each 4soPapVs VcdpZtstarhg  e(faO8si."$6."@3= 0 To iCells If Right(WS.Range("C6").Offset(0, - iLooper).Value, 6) = "_$SF" Then (EntireColumn.Delete OEnd ,If 87_Ton_._GPM_0NextGeSet rngHeapders@ǂUi@, TAw(xlTo))G@.B.Count With !WS ThisWork book.sheetsomponentsNormalize"@' ***is needs to be chdAs for eachiller aAKCHW l.1A 'A'ce-:nH5hCK.Find@&hW_", kIn:h=xls(5 sub'hrough th@) s on < "VCEAvz ofE: `ano1 r c" ty pe&ation. Addial poi@+&n%,d can!)0adde(appropriat B w`* autom cally/!g s cr>e ea"f es, by insingb(max -" F>wdK"5e; :M@easure`A2K$ibA100e.eUpad'AE atQel /AAb.f P a>rcd"`U Data Ua"HAIn!% #iLastUnacore(InStrRev(@E"_`_-1]aeiD LtLeng)k + 1'strEquipName exclud@4APe"m ID`te ger, Ace( it!mfromb*"i listdDE = Left!- m:ጡ@&2e(Od,(i A vp Like & "*" &x)/ U S~ct C|as00k' "1L_kW-wCF`] /cUqi#IDlen@+'y(+)o &= Mid1!,`_1U10?qל-1)Dvbf WattsOO%Qn(Cd!C= ӥ> 1, 0), ~iRowsVA80 #O}q$(2 +IB ho`EVpy Destin"f:=_ /ZLDs`TBldgAm`aqaCopyu .PPQeSpe4ci`yO$ xlDivide, A5\U'Eq71 7cfm8q 8088G#2 8O 5-8i,si8u{^-ԯ&x(8j&W C8CFM7<7 77l776, 7BO77Va/?7gC7 7)U797y777a:772/-72 o normalized Measure will be _kW_perTon.  ' get name of Vs header for this equipmentiE#IDlen = Len(celHG.Value) -Lstr#NKMid K, InStrRev', "_",@ -1), F)2Py= :N&ID &-:"&Sx%rng-s.Find(-5, LookIn:=xlsRIf Not -Ishing ThenG{ C.E xlToRight).Offset(0, 1)COYG %?==>M4MkWMwCFMM2EUFMeMr*EcM5lMhM~MhQSFM/IW/I /I,e/I/I  ,?+(| KkW=ű Set rngCdata = Range(celHeader.Offset(1, 0), \iRowsVer<.End(xlUp)) norm}k0, 2 +-1)dToRight).Column -.oCopy Destinatio8n:= LaWorksheets("Lists")."BldgArea.!4.PasteSpecial OperGxlDiv ide, :=xlValues. SeleLct If NextuCBiLoo' ۄrsEDE"C6"|DvPD.Font .Bold True(ApplicR.ScreenUping A2@Noth8cTEӎ@fCWSIru b 'Nal@izeBAK7 rU@@@~x+* a*S *S *.  q*. *S  *S"rU@@@*8*`8a*`x*`AqOOOOOOx*` A    PPPPPP8*`8 *`bmodzUtilitiesn?__SRP_2c__SRP_2d]KUserForm8LPdata  @on (ISO) definition of a week number.DataAn ISO week always begins on a Monday, and ISO week 1 begins on the Monday of the first week of the year that contains a Thursday.aSaid differently, ISO week 1 is the first week (beginning on Monday) that has at least four days.\Note that it is possible that the first few days of a year may fall into week 52 or week 53.zAlthough this may seem quite counter intuitive, it follows from the requirements first that all ISO weeks begin on Monday,8and second, that the first week must contain a Thursday.8For example, the year 2010 begins on Friday, 1-Jan-2010.]Since this is later than a Thursday (which is 7-Jan-2010), the week doesn't contains Thursdayr(or, said another way, the week doesn't have at least four days), the ISO week 1 begins on Monday, 4-January-2010.jThe day before the start of the year, 31-December-2009, falls in ISO week 53 of the preceeding year, 2009.Rather than deal with the ambiguity of having a day that is in both week 53 and week 0, the 53 carries through until 4-Jan-2010,which as noted before is the Monday of the first week that contains a Thursday (or, equivalently, the first week with four or more days).?The VBA code for calculating an ISO week number is shown below:]P   $  $$'hill   $  '_Ti h !'R ibAttribute VB_Name = "modzUtilities" Function Exists(my0) As Boolean 'Workbook-level ns Dim NmZl&MvFalseFor Each0In A{tveZ.5TXIf UCase(tNm)KTxhenX/ xTru;It yEnd IfNextO  Sub TesBt0() }s,tr Sng  =pSheeta & "!ptFirstDataCell9#my#  =΄->PKShtqs#-r@rG:?reCrrgHL+(s 'Returns TRUE i$f N e in the aB\ wDȃAtxsO bjectOn ErrResuCSet xWLĂ'sD&C @ 0 H0I EdpkZ Point P\! !bsLCa iPT Integer f@pplica..7.Matc$h(, s("").Rangek, 0fa?("((PubƊ IsoWeekNumber(In|ea *!' LThis method 0usesBJ!rn" al Standards Or ganiz (ISO) def in`of a w@ nb. An always begiC@Za Mo y, 1H\v fa $yearat cPonta aSu rsdaySaid diffe`rentl f1  ("nin,g ) ha s st fPour @ sa No`thita possiblec' fewba Bmay fa$llzto#52& tb)53 Alq 4ugh 5 seem quihcou[rive, follows froBme rerem` (A"3,83se+d, @ &mu!3d/@@ThG/wexpampl@ a2010HFri`, 1-Jan-!Sinc lateRn` (whi|7)A esdoe8sn'! P (or, s!ano r ) hav@Vt Ld$-3#, 4A uaryF 0Sfor e start-, 31-Dece<09,M!sW2535p2red*20d09Rab @np:al wit$ mbig"y1{a !ebP(3:(0#0carr !ro)@(il3#P3 ede ?e =B%7< 2a,val<"ے94m1:)HVBAPBde;r calcu%JKQ8 >x d x  p   F  h 4p* B  (Workbook-level names]x'  !$ !$ $'zk ih] !!ptFirstDataCell'dear ] $'Poo +Worksheet-level names]'  !$ !$ $'zk ip3Returns TRUE if sheet exists in the active workbook]0  %. lG'dcG'djiH.Returns TRUE if Point exists in the PointsListB@]  PointsList PointsList$D%: P!R%'Bd:r lG'jcG'jji\This method uses the International Standards OrganizatirU@@@~x-, a qh2 q`tqvggpgPZegdn`qppKpggpggdgpL&>pXHiHi Fgg gbZeg>8?ggpgp`@&HiHHiHih a, Z  ,S , Z  , Z  , Z   , Z  ,S rU@@@,@,`! O8q,`@,`! O@,`A O@,`a O@! ,` L8 ,`b  r|@Iofrua-(b{.Ni:&:coDiZ׏9Ge H~݌x׏9Ge H~݌ r|@Iofrua-MExSPSSS>"LL  L<0{BA6228AA-7B88-4E2E-8805-69FE3AB3263A}{89639BF3-A799-446F-BEC0-E469BB5A9EBB}H X`0k8  `+@ i0i( %X(%X %h %:hrPp@ @ @@ @ @ @( @Xx @p` @H @0 (X(pH8`x_P!$*\Rffff*2C50608480*\G{7FCF1E1B-735D-4A4A-825E-A713819ABADE}#1.2#0#..\..\Application Data\Microsoft\Forms\RefEdit.exd#Ref Edit Control*#0*\R1*#385*\R1*#125$*\R ffff*1N506072cc*\R0*#1f*\R0*#1e*\R0*#17*\R1*#114*\R0*#20`hpx" f ((8 @HZH 2 6 " , p !d$:. hA@r|@8&Select cells from the row of headings.Not a valid range.A@., Application.Calculation = lngCalcSettingdear  P($oX  G.joTAttribute VB_Name = "UserForm8LPdata" Bas0{BA6228AA-7B88-4E2E-8805-69FE3AB3263A}{89639BF3-A799-446F-BEC0-E469BB5A9EBB} dGlobal!SpacoFalse CreblPredeHclaIdTru BExpose0TemplateDerivCustomi4zaDP Sub OKRangeButton1_Click() On Error GoTo Bad Set rngDr_ (RefEdit1.Text!Unload ܃!ExitBP .: MsgBox "Select cells from the row of headings.", , "Not a valid r5.n1* h@ 'App<ation.Ca8lcuU4ln6gt M ScreenUp@ pEnd4Y@_QueryCl!v(Can6 As Integer, ModeHDRIfH= vbAControlMenu Then :H%rU@@87px]z|a Z2 __SRP_36En__SRP_37TcmodzKoran__SRP_1226Q~y|A{qooopAo`Ap W h1q aq`i6pqQ qxr r0`i6`6)6Pgg gf(`qZ@eg( Y  Z  ggZ0` II(`0gUg6 Z8gP88`0<gg?2gUg <8h66 Z  Zx66$h $hXrU@@@686`88P!6`@8A FFbrU@@@x_P!*\R1*#384*\R1*#253*\R1*#2b5$*\Rffff*1T506072cc*\R1*#386*\R1*#2d8*\R1*#273*\R1*#385*\R1*#125*\R1*#114*\R1*#121*\R1*#12e*\R1*#121*\R0*#14*\R1*#119*\R1*#3d*\R1*#118*\R1*#2ee*\R1*#2b3*\R1*#2b4*\R0*#f*\R1*#383*\R1*#24e*\R1*#79*\R1*#2ed*\R1*#82*\R1*#24f*\R1*#12e*\R1*#2cd*\R1*#2cc*\R1*#2ec*\R1*#2d*\R1*#11*\R1*#363*\R1*#a*\R1*#2*\R1*#1d*\R1*#2b*\R1*#32 "  (08@HPX  4`  0p &  4 $ D &  . N@@XNp X   N  ^ 2  v( H (PxR06pp( H "X 2  N,Bl0 &P`XJh 6  8  P  4 , @HP X "`hpx$I'xME@ (0 0>  8:(B0<> LLPPLLL***L*LL% <% @% N `P WWiPp)=%)R% T(% Hp ` G`^ h (% L ` X  (% `h ` @ x)` (% B `  D ` 66)A8 @ %)>` % < %` FP ` @@)> % f8 % hX % jx %`l`n R %`p``r`P <H % ~` ;;)> % f % h% j(%`l`n Rx%`p``r` J8`8 `RRP % @% <% 0% (0%````` `p h  @`P 8 tiveh8%0HXh0(@X` pPV>:@x @H @ `X@0h @`  @XO .P` % Grand x @H @0 P0!@( @ @ @ @ @ @  @8 @Px @h` @H @0 @ @ @ @ @ @( @@ @Xp @pX @@ @( @ @ @ @ @ @ @H @x @p `2 !@h 2l,1, @P @H 84 @`%B = Fal`p `(@hx 8(XP PT_Rge@ @hx @` XP` %@8@@ @( @ @ @ @x @ @ @P h(.(@@ P. 7@ @ P6l5pp0X0:&2@ `%gory).`%H!*!@ @ @ @ p0 7@`X 9,@h @PP @8 (0`%@45r@( @ @H `(@h @ @ @ @ @ @p $5@h``$el 200X~.  @` `H7.Width@X P`%D (pX< 7@ @  @ @P @ 5z@ h @8 @x @` t88   @   4  X &` t6 8 ,X"  V |@   X@       & p  ,p      " B  0 @ X V` X   0  @  P ` "h p x               0 8 .H x     0(8`x:6, F0x <  0(Xx    ,  "  "H PX`hpx  0 > @   ( b0RP zh b8 J L(48 Tp  n F `8xX : 4Hb : ( *B8Rdh   " ,&0*8 B@ P BX Bh L h h   * D D B   0 z8  PX N` <p *,x   4 P( H P X ,p ,   (    (H <P ` h p x  6   P    0 * BB B (z0 H PX`h "   .     ( 8 X .x ,  &   ( 8 HX` p "x       (08 @ HX ` h x        ( "8 "` h p    "   n p!$ ! H! X!`! "h! p! !!!  ! ! ! ! ! V! 8" X"x"""" """"" " "  # # (#8#@#H# P#X#  `# ,p# # " ##  # B# >$ P$`$0x$6$"$"%  0%@%X% p% .%%%%% % @%(& 0&8& F@& & & & & & & & && & & & ' '' ' (' (0'X'`' p' x' ('' ''''( ( (  ( ((0(8( @(H(P( h( p( x( ( ((( ((( ( "()) )  ) ()H) h)) ) ))) ** "* * 0*8* P* `*p*x*** ***** *  *** * *+++ + (+0+ 8+ H+X+" `+  h+x++++"++ +++,,," , ,,  - --0-@-X- `- p-----B.H.*h.J. . P/P/p/////0 00H0`0p0000000000 0111  1 " (1 0181@1H1P1X1`1h1p1  ,x111 1  1 01 @2 (X22 022 $2(383P3$`3 633 3 3 3 4 4 4 4 4 (484H4 P4X4 @`4 ,444 5 5 $ 5 H5P5X5`5 h5 " p5 &x5 &5 &5 556666 6(60686  @6 0P6 66 6  6 (6 7  7 $07  6X7 77 7777777 788 8 (8  08  @8 P8X8`8h8 p8 "x8 8 8 8 88  8889(9@9X9p999999 99 "9 9999:::: :(:0:  8: H:X: p:  : ::: .:; ; ;(; @;.`; ; ;; ;2;<< 20<h< p<<< <<< < == 60= h= = L=&= >,> @> H> h> >>,>> > > ? 6 ? X? x????:?? @(@ &0@ `@]X]p]]]]]]]0]H]h P( .< .%AV <%F%5t.q8  <!F 5t.q  >$RangeGA1$:B@Hj  $A1$:B@H  $a >%HB@HXkPH Application.ScreenUpdating = True '''''''''''''''''**************** B@G  (dj !%! B@f Po ptNumFields <%$!&$P'   Po !B@% <! !ptFieldName 00$'' <! '!ptField 00$'ho=   %(ar=   %(on  numbe new for Excel 2007 startegins  ( and new for Excel 2007 endH ActiveChart.SeriesCollection(1).XValues = "=Sheet1!ptField0Category"t' <!'!ptField0Category'onda=  %(. 5!(  <!C@days o/ On error statements added for Excel 2007Al85(^em qui q 0 %,(.th p(bents f% Application.ScreenUpdating = True8an..<.o]]]](]@]X]p P( 1-Jan: strMyStr = Worksheets("pt1").PivotTables(1).SourceData iDateTimeEnd = Mid(strMyStr, InStr(1, strMyStr, ":") + 2, InStr(InStr(1, strMyStr, ":") + 1, strMyStr, "C") - InStr(1, strMyStr, ":") - 2)day, iDateTimeStart = Mid(strMyStr, InStr(1, strMyStr, "!") + 2, InStr(InStr(1, strMyStr, "!") + 1, strMyStr, "C") - InStr(1, strMyStr, "!") - 2) w- iDateTime = iDateTimeEnd - iDateTimeStartek 5ptECAM1 %F!*!anmScatter chart will be changed from aggregated values of the independent variable to the most granular values.DateTimept1$D%F%!!' } P! DateTimeptECAM1 %F% 99D 9 DateTimeC@q dMThere are more timestamps than your version of Excel can put in a PivotTable.'8 8 <hThe scatter chart will use an average of the dependent values at each value of the independent variable.'8 8 <lYou can still create a scatter chart of all the data, up to the maximum number of points allowed in a chart,'8 8 <Dthrough typical Excel methods, not basing the chart on a PivotTable.'8Too Many Timestamps': 8 :A@k0d(ptECAM1 %F!*! jScatter chart will be changed from the most granular values the independent variable to aggregated values.DateTimeptECAM1 %F% 9qPkHk@ !!ptFirstDataCell' ptECAM1 %F!%X& !$B@ P(| PureScatterMThere are more timestamps than your version of Excel can put in a PivotTable.'8 8 <CYou can still create a scatter chart through typical Excel methods.'8Too Many Data Timestamps': 8 :A@ P(  P(To]]]]8]X]p]]]]] P( .< .AV  <!F 5t.q  >$RangeGA1$:B@Hj  $A1$:B@H  $a >%HB@H k B@  ( !%! B@ ptNumFields <%$!&$P'   !B@' <! '!ptFieldName 00$'' <! '!ptField 00$'' <!'!ptField0Category'? ActiveChart.SeriesCollection(i).Name = "=" & seriesName=   %(=   %(=   %(6 ActiveChart.SeriesCollection(i).MarkerSize = 3 * ActiveChart.SeriesCollection(1).Delete  <! B@ !!( !(^  ( 0 %,(. p(b% Application.ScreenUpdating = True..<.o CreateScatterChartFromPT]h]]]]]]](]@]`]x .< <%F.( !B.  9~9 .RowGrand = Falseq  !%H. !! '  !! %. %X. <!!ptFirstDataCell & !$B@C strFormula = ActiveWorkbook.Names(WS.Name & "!ptFirstDataCell") !!' <! !ptNumFields & !$B@ P! }'dp X>'kX  <! !ptNumRows$=COUNTA(OFFSET(ptFirstDataCell,0,-1, ,1))& !$B@@ ActiveWorkbook.Names(WS.Name & "!ptNumRows").Visible = False   <!!pt FieldName 00$' ! =offset(ptFirstDataCell,0,  ,1,1)  !$B@4 ActiveWorkbook.Names(myName).Visible = False <!!ptField 00$' ! =offset(ptFirstDataCell,1,  ,ptNumRows-1,1)  !$B@4 ActiveWorkbook.Names(myName).Visible = False  <!!ptField0Category'  +=offset(ptFirstDataCell,1,-1,ptNumRows-1,1)  !$B@.<...o PT_RangeNames& Application.ScreenUpdating = False 55r(t9^5(Arial5(qx %E1$:! 9E1$:! 9499q5 5(| 5(45r(t5! !"(@q 7x 79 9$ &5(5!General5!0*(9(k5z!9t ~9| 9q5z!!!"(@q Changed for Ver 2 &.Axes(xlCategory).TickLabelSpacing = 8 %.Axes(xlCategory).TickMarkSpacing = 8(7!*!  7(J 7!J 7(L end of Changed for Ver 2k 799 9$ 9, .95z!(t`5z!!!"(@8q0559^45r(tArial5(5(5! !"(@qkqo FormatChartStandard]@ P(( ActiveSheet.ChartObjects(1).Activate 55r(t9^5( ! new for Excel 2007 start  .Height = 308  .Width = 460 ( .Left = Range("E1").Left + 1 & .Top = Range("E1").Top + 1Arial5(  new for Excel 2007 endq5 5(| 5(45r(tq 79  .MaximumScale = 10005(qH 7#,##0.05( 9$ 9,5z!(tq 5  90 9 49296q 59^45r(tArial5(5(qX5E1$:! 9E1$:! 9499qq!Application.ScreenUpdating = Trueo FormatScatterChartStandard`] : !! < : %!(| :o8](  : !! < : %!(|@ : %!!(| :o@ P(]]] P(, P( P!T' V P(TABPUser selects data range (not including times or headings) prior to executing sub Set myRng = Selection''''''''''''''''''' %F.h !B.P 9~99q( !.>''''''''''''''''''' .@ @ >AD >AFAHAJAL.>.<  P(T% Application.ScreenUpdating = TrueoX] P( R! R! R! R!Calendar$D!%.T8 ch.Chart.ChartWizard Source:=rngCht, gallery:=xlLine  T!( T!!B@ <! !ptFieldName P00$'' <! '!ptField P00$'=  T!%(=  T!%( T! <7!(| 7(2  ;x( .HasAxis(xlValue, xlPrimary) = False99 5!( 5!r(t59 Statements added to get past error running in Excel 20079@ End of statements added to get past error running in Excel 200799R9D9Y9K9 5( 5r(tq 5! 9 909t ~9|q 79 " .HasMinorGridlines = Falseq 79 V9$ " .HasMinorGridlines = FalseqP  ;x  ;x   7(X0 7!( 7 9$ 9, 95 ~9| 9qq 7!!99t R!G 9tj R!JG 9tj \9Zq805B@qo]8 ]P P('^ Calendar$D!  !%! ^  !%!'^kp  Calendar$D! ^  !%(  !%( op P(]   ! ! 7999J9L5z!09t ~9| 9q@q8 7995(^5z!09t ~9| 9qqq A` o  !  7!(  7!(qPoHh MonthArray$ Do Nothingd ! MonthArray={1,"January";2,"February";3,"March";4,"April";5,"May";6,"June";7,"July";8,"August";9,"September";10,"October";11,"November";12,"December"}& !$B@ MonthArray %$(bk o ]h ] P(Calendar$DB@ D!.<Calendar <( P(,A1:A2 <%:(FA3:A8 <%:(A1 <%:(B1:H1 <%:(=LOOKUP(MONTH(''  @!'! >%X%H!'  ),MonthArray)'  &  " "& Year(''  @!'! >%X%H!)' E1$:(JRange("E1").Value = GetMonth(Month(myRng.Cells(1, 1).Offset(-1, 0).Value))MondayB2$:(JTuesdayC2$:(J WednesdayD2$:(JThursdayE2$:(JFridayF2$:(JSaturdayG2$:(JSundayH2$:(J bE1$:( E1$:!Arial9 Bold Italic999tq`B2:H2$: b9  9dq0B2:H2$:!Arial9Bold9 9 9tqo ] ]@ ]` ] ] ] ] ] ] %New for Excel 2007 and other versions] ]0 End of new for Excel 2007 P( >%X%H $'r9Changed for Excel 2007. Approach works for 2003 and 2007! For Each Col In myRng.Columns P >!!* Set rngCht = Intersect(myRng, Col) P >%.hEnd of Changed for Excel 2007. h%X%H.j j $'l j$t'n r n   'p p lb2:H6Calendar$D%:%X.R R n $v9J5r(t x9  9d9z9|5 9tBold9Arial99q q 9Changed for Excel 2007. Approach works for 2003 and 2007& Call BuildChart(rngCht, rngPlotLoc) >!!$D.< P < RANNext Col PEnd of Changed for Excel 2007..f.h.j.Ro P  *** This Sub is Not Used *** *** This Sub is Not Used *** *** This Sub is Not Used ***] ] ]]0]H]`]]]] P( >%X%H $'r  >!! $B@ f >! > f$.h h%X%H.j j $'l j$t'n r n   'p p lb2:H6Calendar$D%:%X.R R n $v9J5r(t x9  9d9z9|5 9tBold9Arial99qq h RAN f.f.h.j.Ro P(Calendar$DB@, p(r p(A1$:B@H !? P%9? P%9? P%9? P%9? P%9? P%9 $B$1:$H$899 9Hq@ (o(8]]]]]]0]H]`]x]] . P(, * B@ P(, .@' < !D <!$$  <!$ P!R%'k <  < !D <!$$  <!$ P!R%'kh <kP !$$ ! ! $   @(d !$$ ! ! $   @(d !   @(khk` %!.  @!!  @%!.  !   !!' @! '!ptField 00$'  %!'$' ' @! '!ptField01 %$!&$P%X' @! '!ptField01'd' @!'!ptField0Category'k=   %(=   %( d`' @!'!ptField0Category'  !!=   %(' @! '!ptField 00$'=   %( kph  !!' @! '!ptFieldName 00$'=   %( ?o CopySheetAndUpdateChartSource?-Attribute VB_Name = "modzKoran" Sub CreateLineChartFr@omPT()x Dim cht!~As SngD 4WS *Worksheet0B0bookmySeriesw sjValu= X numField=Integer >iH myRa8nge pv tTabl Pi voApplication.ScreenUpdngFalseSet = ActiveS B BCall PT_Ks)With).%s(1@tm6= .1B2CEnd For Each "B1" Then ("A1"). NotR {rs(XC ell, F) Is @ hil2+Do Upntil'H3.Offset(0, 1/Loo&pKIf 'ڞTrue t ' * E%bsp.AddC $%!.gb!1@Txl!O n ErrFRe\su8Lpnd.EnyeTAKey.D;t ef GoTo 0E z= Ev!(WS.b("ptN~@Ref`ersTodaZi1  )"rG HCol3New#! d & "!pt !"mat(i, "00"s$' '% i4C(i)B#"=gHviE4R new fxcel 2007 |stJ+e~n S!s6.+à+=b1e*0Ca@Ggory@9"V1/@y  0"ADc.Font.SizA8oC Where :=P9AsObjN, A(:=D%7C5e";`tements addedl9N> "A.AutoScalea 'oQ1v=Ag`.DrawPY aCPlac2 x0lMovusWindow.Visi{= (S#zz!S,6ya RS^d 1A` Puret8terqQstrMyStr`'iD*TimeLoIS!6eAsgq-Tit#rFirst ata&i ioOb1"= &sA]1}ۍ.Sourcez= Mhid(5, z@ (1,HX:") + 2In/k#kC`--| 2D^R o ?!o r #o o r` Ko tS!= z-%0;HandlQ5;9yECAMRow.Count2 y01'2Pc wibeй0JP aggre2g1d Pof the ?ep'b@Mribtomost gulart.w0 /(,( ("(`rIPUs G 7< 3q0l O@?IV@ >= 12­ 1cRb2eb .Onta3xl.P(osit1.S`ubtotpArray(W,#XoOO  Bgort xlDescT/f qTaWE@;CQCre a0mo@tX`smps! %an yH v+D0(EBcput( a . V& vbCrLfp s ~b0usn a aT/dependent values at eachp of the iriable." strMsg = & vbCrLf & "Yo u can4ill create a scatter chart kaodata, up tomaximum 0numb/pointllow\edNF,(through typical Excel methods, not basing BRn4PivotTTitle"Too Many Times`tampsOBox, , End If B Else If Active@Sheet.Ms("ptECAM1").RowFields.Cou= 2 ThLenr'SdwIkbehngYfromdost granularUAqaggre*g}dD . With1B72("D3V") A2.Oriation@bxlPage AVGZACA@FirstaCellNamAyI_@!pt D} Workbook.A s.Add A:=, RefersTo:=Iy&BodyRa@l.A)s(0, 1H2App&l@F.Sqen Up`n!]= TruKExit Sub!!'PureCPErrorHandler:#5#"Kr|`mot_Gyou?F`a3ynputcy`# 싺} w*xw?-CalcjWlngSett3 !R@2A0!3VCb2CF`tPT(=2DimwtL As Stra:AWS!RsgWBAUmySe@ks#gs"U VP=XCaIntegerim#aaBbpvCAM+a#7Fa"kc @3 (=ɗ(B~E :l PT_&s%For EfIn` i# !BAA = ."֢ 2%PNext c!fType! (Selefon) P<> ""d ("Afc Nt!rs( I,  ) Isz Ph)i Do Until ll/# .OffsetR. eLoopCx"7"\ 8.ggXYSaOn BT]sudEOL@.nd.cEn;es(1)Key.Dt[6GoTo 01g3= Ea`s(WSg1Nums5qfb(i 1 sA @ColNewB3>$q@"'"Сq'bsPmat(i, "00i~sB= _ Go" 0C@gory'!1cOG(i)=_`'U w(COOonQhXTooc8!3ort_ `MarkerSizA3GiuCg0/LoWhere:=xlAAsObj`H,d(*7Fon[ s 8_r>Ax.AutoP>letb="ArЙD8rawK b?Placem= xlMov?yWڀow.Visi0'3ϟ͟mkTYXS^\ ' pO ыj=|my*φUge 1P QAeJT0rowMaxLong'pt{myBqpA_OiPRInUVr,$5F= WS.PivotTables(1) On Error Resume NextdSet pv = Activ`eCell GoTo 0 ,pWith$q.ColumnGrandWFalseHasAutoFormatF':>Row;ELp|myRangeD.Da taBod .Offset(-1H, 0pt/s.Yuntp + 1T .e size( , ; ws!2 !Fixrst8, уWorkbook.Name@s.Add :=WS & "8!pt(r#",fersTo:H=myF SstrYulaQ(2numFixeldIM =C<1N0FEyIf Applicati0on.V: < 13 ThenCiMaxPointsInSerieA+3200EJR 999s If36A5 _)""=COUNTA(OFFSETy,0,"@-,1))">_=t/).Visi Dw$u G > `1 3EmyT{+Ia"YQat(E , "00>"@L G ]R10C1:=+ "=~oÀg*A[- 1al,1))"**(CX$# vc #li#1,#peG@R1Na %me%AMe&0Category5_H`Q$h# !gWS`>Nothing(n$D Sub'PT_p9sQqs7ChartStyard(`7UScreenUpdVng0x{~/ 1.BAr ea.Int XorqlorIndex2\рScaleFo0x= QBorder.LineStyl!t]&r= "ArialH<݃QX Sheetc ObjectLef("E1")."FTop`AHeigh13D08<Wid= 46hO PPlot.TWquxlT( xl1ic}5,?56c).lFiরep"RGB15395|56OEo p.xis(xluB)TruesAxqQMajorGridl(a1.rTickMarkxlNon21Lab els.OntҎUpw;3hkbež0<> "Gener 0 AF .Likex*"_/ 2 ABetw@D#<[@Q5q+._G6B82Hair9H"0KinuouW9)??PO\ 43.>34277<08 / ']pd fp0 8'.2%Spaco+OB1? }v.WPK(.CpFl];@."/ 12! a ? [&'e:of a!1Kܵxes(xlValue) .HasMajorGridlines = Truein LFals NTickMarkxlNonHI$LabelPositionMextTo0Axis .Border.ColorIndex8 On Error Resu0me N-*Fo@rmat.L.e..RGB.142770811GoTo 0End With#If Le ge Then . .AutoScaleFont(Pk Interi2oJ52A.NaJ= "Arial"U Size?\]%ZFillZ53955~6([\AIf0GASub  '!ChartStandardp Xt OJ(Dim mySWAs C#Applica.Scre enUpdngj' ctive@Sheet.Objects(1).Aat0e CAEArea.s@3+?J nAdSt|yla@^  new foExcel 2007x st@-. HeighY30lKWidth )46 Lef Range("E1")j@+ y Top` !Wntf !G!Sg:Plotp:$W&xlThi3L5xl!ic' `% D)aCAC@UgorymMinimumiF.Max10l;.fs.N`umbert`5"0HX #,##0. !M_ 6uۯ EachHIn .HPlDuK rkerBackground?$14u@ e ExlDiamon@YHDdh3 +/vNuϐoUau_Bmu/uw # ParentWM= /O-O._N_N ?Yq2.oXpi - 'qxq1yzCnxzBoldro1isBAKyácyger3my1 hu3pug6(t)u<ZMedium#$)2 4+ lx Oxt! щ^h"?)p0f2.5fCQLPsFromPT_(ߙ#=SR`0B5wWSWorksᛉ2iDisplayAlertA AlngcSettirulsxlManualel AddQMhArray'User $sefs a r (not @includ tim0heas) p1 to@ execu s|ub RP [=k:l''ApvtTabS'Pivoo3e3@Cew<%ce#!5lumnG`dLag@;.Row E.nd With  Set myRng = pvtTable.DataBodyRangeF' WS2ActiveSheet8Call Addendar8(.,w)_&LoopChartBuild( Scales3Format]GreyGridlin0 Nothing WSa Applicationb.2cullng(t"' ScreenUpdTru ESubPrivate  |(iCos Integer, OAs Works, rngPlotL8oc քDi0m ch %Objec'Fal^s(A2AK=s("=r").s.x(G$.Left(.Top WidthJHe0ight0QchCWizard Source:R=Chg@ery:=xlLyl.GTypeo  Series^l@L}NewGsNamAWS.B& "!ptField0" & r, p"00"Dg'V alues#"'; 'V.(1)C&= "=A-#Va_AM4G .Q Border.W"=0MediumMarkerStyl7NonTA.HasAxis(xlC@igor y, xl kmary) Za"Lo[L qw= aTitMdArea.UM(~rior.QorIndex&m/.!)' St`!ments adde@d to gpast erro@r runn in Excel 2007gO!Resu]Nex|1@GoTo 0' of sT 82 68,F9U75,_rQvw 7 AxeY:Q2p  7q lA aIf v/tkc! inw ! `"Y#S o$ X With myCht.Chaprt  t.Axes(xlCategory) T.HasMajorGridlines = THrueTin TFals+TickLabelSpacingU16S'Mark& .Border)kColorInHdex<48W eightxlHairL StyleContinuousEnd W  lValueqs.AutoScaleF68u+?bh.?bUb Call GreyBDB(B!fNext ASub Pr4iv  As Object,TĻ.KNono~gAddNameM`BhArraDy($ If Exists("") Then1' Do NothE*ActiveWorkb0ook. Qdd :=I , RefersTo:= _G 9"={1,""January"";2PFebr3MParch@4`April`5B6 June7Bl8@Aug(ust9September10Octo1!NovaDerc}"Q!k+.VisibtA7IfTQ@8YendarSheet(XWS2AQ!.s, YRSRangCDim WS3jmy!5StrB;cApplication.ScreenUpd"d#On Error:sum|e j#F Ke").Delet]HSeta= g. SH"#fGoTo 0IDisplay`Alert'WS.$("A1:A2 RowH%Ȇ2 3:A871@umnWid@= 5 B1:H17s= "=LOOKUP(MONTH('%&2& "'!" &# .Cells(1, 1).POffs"-0b)resn"),'@)"1" "!& Year |, SEqFormulaw"S')2WGet (Smy2yt(tZDRBǡ"Lday$BCTues.D*WedNE{hurF:FPGSaturuH;uE1 HorizcalAlignmen㖾Cśpn`o 12jxl!mZc# ekLoop"Build 1!a @0qdWrngˏ D5i'intWkDayAIn`E$Q3 PlotLoc Aeek?ptHn71~ 'New fnExcel 2007 aer v@r$UDn Ox '!of nN xxA1O>W>NN, vb Qr'` "d. Proach w s3! ' Y EaAIni\olpq4!i=x 1 {X#0=u?AC!1`&= Arsp ,  q(!Q .+=,uwE8 a!X intDay = P(rngDate) CxWeek|2 + Int((uHk1@ - 2) / 7CptSet P@lotLocWorksheets("Calendar").Range("b2:H6Cells3dw, mWithYq.Valuem& Chr(10) & "" +gerior.Color Index15 HorizontalAlignmentxlLeft Vertic Bottobm Add8%True  Lev4el66.FI fxlAu=aJAStylL"BoldLHNamAriDalSiz14KEnd *G#G'Chd for Exc:2007. Approach w@3 a'@l BuHildrtC8ht,WSSȢmyRng.Paru.: BiV, WS'Next &Bg D*>of<  '(Nothing5TOA߆ A#SubPriv`~  Loop((Upd`(B# As bt" '@.*** Thisb Used ??!Dim*!!% b!/ ~gerN@ E( myg@StrF9E1s"0J`bl`tion.Screen4@ @?pFals@# = dayc9.1, 1).Of@fset(-0), vbMo@y<< Fri= 29 To Cce TumnsunBObject).Dellet EA{]I~nk E?ab==ers ,Cea#%&)&A #@ߵD ?, x abd0ttq5.3uu._u_uu .u= xlu#.u$v,_vVkvv\Rh#"w._w] W{tgt'wn7Q*<= Ff,k:=! kQCcylKmatp 2(?4BSSc?6ActrCeWindow.DisplayGridlinesYaayHead[İA1SScU74 QSAge upOn Err [Resua.Margin InchesToPoL s(0.5(U.RighthyTop__<erFoot"v &ntArea"$B$1:$Hl$8رPgnWNlCQ֋.OriPapscapsQ6Gow0ga"Doubl609p1y7lL@Aepy bee:=pp#&2i = 1 For Each WS In ActiveWor@kbook. s`heetsIf IsNumeric(Right(WS.Name, 2)) TXhenZbiApplicationFunoMax(i, 1 * Q1))L@End IfNxext d1 |/pGpJr& t_ v}1WS2 dLefn1 LenrC) -r & i +EElseA$RSI1)AWS NSe1ChtBChartObjects(1)^.C<o2 .CountF2 (i vi CU5!Type&xlXYSterз %ASesColl1AL'ANs@Values " '"')& "'!ptField#mats"00"qA vXD !g$A1E`. !eEv0ate( s(01").Re@fersTo@/ell;@c##` oT? /-0C`gory" ߨXA a-';=8= _6C"X!)LMn[A On ErrRes eT! GoTo 0K ). llgg 0Pqx1O`@2OZ,`gq g 3Pg4Pq@ I``x@(O``g@5qagPg6Pq`Z, `g 3Pg7Pq@ I``x@(O``g@8qagPg9Pq`Z, `ggB 3Pg:Pgd@@;Z,rU@@@~xca Z!j!]1a!A2 aHoqѦaaq`!aw1cqq1qdq1AAqaQa!Q1!1qa1a1t gg4p Z8g0ZUg&Zeg g4 eg$hVhggD e`XgPg&PhVhgPgXFgP Z`erhgHUHh4g@0Z@gNZP (@Xp0H`x0 e(Z & ( tg@0Z@gNZP (@Xp0H`x0 e(Z & ( tgX Z`g gg^( 0ZP(g2ZX8 g gv( ZX (hx(hxg gx  hV((Z x(hxgqh gR( ZX ((gH HPqx0 Ihh@(OP`HhxPg!H HPgH"Pqx0 Ihh@(OP`HHhxPgp#Pqh( kZX ($(hgp#Pqh( kZX (%(hghJg2ZX8 gB!H HPgH&PHHgl#Pqh( ZX ('(hg&ZXe@g` @ hV(((h(hgJH "Hqh@0hg g8 @ g g@gPZh)*hg4Z.gU+gUgUg{ h`XP@P HH( hxPHiHi  gg0ZUg> xUg g@ZP` gUgUgUgUg{h hDXJ `B gg&ZXeg*  egBV@aggBVAwgBBV(nggLZCHghDZ@hPEPghDZ@~hPFPg4GgHgg*  e0gD0VAxgD0VAwgB40V@ag gz 0tVIPVJ((< X=( Pg g0gN >hKg< ?eg>  <   !"#$%&'()*+,-./0123456789:;=?E@ABCDFcdHIJKWMNOPQRSTUV`YZ[\]^_Gab}fghijtlmnopqrseuvwxyz{|~KgLg*MNgxMPOPTMOQ7lPg gRg gg4SPTHpphghUghVghWghg gPSPXYZ[Pg gg g  \P] E( h?(^(Pg g ?^( ?(_(gg< ?e`g`Kg``g`Lg`ag`bg6`SPTUPg gP`SPXYZ[Pg g`g0X  X>h g*  ePgPgB4PV@agBBPV(ngBPV(hg gz PtVIPVJ((< X=( Pg gPggg{ hD0`PpV ( PHiHi`gg gnq ZX ]gp kZX TVg@ kZX X`YV`gg g{8,`Hi@HiHiHip Hi Hih Hi Hi HiP HiHi8 aS S S S   S  S  SS  S  S$h  S     Z  S  Z"a  Z  S S0__SRP_13tlgmodMetricsTable ^___SRP_2e{__SRP_2fJM8`8a`8`8`8`8 `8 `8a`8 `p ` !F^^A8A `8 `H! `^Q8! ```^^AH1`^AH`^A8!`8`brU@@@~x/. a.S .&h ."a .S D%F%!!'**   '  <ptECAM1 $D%F%%!J D26$:%H(J   <   ' I27 $D%:%H!J D26$:%H(J I27 $D%:%H! D26$:%H(  $D.<  <(bB28 <%:TotalC27$:"B28 <%: B27 <%:% <%:B@dC27$:"B26 <%:B@VkC:I$! B@(E27$:  C26$:%%H$:. E27$:%H   C26$:%%H$:.% =IF(ISERROR(GETPIVOTDATA(T(RC3), #!R24C9)),NA(), GETPIVOTDATA(T(RC3), !R24C9))D27$:(D27$: C26$:%%H$:" lD27$:B@ =IF(ISERROR(GETPIVOTDATA(T(RC3), !R24C2," <"",R26C)),NA(), GETPIVOTDATA(T(RC3), !R24C2," <",R26C))E27$:(E27$:  E27$:%H$:" lE27$:B@ " lE27$:  E27$:%H$:B@ =IF(ISERROR(GETPIVOTDATA(T(RC3), !R20C9," >"!,R26C)),NA(),GETPIVOTDATA(T(RC3), !R20C9," >",R26C)) E27$:%H( E27$:%H   E27$:%H$:" l E27$:%HB@%! " l E27$:%H   E27$:%H$:B@  AAAA P(N.<..o MetricsTable ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`]h]' For iItem = 1 TZwHhxME(<><: <(%```` % % `(OOiHi`` 0`UU <% h` P`uu @%`` <(% H% `99PXh.%P x_P!$*\Rffff*1e50607d64">H" P `X .    0 @` 66 T hxJJ @ P `  pP*  F8Z hZp XN @zj   ( 0  8 H P X ` " x &   .    . 2 (  &  >( h x   & 4    8 &H 4p  B  *@ (X: : 8Ph .>(@Xp .X0H ,P *&0Xp  B "  ( 8  XhpVx" 8(P*x    *0 H P p <    " 0 8 @ H X h x           ( 0 @PX ` h pp  \ p     "  @`  @ Xh ,0 "8@HPX`  h x    0 PXp @`  * (8@X *p  * 08P *h  *   ( H  *`      *  ! !(!H! *`! !!!! *! " " ("H" *`" """" *" # # (#^@#X#F# @$ P$.p$$$*$%%.(%X%p%*%%  %% (%& "&&(&@0&p&x&&@&&&&B'H'P'h'>p''''@'( (8(B@((((B(())D )h)p))B))))B*H*P*h*Bp*** ** "+ $8+ `+ + + + + ,  ,8,H,ptMetricsDaytypeOccupancyDaytype OccupancyA.o0XY This sub takes the data from 2 PivotTables and uses the GETPIVOTDATA function to create' a different presentation of the data.]]0]H]`]x]] P(A1 P(NjPointsC26$:(A1$All DataD26$:( <ptECAM1pt1$D%F%!!' >ptECAM1pt1$o iCountMetricField1 iOffset = iItem Range("D26").Offset(0, iOffset).Formula = Worksheets(strWSname).PivotTables("ptECAM1").PivotFields(strMetricField1).PivotItems(iItem).Value Next iItem' For iItem = 1 To iCountMetricField2, iOffset = iCountMetricField1 + iItem Range("D26").Offset(0, iOffset).Formula = Worksheets(strWSname).PivotTables("ptECAM2").PivotFields(strMetricField2).PivotItems(iItem).Value Next iItem~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` Set Font for Entire Table IV26$:% C26$:%$:!Arial9 9 9tqp Color and Bold Font for HeadersC26$: IV26$:%$:!Bold99tqC26$: IV26$:%$:!r(t Set alignment for data Headers D26$: IV26$:%$:(  Set NumberFormat for data0.00 IV27$:% C26$:%$:(%# Set column width for Points columnC:C$! B@(" Set column width for data columnsGz(@D26$: IV26$:%$:( Set table outline borders IV26$:% C26$:%$:  7"(  7"(t  7"(  7"(  7"(  7"(t%qH' Set left borders for first Metric areaD26$: C26$:%%H$:  7"(  7"(t  7"(  7"(tqp( Set left borders for second Metric area  C26$:%H  C26$:%%H$:  7"(  7"(tq& Set header border for all data columnD26$:  7"(  7"( 7"(t 7"(tq$ Set header border for second metric  C26$:%H  7"( 7"(tqp  Set shading for data area4 IV27$:% C26$:%$:!r(toMetricsTableFormats] P( MetricsPerSF$D.< B@  9C26:J26 <%: C26 <%:% <%: C@  MetricsPerSFC@q  %C1$:! 9C1$:!9C25$:!C1$:! 9K25$:!C25$:! 9qP  59^Arial5(5(q 9Average Electrical Demand5!(d  79 Time Category5!(d 5!( 5 .AxisTitle.Left isn't a great location in Excel 2003P5(5(q   79Watts per Sq. Foot5!(d 9$ 9, .90.05( 5!(5(^ 5!(5z!9t ~9| 9qH q@ 95( x9 9 45r(t5(q5,99 5(Bold5(q5999bExcel 2003 version was .Width = 430. First Excel 2007 version was 425, excluding Holiday Daytype.45r(tq  7 U Repeated commands from above since needed order was different in Excel 2003 and 2007E5(5(qhq`A1$:B@H P(o0 P(YearA9$:(MonthA10$:(MonthYrA11$:(DayA12$:(HourA13$:(DaytypeA14$:(WeekdayA15$:( OccupancyA16$:(HolidayA17$:(5degBinA18$:(1degBinA19$:(A9:B19$:45r(t  7"(  7"(  7"(  7"(  7"(qA:A$! B@(% Application.ScreenUpdating = Trueoh]]]]]0 P( shPageFields$D(b P(, shPageFields$DB@ P(, DB@ shPageFields ( shPageFields$D.<pt1$D%F.@ <YearA17:(MonthB17:(MonthYrC17:(DayD17:(HourE17:(DaytypeF17:(WeekdayG17:( OccupancyH17:(HolidayI17:(5degBinJ17:(1degBinK17:((All)A2:K27:(Jq8Year @% 5! 7  A1 <%:,H qMonth @% 5! 7  B1 <%:,H qHMonthYr @% 5! 7  C1 <%:,H qDay @% 5! 7  D1 <%:,H qPHour @% 5! 7  E1 <%:,H qDaytype @% 5! 7  F1 <%:,H qXWeekday @% 5! 7  G1 <%:,H q Occupancy @% 5! 7  H1 <%:,H qXHoliday @% 5! 7  I1 <%:,H q5degBin @% 5! 7  J1 <%:,H qX1degBin @% 5! 7  K1 <%:,H q    A2$:%H   A1$:%H%$:.! ListPivItems  A1$:%H!J & !$B@ ListPivItems  A1$:%H!J %$(b J3$:(blank)J3$: J1$:%$:.AA1$:B@  B@J3$:   B@kK3$:(blank)K3$: K1$:%$:.AA1$:B@  B@K3$:   B@k@ d <(b.!Application.ScreenUpdating = trueoPB9$:!C@ l  =ListPivItemsYearC@qB10$:!C@ l  =ListPivItemsMonthC@q B11$:!C@ l  =ListPivItemsMonthYrC@qB12$:!C@ l  =ListPivItemsDayC@qHB13$:!C@ l  =ListPivItemsHourC@qB14$:!C@ l  =ListPivItemsDaytypeC@qpB15$:!C@ l  =ListPivItemsWeekdayC@qB16$:!C@ l  =ListPivItemsOccupancyC@qB17$:!C@ l  =ListPivItemsHolidayC@q B18$:!C@ l  =ListPivItems5degBinC@qB19$:!C@ l  =ListPivItems1degBinC@q@(All)B9:B19$:(J# With Range("B9:B18").Validation .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End WithoAttribute VB_Name = "modMecsTable" Sub TestItD () Call \("ptDaytypeOccupancy", "&.OEnd fk O@strWSnAs Sng, $Field1 2e' @This stakes the data from 2 Piv"ors aIusGETPIVOTDATA function to create -a different p(resaof4. Dim WSOWork sheet iCounqIntpegerwItem4 OffsetrngXWRang@9}A.B'Appl$ic?.S@HenDUpYing@Fals EntEv@MsG ("C26").F@ormula"Points% D ADx SCPW= Fas1ȂECAMes(̡). [ls.p2/?dN2I i}= 1 To = !'i@=CJ*(0, ).Valuh@"udBb*(1(d aCNextI2gk+?t?$).&I27H&2*V,Number`matFh-;IO)#S*a cWS.VisFixlSVeryHidde2nEIf e B28") <> "Total" !_a C"",J(@(xlDown))kpy D`in:= CA.Eƌ LCo?If C olumnYC:I:Entire.AutoFiC!)= c$E!,dDh.'@1 RnU)  h )>?w H CD%[R1C1#_"=IF(ISE RROR(u(T(RC3)," &~& "!R24C9)),N|A( ??6DbOn Error Resu!E c?& ?5*y T:=xlFillDefaul~!ђ2b"z@",R26CЎ@D3(cg2-?*1*OHe("o80@H on:=?,OOzpq_@44?40C9/!ric"2@"56666!)!)_K _Qoi$p~$#OO/v=     Y)dVCr*2 vRGo0}cs(e` k2bRSeleRQterssPListPage"$! qTru1s2Noth3tj=3k@ 'i A9OTdܠ'~` ٓPsSʵteger  ' For iItem = 1 To iCountMetricField1iOffsetVf2Range("D26").!J(0, `).!mularWorksheets(strWSname).PivotTables("ptECAM1I- 3s().ValueNext2 u + ,22~ `S@vFont fEntire d WitLh 8D:IVzEnd(xlToL eft),"CADown)nt J.N@}"Arial"Size1b ColorIndex@xlAutomatic  '1 and Bold 3Headers ?3B,/70Styl+"1,2*A6JSInterior.5oalignmeDpdata =BuA<Horiz BalAF = xlR8igh9AfGNumber|aH-@+7[`!FF = "0.00-Ecolumn0 widTaWPoints c`&``C:C[.IFi' ! )G))A6 W"2.296t outline borUQS8H.cnM .B .Edgev.L eXxlC@=inuou'rTop) b lBot } S+!Fl6first area0ώp7(1))9e9aK* UeA#AC0#\piseco]j2a{|Okm3/rs5$b5T9/ntthOhm''all HK'c$ A%!!!:H:kKD w9s\#m­_#p#"  qshadingRFv)`o  b.5Sub 'S7NsB~` ChardsSF(JDim WS As fApplic@on.ScreenUp q = Fals`wQ@ =P|PerSF"2`s.AddVActiveS.Typ9StackeRSourceD:=WS.ӆ:JA,A3, _78PlotBy:=Еow"Los WhereAsObject, :="j߱q8SQؓss(1t.93"C"+ 0R}LW.Heq_(25PQ-¡[KBW6 yAry!1Scale(2ߡ?(:0WW5.HasTitTrQ*2 acps.TAverage El @al DemAxxlCategory, xlPrimary) .HasTitle = Tru"e tAxi<.Character@s.Text\"Time "rFont.Sizb11 &' .bLeft isn't a great location in Excel 2003jA= 336"Top]278End WithLes(x@lValueӠWatts per Sq. Foot MajorTickMark\ xlNonMinLabelPPosiT=@NrTo`G?. s.NumberForm@d= "0.0s{ AutoScale6Fals5 A CkBJGridlines.Bord er 56ColorIndex@HWeighxlHair"L@StyxlCinuous OLege_@C6 Orror ResuqK.y!cE GoTo 0L Inior.+528oBt730u{41r9"pBold[62PplotA C2I.HJ26Width480eO'ǜ vwas .30. FirstG7j425, excluding Holiday Daytype.,7U Ax 'Tped commands from above since` needv Adifferen© 7 25V48ARange("A1").Select  Appli.ScreenUpd /yA Sub!  ;Fil!(: e9`ulaG"YeaVrW0+MpJh=! h2Y2$}3HouN.4N)5[We,ek+]6[Occupancy}.7{0]8[5d`egBin]1ZrA:B1#"_re6hIRDks@EdgeaN).ffl-_nt_6Bottom=RrxInsideVert=3l8 fumns8:A0EreC.AFi9}'A/59w9ListPageF ields9Dim pt As PivotTablԊiPitemAgufWSaWor`ksheed ArC$oFnoFA&xshWpVisi0 pDgDisplayAl@sPH_PDRt73 7.Add3ActiveSx.Na@Z cSet =  u g0ptQGs(1Z?WS&.?,UYiBlYyCthZDWZYE\ZiFZG[H][I[J[K\pA2:K1o/"(All)a'I pt.r"S%(x} 0v B= 1 +pICsun'd:1WS %Of fset($+ <1)` (3 Next iPitem End WithhH pt.PivotFields("Month")fFor = 1 To `Is.Cou ntX`WS.Range("B1").Offset( + 1)GBq6YrDCg\DayDZDgZHouZÈE-aZtype[F?.%.WeekdrGmsr "Occupanc_\ "H__`_"Holi.B"I cR5degBin\ot_"J__.a1ϦK7p.f%11GSet rng'@mnA2g0, -, __J.Y(xlDown)ActiveWorkbook.Names.Add :="List+ " & (Value - ReferspTo:= O e0VA?0 !.).VisibleFalsNe 3IfJ3") <> "(blank)" ThenS a,6 ocmA Copy.PasteSpecial Operation:=xlSort K`ey1:= O0rder@p escending,0 Hea`Nocs@ If7K???-a66?????l?1? ??15SW%xlVeryHi dd%"!NothPS'Applic.Scree0nUpdRtru)qSub!)` MetricsTa,Data -(;b]B9Ch"a .Delet4/=Te5, AlertStyle$op,t(or:=HxlBetw , pOmula @&"=;Year>"c  Z 10o A o o to 3"o o o n  ӕ?B1??P*Vst   sr ߐП i bc  s_ ] K`1%%1r+B%~%o m 41111R>walidAlertStop, Operator:@= _ xlBetween, Formula1:="=ListPivItemsDaytype"rEnd With Range("B15").Vati on!l.DeleteAdd BTT:=xl1es, yleFWeekday d6dOccupance72eؗHo@be822X25degBin922818}9:B1ue = "(All)'~8"IgnoreBlank Tru$(nCellDr@opdownputTitlA ErrorInMessagShow!Sub .S  .S  .SrU@@@.8.`Xa.` 1aPPPP.`  FF8.`8.`8 .`8 .`b*XxMEmodzFileSizek __SRP_30__SRP_31Bmod7DatesPrePost"4oL(6 <<< ``$`8`%x_P!$*\Rffff*1f50607d64" J@VDB0^x2 ( 8(H  pb ]X]p] Minimize File Size'$AThis will delete the data from the Data worksheet. All the data '8 8 <Band existing functionality will remain with the workbook and will '8 8 <0be saved, but it won't be in the Data worksheet.'8% 8 < <(This will shrink file size by up to 75%.'8 8 < <DHowever, you won't be able to modify schedules or point definitions.'8 8 < <Do you wish to continue?'8 8  $$'  ' P! G6B'j P(,! C6$:%%H C $:%Data$D%:B@ P(,<koAttribute VB_Name = "modzFileSize" Sub DeleteDataSheet() Dim strTitl@e As Sn"g 6Msg2ResponsjM Minim  x&X$This will d the d from  works. A-&p(-& vbCrLf & "and existing functionality 12 A@InCompbiModAFal@ :90GDisplayAlerts$ Ws("").R ange(C"C6@End(xlToRight).Offset(1, 0), _o ar "b%). Up)).' 9True#` If rU@@@@~x10 a0S4rU@@@080`brU@@@@~x  Hi a S4rU@@@ __SRP_c+Q__SRP_dmod5StatusPoints"X3 __SRP_328 `brU@@@@~x32 a2S 2SMErU@@@282` !J D  <%:%%H(Jkk   "Check for Amps points !J$_Amps <Make sure point wasn't already put in the Status points list !J !J $_Status'& & "%H%.$ $ !J !J $_kW'& & "%H%.$ $-Add component_Amps to list of "Status" points !J D  <%:%%H(Jkkk . .".<.$opL This sub adds the Status Points (from the list created by Sub StatusPoints)1 to the Data List, if they are not already there.]H]h]]]]]](]@]X]p]] P(Q?'6' P! G6B'jData %D.<C6 <%: C6 <%:% <%:. PointsList %D.<$D6 <%: D  <%:% <%:.(  (l !J$_Status !J TR %., , ,%H  ,%$:.. . P!R%'2< 2 6'4 !J$_kWG'8j~~~~~~ !J$_AmpsG'8j' !J !J 8 $_Status'0 C6Data$D%:%%H.* *! ,! ' = 0 *(JtrWS *!(le  .%H.(d Changed on 2011-10-20 to make Status a numeric value for plotting on Retuning chartsetricFh rngStatus.FormulaR1C1 = "=if(RC[" & -iColOffset & "]>" & dblOnvalue & ",""On"",""Off"")"Fo=if(RC[ ]> 4,1,0) ((iv (!J ((kXkP ).Valu P( .<...(.*.,...*oʵAttribute VB_Name = "mod5StatusPoints" @ Sub P() ' This s4creates a list ofX  Dim rng$ As RangesWSWorksheet4cel Found3strCelValueSngiRowsVerAx65528(If Applic@ation.s > 12 A2InCompbilityModFalseen +90+!Set d= @Activefbook.ks("5L"TWi\th!.("D5"), " &B).End(xlUp)).ClearConte&%es@CB1"EDownHB65000FA(- D>!A9.rCA N FA:.Bold@5TlruD@D T2xME(<><:6 <  `JJ <p% %``````` x%xH@x_P!$*\Rffff*1Q506072ccK " (08@H $P x    B D0 x @ $ <8PB2  ( 8 @ `  Bx @ @ @:X   & &  < B8 4    ,  . VH <  "  (0  8 H Xh]X]x]]]]]]]( Dim lngCalcSetting As LongrngOrigHeaders$% P!T' V P(T P(On Error Resume Next; dtPre = Evaluate(ActiveWorkbook.Names("DatePre").Value)A1= dtPost = Evaluate(ActiveWorkbook.Names("DatePost").Value)$:On Error GoTo 01Data$D.<%C7 <%: C  <%:% <%:. UserForm9DatesPrePost.Show"S3Enter the date your energy project started, if any.'sd  < <Use a format like mm/dd/yyyy.'9Enter the date your energy project was completed, if any.'use  <Use a format like mm/dd/yyyy.'te>  Enter a date$'n iz '  Enter a date$'t G 'j9The date the project was completed must be later than or 'ten &equal to the date the project started. < <' 2The completion date will be set to the start date.'   , "Pmp )The finish date is before the start date.A@ssary 'kXDatePre & !$B@04DatePost & !$B@4=IF(RC9=DatePre,RC9<=DatePost),"During Changes",' %"After " & Text(DatePost, "m-d-yy")))'h$  %H(G PB@X'nj %H!J %H(HDateRngC6 <%:%H(J P'' Added next 3 lines so that Pre-Post could be added or changed. 03-12-2008 5'' Same as lines added for Schedules on 12-11-2008'pt1$D%F!vB@'jkdAk  P(T P( PrimaoTAttribute VB_Name = "mod7DatesPrePost" Sub CreXT()  Dim WS As Work sheet0rng2Range*dt.H rstrFormulaSng5PrompS_\ H '}lngCalcSettivLoOPIf Exists("OrigHeaders") Then'%= Application.?2xlManual3 Scree0nUpd0= 0Falsk'On Error ResuNexDyCP= Evalu(Activebook.A@|@").V eIA[@ +GoTo 07=i=Ǫ$a"O" @ S.(W"C7"),"C" & iRowsVer).End(xl8Up)O7Use±9@.ShowI(@Enter the ge your energy project started, if any.L& vbCXrLf" a fmat like mm/dd/y 5"@ was c ule G/`%SInputBox( re, =Da,@w<> ""u,e /Fag iHDĢAI@CHaIEGJ2 must be lwaNan @~I  & "eq` toV)U.fOn'  ICcwill!set%W!+(-*re < 0p= )@DurxChqs"",""AfW " )),!c.Off'(0@, 17).Rx1C1xW >O~t  u]l6@s @ #Rng3 8''2~&ed$ n` 3anes sq>b0}-^uld00 addDcbd. 03-12-2008@/Sa9@bli# S@chedulon 11? /)!50pt1PPivotTab!(1).Ca.Refreshk Q1:1@l NotECAMw𱡐C >R0Kߛ؛HTru# Sub For EachGInsI'Ch eck f st9 pBGRi0ght(S+, 7)@ "_-"G -'add to  WSFDTz.Offset(1, 0)L$ !IfNextF#a #kW#Ee#3c#kW"lLef'<> "E@lecMtr(MHakere# wasn't aldy put in the咟c+".g,= Lenl<) - y & < a&=Ke50, 2).Fiu`!KfIs NothiLngI'A@Jcion}_@2K"EQ1LLLn a/)M?Oam >sAmpsOeO5cOJntJJ@џJtJ@JߟJDJO%11N1h P>{1A13p1(15w11 <2#_2"%I2bw21X 24d [`Y[ hC#?q^XL q` GJz"xME( <:<>6 < D`AA p% "% <% $%`& F`CC <`% % % (% *% ,% . %`0`2`4`6` `8 %x_P!$*\Rffff*1g50607d64 " 08@HPX  `(p 4< L8"  " "( :P   @ B 0` "  2: @H P ` p  B 0 "( P,`"  4:@ HP X hpx  " R 8(08@HPX`hpx     ( : @@` "  , 8 P *` , 0 8 (  @ P ` jx n 6X                 ) This sub creates a list of Status Points]X]x]]]' P! G6B'j PointsList %D.<ty <D57: D 7:%7:B@ B17:% B650007:%7:."F Set rngPoints = .Range(.Range("B1"), .Range("B1").End(xlDown)) Status PointsD57:(JD57:!(q0  "Check for status points !J$_Status your add to list of Status pointssd !J D  <%:%%H(J9Entekh ergy p  "plCheck for kW points < !J$_kW !J$ElecMtr <Make sure point wasn't already put in the Status points list't !J !J $_Status'& & "%H%.$or ' $&+Add component_kW to list of "Status" points'FnsXC (f8romr"d by ! ,'rA\Data , ify aP`no_`re.S! F oZHeader Measure/$ 0S"dblMaxDoublضOnvűlPc2tOnqiC,olcI0geriP@ !Pt"/39SenUpdPl= Ҵ,P v= 0.030@nit S13b1s)463A6sBgCC6dTo).pw@Tt*=$GDLDSV13cy  w2 k1mTS8L In:=xs!J6YScT ],~Ӝ -F:pIFunv %==*u4%: If Right(cel.Value, 3) = "_kW" Then iLenEndPtNameh3  5Amps5HstrHeadergLefG ) - ) &Status"XSet r ngbWorksheets("Data").Range("C6z(xlTo).Offset@(0, 1)0iCol] 5. umnY MeasureB ' ΀,Font .BoldTrueJE@ G';6%@='~ChLd on 2011-10-20 to@ make [ a numeric v for plottingARetuncharts C.Formu@laR1C1@,"=if(RC["M-`]>d0blOnC," "On""ffX"")Pe,1,0]Ji1 IfNeHxt Application.Scree0nUpd@Y= ' ~WS@Noth/ "Vs$== . *?b{# A&Sub$__SRP_33SfUserForm1DefineEquip*k/UserForm9ScatterData*U!mod9zCreateList 7I8a2`bVL]6xME(ed by adding Subsystems to the List in Column A in Worksheets("Subsystems"),5 and adding the additional subsystems in new columns.%_Additional Equipment can be added by adding Equipment to the lists in Worksheets("Subsystems").YAdditional Points can be added by adding Points to the lists in Worksheets("Components").]X]x]'% P! G6B'j <(JEquipID %$!J$P <(JData %D=C6$: C6$:%$:. q PointsList %DsdB Set rng = .Range(.Range("A6"), .Range("A65536").End(xlUp))A77: A 7:%7:.e=  %H7:.attq !rngOrigHeaders$:! rngOrigHeaders$:! % !! %$:! B@></k8 PointsList & !$B@ PointsMap & !$B@ PointsList %$(b( PointsMap %$(b PointsMap %$ >(p subsystems &%D!JA27: A37:%7:.waq0B % @(p PointIndex %$!J$P >(z_StatuSubsystemIndex %$!J$P @(zComponentIndex %$!J$P D(z MeasureIndex %$!J$P F(z.H >!z @!zAmps D(p"Sta F(pk D!z  F(pk..o @!z.  D(p.< F(pp|hk` PointIndex >!z& !$B@t crSubsystemIndex @!z& !$B@L ActiveWorkbook.Names.Add Name:="Subsystem", RefersTo:=ListBox2.ListIndex PointIndex %$(bSubsystemIndex %$(b subsystems &%D @!zC17:%H  @!zC17:%H%7:.qB % D(po]h @!z F(p|xkph Component D!J& !$B@ComponentIndex D!z& !$B@ Component %$(bComponentIndex %$(b Components &%D'L D!JA1:Z17: P!R%'LP L A17:%H  L A17:%H%7:.qB % F(po]] MeasureIndex F!z& !$B@ MeasureIndex %$(be Worksheets("PointsList").Range("A6").Offset(ListBox1.ListIndex, 1).Value = ListBox4.Value F!J >!zA7 PointsList$D%:%H(J& For Each pt In Range("PointsList") if pt.value PointsMap %$ >(p o9ActiveWorkbook.Names("EquipID").Value = SpinButton1.t#vxME( PSPSSS<:<0<8<0{0ED9843B-BACF-4BD2-866B-4FC8ED0D758B}{F126673C-C04A-4454-9937-633B38164915} :@@ p %  %  % H J`L N @ %  % Pp R`T`V`X Z""`T`V`X \ ^  `%D%wa%p `x_P!" n <x f `    (  ( .0` h H4"0 (8Z` ((8 X x. *. .P, $   0 8@H "PX p ,0 RX"x \ (@ "HP X p ,0" @ H h p .x  `   0 "8 @ H P .X  t F ,h      " @ *0 `   "     .  , 8@ x :    "  .( X ,x8 :  8X,` $    ((XPf  "( $0 Xh "p x &    hAdditional Subsystems be addValueEquipID <!J& !$B@EquipID %$(b <!J .(Johp]]]@ MeasureIndex F!z& !$B@ MeasureIndex %$(b F!J F!J_$ $'T F!J F!J F!J_$ $'V T <!J V'X X >!zA7 PointsList$D%:%H(J PointsMap %$ >(po]h]] MeasureIndex F!z& !$B@ MeasureIndex %$(b F!J F!J_$ $'T F!J F!J F!J_$ $'V T <!J V'X X >!zA7 PointsList$D%:%H(J PointsMap %$ >(p PointIndex >!z& !$B@ PointIndex %$(b UserForm1DefineEquip.Hide 6A@rAJA>|  P(T P(5! Unknown Error in Defining Names.':OReview the ECAM documentation and make sure you have followed the instructions.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@o UserForm1DefineEquip.Hide9$ 6A@r9o P( Unload UserForm1DefineEquip 6B@R!System Diagram$D(bJSystem Diagram$DB@,Z P(0o  Attribute VB_Name = "UserForm1DefineEquip" Bas0{0ED9843B-BACF-4BD2-866B-4FC8ED0D758B}{F126673C-C04A-4454-9937-633B381@64915} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomiz DP Sub _Initialize() 'Addonalsystems be Hadd8byingto the List in Column AWorksheets("<'"),5 and&@subnew c s.(mentp canQ))l )sY&LPointsDCompon(s") Dim rQAs Ran&gH2 He`adersiRowsVer 65528CIf Application.s0 > 1]In&bilityMod Then 90CSpinButton1.Valu1On Error Resu!@Next Ev@@(Act ZEbook.!m@F7|ID ' @T$F G0oTo  WiXth OD`s"cDSet0*=C1(2("C6TD.End(xlToRight)  g #FAeI'Aad`9f."A553 dUp{F7Af" &<)-9 2V,&.Offset(0,| 1Q!#2P,.hCouu>e* Orig@<Ooa s4+, _a =/O )!"tire.Deleftta>If%>1W.E aX:="(>,bf`xTo:=!Map" 2().Visib! AWBox1.pSour~ cTxhis&})tg_:g?1A2,30$0:pDown_)A 2 ress(Jero:=y@>C_MUMIndex oMkiM"!' M2.te?Rmeiu 2y~3OWEWk4Measure \qC1-1 Or_E [C3"q 45>{/Q%^NothjWv!49 2_Ch! p}c+x 1Exit QPQ@es>Q IM$ 8 0/$#wW/_ '>X -< XкU4U1_sv"C1Iɤ}1,6x)_uO5y@35ex?. t OeOe?*P"e@?*ے?%b9?*$A, ?*"r?*?*?*|ox1!?* D?*e?* ?*anp)rlr0 ?*RenbHandlerK|"x 3CK"!xUserxm1@Definebc.HiddUnloHad _ipCallplace hculd# Exit9C!:C6E`lng teScreenUpdR>MsgTit""Unknowqin s,."P"\iew the EC@AM docn tҿ  make 1 you have fol lowedbin}pu?c .v bCrLf"I:fp` trou, check wherBeobta0d3 f0a newer vp 0.`, ,rInds ɹCancel~V%%%'HelpO] #TC ,U/3s.ip0FSystem DiagramG'D1O >,n SPSSS0{4250AB25-BF6A-4252-A70F-A715FF293296}{0035C6E6-6932-4B91-9335-10F0EC0ABC16}x X i0i( %X(%XX(`x_P!" (8 @HH 2  " p !d$:. :A@r|@8&Select cells from the row of headings.Not a valid range.A@., Application.Calculation = lngCalcSetting P(&oX  G.joUAttribute VB_Name = "UserForm9ScatterData" Bas0{4250AB25-BF6A-2-A70F15FF293296}{0035C6E6-6 -4B91-9335-10F0EBC@C16} dG lobalSpacoFalse CreblPredeclaIdTru BExpose0Template DerivCustomizaDP Sub PKCOKRangeButton1_Click()  On Error GoTo Bad Setp rng_ (RefEdit1 .Text!Un`load $ExitD 1:MsgBox "Select cells from the row of headings.", , "Not a valid rA6.p3 , h@ 'App=ation.Calcu@Vc6lngt M ScreenUpdng r8End4 [EA_Q@ueryClw(Can6 As Integer, ModeHSIfH= vbControlMenu Then :F%rU@@@@~xHis>(new) t4^that repl]#]. Dim WS As Worksheet CurShtnumRowsaALongG Ck@|eger8Reg@v sDiffrngARangei i)VerA65536CI]@pËs @> 12 AjInpatibilityMod@False fn: 9CiTG@Z01 User@m3zInputTblRng.Show $ 5GoTo Termin@dA0ScreenUpi@G= *E Se@aNDataC.0CopyCs. AdOn ErrResuNC ActiveSAF.%! ~  0c6("A1").PasteSpecial#h 2EJ= !rsunV`a=M,ax.F(f4/ (+ 0))'+ 3$A ρ 3> $ @kGCells(1, 1).Offsetkaa,,z.End(xlD`))tire4.Dtb@ If+esizecv#((2).In@X-B3)H- .-@>[ w= 3 ](gs(2'U a@s" H(eadzf`Scu,rr¤(A ) inf-!V LoopG A)9,E56'9`ce !VjH1 - G&0BH@%%Cb+ % )-2'''Wh???3(2P4, @'0)@ e.'Q6RU4$"(60, p, _().HC 8<1):9wS0Ca0FBlank`.), 7>PVM"QiYb$  Wd4w\ 4ToRpightJJwS Key1:=!"A2"      !"#$%&'(*+,-./0123456789:;<=>?@ABCDEFGHIKLMOPRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Orp=@Nesdlx, _22=B@sB:=pxlYevssT<:6 < b0`RR <p% d%`f`h`j`l %`P t` R 140`% 0x_P!$*\Rffff*1Z506072cdc" , V8 d J bH   ( (  0@  X  h x    " (8Z@   (   F8. ,"  <HL4  ^ @ ,.( 8XJ     " H 0` 0 .  0 H  P ` h x &Need to select just the table portion.OThe column adjacent to the left will be duplicated next to first column values.]For example, if dates are down a column and times across the top row, don't select the dates.CSelect just the times and the values below them as far as you want.[The dates will then be duplicated next to the (new) time column that replaces the time row.]X]x]]]]]]' P! G?B'j' nB@ Gj P( .R B@ DB@`Data (HA1$:B@T >. !!'h  h 'p4+ 1Z !!'f f p p'f f %X%H  f %X%H%$:!rB@XkX f !! %. %B@  %XB@ %X%HB@ P h@Copy and Paste Header for current column (iCol) in For-Next Loop P %XB@  %%HB@4(1,-1)Copy and Paste Date Column f  %%HB@  %%HB@5Copy and Paste current column (iCol) in For-Next Loop f  P %%%HB@J '''What??? f   %%HB@=(1,0) PX Range(Rng.Columns(1).Offset(0, -1), Rng.Columns(1).End(xlDown).Offset(0, -1)).Select %  %%$:%HB@HAt %XB@H %HB@Time %X%H(JValue %X%H(JA1$:  A1$:%%$:. A2$: B2$:v x z B@ P(.<.o0B This subroutine fills blank cells in a selection with the value) from the nearest non-blank cell above.* It works with multiple non-blank cells.|$in case there aren't any blank cells! >=R[-1]C 7~((bC@ TC@A17:B@Hq P(&%D|oʶAttribute VB_Name = "mod9zCreateList" Sub CombineTableIntoh() 'Need to select just the tR portPion.PT(column adjacenPo+left will be duplic}d nebx#firUAttribute VB_Name = "UserForm3zInputTblR ng" Bas0{35212A1C-C960-4695-B933-4A11C5CC2E48}{01CC42A4-83FF-4DED-9A7F-1DFB8DFA3A76} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDP Sub OKRangeButton1_Click() Dim cel As  On Error GoTo BadSet rngDl (RefEdit@1.Text.If.Rows.Count < 3 OrFColumn2( I= 2 And iTimes2) ThenS* Each 9In#(1).Cells ThenGa>`>+:K pt5a ;A ' b%<.Source_H)P AWEV e!HIf(RpDfV_V Fun on Show"e0(PTR")!Lo+ b(|t D@ @p @ @O @ @( @X @x @` @X Hg_ltgg4p Z8g4p Z8g.pZ8h gN Z g Z@p Z@@@V rer(Z@e@(g  @ZU g| Z@V.@g gU g0Z8h g6 Z8g6 Z8g{t@8j (+xMEx8: >(B> LLLL L< x`k p% "`o  H`(o  =@% `o# =% @%+` 86)@X%xH%Xp0XPD:"@ @ @x @ @ @ @p @X @H@ @`( @ @ H`0Df$@x @ @ @ @ (x@`D@ @p @ @O @ @( @X @x @` @X @@ @(    hDP&P*&@ @( @ &@0 O H &@ @ @X p 0 @O X @ @ p @ X @ @ @p ( @  @@ @ @X @ @ X P`x_P!*\R1*#253$*\Rffff*1]506072cd*\R1*#384*\R1*#273*\R1*#385*\R1*#125*\R1*#114*\R1*#119*\R1*#42*\R1*#12e*\R1*#2b3*\R1*#2b4$*\Rffff*1W506072cd*\R1*#121*\R1*#26f9" 4 4  .0N@.X,"|  0 6 6 "( 0T8NP h p x  " P66 0 $@h "px P 0 D(0 .P   , B ]X P( P(, P(N@(Dgg gTZgNZg g g g g{X8 Fgg gPZegZx@X `XXx@gZx@X `XXx@gbg{L&2Xx@@gg gPZe g0 UgD egl(pZ@\@gVpZ@ K @gpZ@ (@gggggbg,Z8 g{X@\8P @Hi a"S "S "S "S " Z\rU@@@"8"`8a"`8__SRP_23_|~modReTuning__SRP_1c __SRP_1dqXF"`8"`H"`^AbrU@@@@~xHiHiHip  " " " " (@ " H vP 4 r 6x   $ $(PX ^` (    (8 @  H X h x: B @ pX h L0 p V hH R \ $h D , b p 2  ( 8  PlxME(P0:<><  P` < t h &  X @P h 2x  8P`x   (  @  P ` px  "    $  $Hpx ^ (  8@  HX `  h x  : B @8 px h LP p V hh R \( $ D , b(  2  H X `  h  x           !  !8!P! `!p! "! ! !!! ! " "" 8" @"X"p" "" "" R"B# P# &p### # # n#`$h$ $ X$ h$ H%h%%% %P& Fp&&b& 0' @' P'`'p''' ' ' '' '''( ( @(`( ,( B( &( X )x) ) H) H) 0*8* @* P* `*h* p*  *  * * ****** * "+++ +(+" 0+8+@+H+P+ $X+  + ++ + + ++ + + , , 0, P,X, `, h, x, - (- 0- 8-@-  H- X- x- - - ---- -  .  . 8. (X. . (. . >. (/ H/ 8h/ / / / "/ 0 0 (0 @@0 B0  0 0 0 1  1 ,(1 ,X1 1 1*1$1 1 2 202H2`2 Fh22 2 F2 3 3 (03 X3 `3 h3p33 43 33484  X4 h4 "4 4 4 ,45 5(5j8555.5@5j(6f677 7 7 (7 87 "H7 " p7 x777777 7777 8608(h8"88 8 88 28 09 @9 X9 6x9 "9 "9 : :(:8: @:  H::h:: : : " : :;;;; $ ; ,H; x;  ; ; ;  "; ; X; H< `< zh< < < = (= H= = := 8>lH> >> >? ? B0?  x?*?? 8? 6@@@H@`@ @ @ @ @@"@@A "  A (A0A8A@AHAPAXA`AhApA  xA  A JA jAXBpB xBB B.BBBC C0C8C @C"PCXxCCCC  C D D D@D tHDDDDE 8EE :E(F l8F F:F6F0GPGpGGG  G G G,H B8H HH  HHHH $H B II"I@I:HII B IIII"II:I J@JXJ "`JhJ pJJ"JJ JJ "JJJJ0J( K4HK$K*K KJK@LHLPLXL`L0pL $LL LL0L $ MHM PM`M0pM $MM MM,M $ NHN PN `NhNpN xN "NN  NN NNN$NO 0O8OPOXO `OxOOOOOOP(P@PXPxP PP P  P 6P 6P  Q 8Q @Q HQ XQ  `QpQ .xQ Q >Q Q R R (R0R@RPR$pR$RRRRR nR PSXS`S hS$S$S S S T(T@T HT `TxTTTTTTU(U@UXUxU UU U  U 6U 6U  V 8V @V HV XV  `VpV .xV V >V V W W (W0W@WPW$pWWW2WWX (0X nXX XX X XYJ(Y$xY Y Y*YJZ PZ  `ZpZ "ZZ  ZZ ZZZ$Z [ @[H[ .`[[ [<[8[& \H\ `\p\\\\\\](]@] TX]]]]]]^ ^ ^$(^P^X^$`^^ 6^^ "^^_ _ , _ ,P_ ___ __ __ _` 0` 8`H`P`p`x```$`$`aaaa ` aa aaa a$a$a b  b @b`b .xb bb b 8b Fc dXc \c< d8`d&dd ddee0eHeheeee Te f8fXf`fhfpf xff$fff$ff 6g8g "@ghgxg g 6g 6g h h(h 0h@h HhXh .`hh >h hhhii(i0i$Pixii2iii (j n8jj jj j jjJk$`k k k*kJk 8l  Hl"Xl "lll ll l 2Pm 0m m m mm n0n.n n oo .oHoPoXo "`ohoxooooooooo oo oo 2o.(p Xphp pppp p 8p *q ,Hqxq qqq *q q r r(r 20rhr prrrrr rrrr s 8s *Ps ,ss sss *t 0t @t Pt`t 2htt ttttt ttuu] (]@X#Air Handling Units]@#Chilled Water Central Plants']@#Hot Water Central Plants']@0#Zones]CPAo@AHUAo pAHUxyAoZoneAo ZonesAllAoxo This sub is similar to EquipSearch, but instead of creating separate worksheets for each piece of equipment,. with different charts on the same worksheetl the sub creates just one worksheet, with a single variable for all pieces of equipment on the same chart,/ and different variables on different charts.]]]0]P]p]]]]] Dim iEquipIDlen As Integer Dim icelOffset As Integer]](W Dim strCurrentSheet As String 'Public strCurrentSheet as String in mod9KoranCharts]@! Dim rngChartsArray() As Range]X]ppt1$dAfk !'J.A P( P!T' V P(TData$D.<U6 <%:       !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHIJbMNOQ=RS^UVWXYZ[\]L_`adefuhijklmnopqrstcvwxyz{|}~T6 <%:% <%:.;This sub loops through the columns on 3 ReTuning Worksheets:Each value of iLooper is another column and type of Chart.iAdditional points to be charted can be added to the appropriate column and will automatically be charted.aAdditional columns can create additional types of charts, by increasing the max value of iLooper.EThe process is to, for the selected system (Central Plant, AHU, Zone)i1. Find the count of each type of equipment (maximum EquipID). For the count of each type of equipment:P2. For each cell in a column on the "ReTuning" worksheet (in this ECAM add-in),b3. Look for the corresponding cell (same equipment type and measurement) in the "Data" worksheet.L4. IF the corresponding cell exists, add the corresponding cell to rngData.V5. After all corresponding cells in "Data" hav been added to rngData, create a chart.6. Repeat for the next column>7. Repeat for the next numbered piece of equipment (EquipID).%This process was modified as follows:[One chart is created with all corresponding cells in all columns of the ReTuning worksheet.zThis first chart is duplicated as needed to get the required number of charts. (=number of columns in Retuning worksheet.)+Unneeded points for each chart are deleted. P(,  Case "CP"@ Set WS2 = ThisWorkbook.Worksheets("Retuning_CPsAll")$ iCountEquip = iCountChWs For iLooper = 1 To 51 strWkshtName = "CPsAll" & iLooper/ Worksheets(strWkshtName).Delete Next iLooper Case "AHU"A Set WS2 = ThisWorkbook.Worksheets("Retuning_AHUsAll")$ iCountEquip = iCountAHUs! For iLooper = 1 To 202 strWkshtName = "AHUsAll" & iLooper/ Worksheets(strWkshtName).Delete Next iLooper Case "AHUxy"B Set WS2 = ThisWorkbook.Worksheets("Retuning_AHUxyAll")$ iCountEquip = iCountAHUs! For iLooper = 1 To 203 strWkshtName = "AHUxyAll" & iLooper/ Worksheets(strWkshtName).Delete Next iLooperZonesAllKTRetuning_ZonesAll &%D.@ ' 2ZonesAll 'j j$DB@ n8 P(, A1 @%: IV1 @%:% @%:!X!' *** *** *** *** *** iChartsMax limited to 20 ***  G'j @   * Application.ScreenUpdating = FalsegLoop through each chart (column) for the selected system (CP, AHU, Zone), for Equipment piece iEquipID..  . A2 @%:%H  A100 @%:%H% @%:. aLook at each cel in the column in Worksheet WS2 and find a corresponding cel in the Data headers.   !J_$' !J   'strEquip excludes the equipment ID integer, since it comes from the WS list, which is generic and doesn't include the equipment ID. !J  $'?Look for the corresponding cel in the Data Headers (rngHeaders)   !JBldg* !J $ !J   !J $  . .  2y(each celHeaderd  $.  .'dX  $.k8  2y(each celHeaderk k    7 At this point, rngData has the data for a single chart J'' *** What was this for? It resets rngData when it shouldn't be reset... 6 If TypeName(rngData.Value) = "String" Then m If Left(rngData.Value, 4) = "Bldg" And rngMeasures.Cells.Count > 1 Then Set rngData = Nothing  End If '' *** End of what was this for? Q At this point, rngData has the data for all charts that go on a single worksheet9 *** Create PivotTable and first chart here using rngData 'j$ & iEquipID jA+ Call LoopRetuningCharts(iChartsMax)''''''''''''''''''''''' 5! %!'l  7( l  7!!(d 7!(5! %!'n7( 7(  7( n  7!!(dkdAkq'''''''''''''''''''''''A1$:B@H   P(T P(.....<.@o EquipSearchAll]0]P]p]]]]]] ]8]P]h Dim iEquipIDlen As Integer Dim icelOffset As Integer]]W Dim strCurrentSheet As String 'Public strCurrentSheet as String in mod9KoranCharts]! Dim rngChartsArray() As Range]]pt1$dAfk !'J.A P( P!T' V P(TData$D.<U6 <%: T6 <%:% <%:.;This sub loops through the columns on 3 ReTuning Worksheets:Each value of iLooper is another column and type of Chart.iAdditional points to be charted can be added to the appropriate column and will automatically be charted.aAdditional columns can create additional types of charts, by increasing the max value of iLooper.EThe process is to, for the selected system (Central Plant, AHU, Zone)i1. Find the count of each type of equipment (maximum EquipID). For the count of each type of equipment:P2. For each cell in a column on the "ReTuning" worksheet (in this ECAM add-in),b3. Look for the corresponding cell (same equipment type and measurement) in the "Data" worksheet.L4. IF the corresponding cell exists, add the corresponding cell to rngData.V5. After all corresponding cells in "Data" hav been added to rngData, create a chart.6. Repeat for the next column>7. Repeat for the next numbered piece of equipment (EquipID).%This process was modified as follows:[One chart is created with all corresponding cells in all columns of the ReTuning worksheet.zThis first chart is duplicated as needed to get the required number of charts. (=number of columns in Retuning worksheet.)+Unneeded points for each chart are deleted. P(, CPKT Retuning_CP &%D.@ ' CP 'j j$DB@ AHUKT Retuning_AHU &%D.@ ' AHU 'j j$DB@ AHUxyKTRetuning_AHUxy &%D.@ ' AHUxy 'j j$DB@ ZoneKT Retuning_Zone &%D.@ ' 2Zone 'j j$DB@ nh P(,PL iChartsMax = rngHeaders.Cells.Count = number of different charts allowedA1 @%: IV1 @%:% @%:!X!' *** *** *** *** *** iChartsMax limited to 20 ***  G'j @    P(gLoop through each chart (column) for the selected system (CP, AHU, Zone), for Equipment piece iEquipID..   . A2 @%:%H  A100 @%:%H% @%:. aLook at each cel in the column in Worksheet WS2 and find a corresponding cel in the Data headers.  !X! $. !J_$' !J   'strEquip excludes the equipment ID integer, since it comes from the WS list, which is generic and doesn't include the equipment ID. !J  $'?Look for the corresponding cel in the Data Headers (rngHeaders)   !JBldg* !J $ !J   !J $  . .  2y(each celHeaderdp  $.  .'d(  $.k  2y(each celHeaderk rngData is NothingkcelHeader.Value Like...  in rngHeaders 1 to rngMeasures.Cells.Count ; *** At this point, rngData has the data for a single chart = 0 To iChartsMax - 1Q *** At this point, rngData has the data for all charts for strSystem and EquipID  'j AHUxy jA;8This just sets up the PivotTable for the Retuning charts   AH/This creates the the charts from the PivotTableAd jA AAkA1$:B@H   P(T P(.....<.@o EquipSearch(]' Ao]]0]H]` Dim strWkshtName As String  P( j$d DB@ j ( p(rd j$D(b j$DB@, j$D%B@ j$D%F!tB@ k P(!B26 j$D%:zptECAM1|pt1 %D%F!vB@x6', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F9~99q P(ptECAM1 %F 5 !$Status  ! G  (j  'kk  P( TempRng7( 1degBin7( 1degBin1degBin7B@ 5degBin7( 5degBin5degBin7B@ Holiday7( 7 .PivotFields("Occupancy").Orientation = xlPageField Daytype7( Weekday7( 2 .PivotFields("Hour").Orientation = xlPageField Date7( MonthYr7( mmm yyyyMonthYr7( Month7( Year7(: .PivotFields("Time").Orientation = xlPageField< .PivotFields("Time").NumberFormat = "h:mm AM/PM" DateTime7(q j$DB@,ptECAM1 %FWeekdayDaytype7%(SaturdayDaytype7%(p   !J7Avg !J C@0.00Avg !J7(  !X! 5( Day7(Day7( ? .PivotFields("Daytype").CurrentPage = "Weekday"H d@ ? .PivotFields("Day").Orientation = xlColumnFieldk DateDate7B@ DateTimeDateTime7B@q AVd J$DB@,k not rngdata is nothing.Start of end of sub CreatePTforRetuningScatter Range("A1").SelectA:A %(B:B %(C:C %( PB@X Set rngData = Nothing Set rngHeaders = Nothing  P(T P(N% Application.ScreenUpdating = True|   $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@dP .%Unknown Error in Create Load Profile.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k..  P(T P(o CreatePTforRetuningScatter Dim iLooper As Integer]] ]0 ]H ]h 8   %B@  % 5!! 5%! 5%! $'  TR  $%. G 5%B@j  G'j  5B@q+ Debug.Print rngChartsArray(iLooper)  % 5!! 5%! 5%! $'  TR$%. G 5%B@j  G'j  5B@q  !!  %!!!G  %B@j  G'j o(  Dim iLooper As Integer]8 ]P ]h ]  Dim rngXmeasure() As Range& ReDim rngXmeasure(1 To iChartsMax)  .<  Retuning_AHUxy &%D.@  ' A2 @%:%H  A100 @%:%H% @%:. %F!.' sLook at the FIRST cel in the column in Worksheet WS2 and find a corresponding cel in the PivotTable DataLabelRange.' $. !J_$' !J   ' strEquip excludes the equipment ID integer, since it comes from the WS list, which is generic and doesn't include the equipment ID. !J  $' 4Look for the corresponding cel in the DataLabelRange   !J*Bldg* !J $ !J*   !J $ .y each celHeaderkcelHeader.Value Like...  ' in rngDataLabels ; *** At this point, rngData has the data for a single chart ' <! '!ptField0 '    A1 Selection.Left = Range("g7").Left/ Selection.Top = Range("g7").TopA@ !!(   %!B@krngCharts Is Nothing H?d@? J$DB@,kif not rngdata is nothing.o LoopRetuningScatters ]x ] ] ] ] ] ] ]0 ]H ]h P( .<CThis section makes sure that the activecell is not in a PivotTable.dIf the ActiveCell is in a PivotTable, then a PivotChart would be created, instead of a normal chart.  <!F 5t.qp=  >$RangeGA1$:B@Hj  $A1$:B@H  $a >%HB@H<k<  'Retuning_AHUxy &%D.@ A2 @%:%H  A100 @%:%H% @%:. %F!.'' B@  (; !%! B@;nLook at each cel in the column in Worksheet WS2 and find a corresponding cel in the PivotTable DataLabelRange.  !X! $. !J_$' !J   'strEquip excludes the equipment ID integer, since it comes from the WS list, which is generic and doesn't include the equipment ID. !J  $'4Look for the corresponding cel in the DataLabelRange   !J*Bldg* !J $ !J*   !J $ !B@' <! '!ptFieldName 00$'' <! '!ptField 00$'=   %(=   %(=   %(  'yeach celHeaderkcelHeader.Value Like...  ' in rngDataLabels 1 to rngMeasures.Cells.Count; *** At this point, rngData has the data for a single chart  <! B@ 0 %,(. p(b.<..o  CreateRetuningScatterFromPT ]  _$ ''     $$$G'jip6 ] ] ]  _$ ''     $$$G'j     $'  $'i5 ]0AHU_Fan_S17_Status$'oh5H]AHU_Fan_S67_Status$'o05]]0]P]p !length of EquipID (1 or 2 digits)]!string for Equipment name] %string for NumberID of Equipment name] string for Measurement] length of Measurement stringData$D.<u6 <%: u6 <%:%H% <%:.''''   !JAHU*?_* !JAHU*??_*  !J$ P!R%'k03    !JChW*?_* !JChW*??_*  !J$ P!R%'k2    !JHoW*?_* !JHoW*??_*  !J$ P!R%'k02    !JZ*?_* !JZ*??_*  !J$ P!R%'k1 .<..o1]@ P(X1 %9D1$:! 9s@94.4 inches high96.0 inches wide'  %B@,A`5 !! %!'l  7( l  7!!(d 7!( !! %!'n7( 7(  7( n  7!!(dk/dx/Akh/5!( / .Legend.Height = .Legend.Height - 1 / .Legend.Height = .Legend.Height + 1 7!!(9. C@.5!9' .ChartArea.Height = 320dP.8 .ChartArea.Height = 320 + .Legend.Height 5(k-s@  %(533333-@9j@9  %!!  %!!! 95  %!!! 9k8-9 9<9g If ActiveSheet.ChartObjects(iChtObj).Chart.SeriesCollection.Count = 1 Then .Width = 430q,q,q,  !! %!  %( %!  %( ''''''''''''''''''''''  !!  %B@,A`  %! !! %!'l  7( l  7!!(d 7!( !! %!'n7( 7(  7( n  7!!(dk*dx*Akh*5!( / .Legend.Height = .Legend.Height - 1 / .Legend.Height = .Legend.Height + 1 7!!(9) C@)5!9' .ChartArea.Height = 320dP)8 .ChartArea.Height = 320 + .Legend.Height 5(k(s@  %(533333-@9j@9  %!!  %!!! 95 !! 9kH( %!!!5 5 9 %!!!9 %!!!9" - .InsideWidthg If ActiveSheet.ChartObjects(iChtObj).Chart.SeriesCollection.Count = 1 Then .Width = 430q0'q(' ''''''''''''''''''''''  !!  %!  %!  %( %!  %(   !!  %!  %(  %!  %!  %(  P(o moveCharts2columnsX] P(H% %9E1$:! 9s@94.4 inches high96.0 inches wide'  %B@,' Call FormatScatterChartStandard 5! 7!7!, $'l ! !ptFieldName l %$!&$P'l l l l $'l  7( C@ l  7!!(d !!7!'l  7( l  7!!(d 7!( !! %!'n %(N .SeriesCollection(2).ChartType = xlXYScatterLinesNoMarkers  7( n  7!!(dk"d"Ak!  795!!d$TempSa(9k!5!!d$TempOa9/ .MinimumScale = xlAutomatick0! .MaximumScale = 10005(q 5!(& .Legend.Height = .Legend.Height - 1& .Legend.Height = .Legend.Height + 1 7!!(9P C@8 5!9 .ChartArea.Height = 320d* .ChartArea.Height = 320 + .Legend.Height 5(ks@  %(533333-@9 9  %!!  %!!! 95  %!!! 9k9 9<9Z If ActiveSheet.ChartObjects(iChtObj).Chart.SeriesCollection.Count = 1 Then .Width = 430qxkpqhq`  !! %!  %( %!  %( ''''''''''''''''''''''  !!  %B@,' Call FormatScatterChartStandard  %B@H 5! 2''' strTitle1 = rngData(1, 1).Value?''' .Axes(xlCategory, xlPrimary).HasTitle = True^''' ' .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)U''' .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = strTitle17!7!, $'l ! !ptFieldName l %$!&$P'l l l l $'l  7( C@ l  7!!(d5! %!'l  7( l  7!!(d 7!( !! %!'n7(N .SeriesCollection(2).ChartType = xlXYScatterLinesNoMarkers  7( n  7!!(dkdAk  795!!d$TempSa(9k05!!d$TempOa9/ .MinimumScale = xlAutomatick .MaximumScale = 10005(q5!(/ .Legend.Height = .Legend.Height - 1/ .Legend.Height = .Legend.Height + 1 7!!(9 C@5!9' .ChartArea.Height = 320dh8 .ChartArea.Height = 320 + .Legend.Height 5(ks@  %(533333-@9 9  %!!  %!!! 95 !! 9kh %!!!5 5 9 %!!!9 %!!!9" - .InsideWidthg If ActiveSheet.ChartObjects(iChtObj).Chart.SeriesCollection.Count = 1 Then .Width = 430qPkHq@ ''''''''''''''''''''''  !!  %!  %!  %( %!  %(   !!  %!  %(  %!  %!  %(  P(o moveScatterCharts2columns] ]@ !!   !| If Right(mySeries.Name, Len(mySeries.Name) - InStrRev(mySeries.Name, "_")) = "Status" Then iStatus = iStatus + 1 !$StatusG  'j !$OccG  'j    !!   ! If Right(mySeries.Name, Len(mySeries.Name) - InStrRev(mySeries.Name, "_")) = "Status" Then mySeries.Axis.AxisGroup = 2 !$StatusG (j !$OccG (j kd !!G %(jkkoX] ] ]0]P] p]]]]](A' ' D2:D31 AxisLabelList &%D%:.D2 AxisLabelList &%D%:. !!'  G 'j   + +  %. ! ! ! !_$ $ + $  P!R% + $  %H!J +k   "- 1     $  $G  +j    $' d $G ,  $' jk     %9 5!(dqH    + +  %. ! ! ! !_$ $ + $  P!R% + $  %H!J +kH    "- 1     $  $G  +j     $' d $G  ,  $' jkX     %9  5!(dq  .o wAttribute VB_Name = "modReTuning" Public iChartsMax As IntegerBNrivaiCountAHUsP 'Air Handl@ Units7ChW 7Chilled W\r Central P@lants'BHo BHot'>Z?!\ZoneVDi m rngAr ray()sRange Sub CP() Call EquipSearch("CP" End  ; xE7xy7AsAll"D strSystemSSngH'This s@UimilarH to T, inad of@ creatAseparworksheets for each@ piece eEfm, Awith diff$er c½ on the s @(es just e D, a s%le variabA##sJ#J!_'Ј'nN-.AQ celEYMeasur{YHead|erb  W:SW.tWS2,giLooper d astUncoreLt >$iSIDlen Offset3 " d GCIbaCurOS?aVCb`Mas" Din `9KporanÔ+W`t=CeDBD *hFDFcIf "Exists("pt1")False pThen! ¦SetupFirstPTCIfE = Activze .Data Nothp" Get2B7cApp`߀on.S{enUpdc= l@alc  xcul  xlManualAj= fj(?& 7uS. /(W"U6"), T. (xlToRigXht)`WS 'WlP9sOroughRPcolumn"G.3n EqVvalurV=\an >s MtypR#pK! 'Additionpoi3_be3Y0can addPaXappropU wP automc0WyrUed s !] ` fa hyhq^2m'pe p cess to,iAdelect s%q(:, |, uR1. FicїdU 6n (p imumtID)0q: 2$btPll aek"fgp (I7s ECAM-in)`mb v3``k\Pipond: (w 2 #m3la|)] "1U4IVF,pVs*eI, /S&6%5 Aft -| @n hav'ef+,ea%b6Rep@nextD7OBPnumbdt (h)dB?)w`edifi(followsu On8,32d OBCf"f_#?du3Y# nee?gxQzr!r0R>sp. (=8$L)RPf5UnG֣" ad::&9cDisplapyAle](cO n Err7ResuN3S? Ca0qnSR@䁿2A8qb2`aabbook.b_CPs`cR1R!`ٜF` \= 1 To 5, 熰D & ?m).DbA~"pR // _?` ? ? 20<O Q b_48_tZ_bCase "AHUxy" ' Set WS2 = ThisWorkbook. sheets("Retuning_All") iCountEpquipXs LFor iLooper&1 T0o 20 #strWkshtName(w &?5 @).DeleteNext&Zones7  )!!Z5 9 I AHEnd SSctFApplication.DisplayAlertsmTru]On ErrGo|2iChba Max@ .@Range(G"`A1"),"IV@.@!(xlToLeft)).Cells.' *** Dlimitped tA IDf  > 9en=B7ReDim Preserve rng5Array(0@CxL - 1  [ScreenUpdat@OFals[  through each c- (column) f1the s9` system (CP, yw, J/B{ment piece iID.CcDataNothad ) Measu/sH2").Offs`et(0,E~JA100DMUp)&7Aa' ,k at+el in.e ,m"a`gTfia@r phond7cg'headersh+ (E8InME'iLastU"ncorInStrRev( .Value, "_", -1@aiiD LtrAyhLen)S + V ' "> ex@cludes#ebIID$teger, sinJ t`#mfromWS list , whiXis generic )doesn'}n l(!= !pp#?g+X9HC9 ( cd0 I;  1 !B >=eMCo 'of p3e OngsB OllCgo on w"Create PivotTabP rs|Bhe0u ~gu7eS`'WfCap 3LP`$Hory(Nra#A(߹/With Active'p$.SesColle`0B< <ï(R@ Tiptle1PT(81)..;!.Axes4xlPriRmary).HasTitle = True  .Axes(xlValue, xlPriAxiv.Characters.TeDxtstr1)^ELef:52If .SeriesCollection.Coun/2 Th\en42A)6vetL(2).Nam"A~Group-2G>@TypxlXYScatLinesNoM8ark' Secondd as9End If+ElsPRCall AddLab8elsL LAWi4thG 'GRange("A1")_A CNiLooper`Appli_Ba`lculaAtlng+cSettingCI Scr@eenUpd ng  @ rn gData@NothcelHeadersQWSSA TSub 'EquipSearchAll!, !(@gSystem As (Str`)'Dim  ".MeasuresO  Worksheet WS2(g=Integ?`ipsMaxEb oLastUn@5score Ltr$ * 'F1IDlen&Offset3  d  @CurrentS.CAHPubg MaE in mod9Koran-g3W`9t KI#Array()AlJD !.5c "E`ts("pt@hFa`  wupFirstPTCi! = ͢ h!" Get2B7`C+   O `xlManuarB)! "GV7 "B0>= WS.R(@"U6"),"T. ToR ight)F'This sKl[s thpwghpe columns on 3 ReTunJ s'Each v!0 of APanY@Ws a@hty[P'.kiaal pointPo bted canadd to appropriatu wipautomccPqy&!?pg` f cs, by7qsthe m_PNp Г p cess to, for se!t s`(C@r Plant, AHU, Zone'1. Fi1`ceUJegmp (p imum DH)׿q: 2$uPlAGa1!"e!" wd (Iys ECAM A-in),d3``kp^mp1(s #mo!)"1U4IF/t eI, /xl. &D%5 Af _@n "hav'ec+, &c%6@Repeatn737OBnumberppiece (6 6`B?)w`edifiEfpowsu On8, d wOrBCfDw"f_dFu# nee?gxQr!C:p. (=8$L)RetL5UnOG1:c/q? ad:H _DisplayAler K= (cOn Err7Resum,e S? Caseq~SR@q^r"CP"'_qp[Xbook.7Y(9s_%1i(= ChWF U\= 1p To 1 W= &_K  |).D  1#pQ?n$?_O22?yC`OmD20o NtName = "AHU" & iLooper  Worksheets(st rW,).Delete `NexBtCasexy" ^Set WS2Thisj book.s"Retuning_ ?) @iCountEquipD (s %For%1 To 20 zo8bZone Z>5 FEDEnHd SctiApplication.DisplayAlerts@iTruOn ErrzGox1'iCha Max rngHeaders.C8ell@number of different c allpowedJ.@Range(G"`A1"),"IV@.6(xlToLeft))I**** Dlimitped t If  > Then =ƾReDim Prese0rve "$Array(0d KC i"nID`&ipa.6ScreenUpdat`yPFals' through each/ (column) f;the sB system (CP, @~, R.m7piece i.A! DataNom +@'ȢM excludesb,eA"Rfinteger, si&nSomfromWS list, whi@ais generic a2doesn'n \!a= a!] - #E8 9 U ( !E>elS In$$ N# LikBldg"*QRig htZ) Or _4= pDo?:qW?x Is GZ?5qF= OOgIocCad)< Exit@']EaUy{Un&q,go'$V o_?n@|dcOIf_!nd&OI_! '@0pQ7{Y'C..oR rIPc$? '1'Atp[i po`,qO" hVaba2aAbg~lPz3 '= &/f /_ePShPV.S8s_TCCreate,PTSter[  jus&tuprPivotTab1 k !%R,  j V:=ECAM1" ', Defau@ltVers@:=xl10 With C!Cas(F čE.CGr6o+".HasAutoFormattRowT?!5H֎o'A& E < pf .b!Fieldh @Rig ht(pf, 6)"Statxus"H{eount < 10`Orien@0xlH`idden .Pager [iC=+ 18p9("TempRng1degBinl("-Sort xl=cenrdx,  K5OonOO"OOCOot3,("Holiday72 B Occupanc_F'q Dayty 1 Then X.VPivotField.OrientationxxlColumn<8s("Day")@PagBe(>Posi|58On Error Resume '.StypeUCurrvQWeekdb;GoToAHandlerElseGEnd IfK 8tA7AutoSort xlDescending, iTim GA&WithCall PT_RangeN0amesEJWorksheetsP(strfS).ActivatDV? 'notd is h8'Sta>(of > su b CrePTforRetun ScattqBj!*("A1@eSelect8!e$ǀՁA:A kWidth HB:B 17C:C6App,li u.@-cul$ "Se"$cA|Not$iHeadersAfc Clng @ t-EnableEvj Tru6 Screen onlyls from the row!Ih`& s," & vbCrLf"QcB.", m a valid ra`._45+a@bTitle$"Unknow einZ Load Profile !Make sure your bg s\#!< iOK,n try again J Reviewb%ECAM doc m  haveneC@!* perin u~o/B`C sist`P `ouR, check whe obt ed G" 4newvb@!CC;#"2cRÒV!.9Do=a= 7 44\ 4a 'PgP LoopQCh`Ts(isMax As !7ger)tFDim iAsxWS2Q6^`tObj8Se^s@?Fd!R[1gStr&xT^@ U = 2 ~1]!P Hs(1).DuCYOaq ?bj25C ;..fqiA*P 1 Step -1G = Ri0ght(6(i 3)., Len` ) -| 4< /S=!Y%Array% r - FindQTookIn:=xlValues@QiX`ѯ D`PuqSET < => tElemI(msoENone ;#tq Debug.P-~8t3 ChA50?){,(rt(( _(_(olt-_(_(_( (5 D0).'/' 5!H?'Q ?' ,%&&& &&x&7&3Q0%#߂ S$LL. ?|P _N= 0T5XT.x< t<2Pq1`@qsqteq, iEquipLIDh4s, q0y=m9 Iaa_gle cح`?&!a+= "'A9WS.Na֠E'!ptFipeld0*Call CreateScatterFsPT(wtrSystem_#4 "zC5Sele0qon.9Je"g7b!/ ?6Top,B`&mat St ]ardWSgB.RA.Bor`V.LineSty= 0_k` s)E.2EleRR(msoTitleNone0'&r,ds&Go #E "" (Uc+1ga!ra(, } )% ocDo Untilr޵ о ϡCIf*OF)Ԑ ԁ0WĖ_eP__?^DUetytaЇPrtiDAhѳd.Adp j&xlXYsѶ On Error Resume Next  ActiveChart.LegendEntries(1)@Key.Dele terGoTo 0 ,'Look at each cel in the column Worksheet WS2 and f ia"rresponding ;PivotTable DataLabelRange.tFiMeasure = D2 rngs .Cellou6n{}S@O= (#, 1).iLastUn@dersco1InStrRev(!.Value, "_", -!ALtrsLLeBn) - ++ 1:'strEquip excludese ment IDtr, since itmfromWS list, wh"idis yeric^doesn'tW@#= Left=M1-NCfhx vGAvEĒHea` Inld@lAs *If Cf Like "*Bldg" &@aARigh1k) Or _ {G& iBm@g& ThenE.S@kesColleon.New' s Na= "'%WS.'!ptFielda`+mat(ic`X00"_ \?YW E (i)8= iO _ es).XGh  1,.( A? $ % %$Exwy_'5FE_qT..(y G>? gi '@`&uoƯA1 to' *** At @poin@d X ha#!| augce)=Location Where:=xl%AsObj g, a1:=a2CS.Draw΃Place"= xlMov@Wow.VisiA= Fals`= Noth myB3.Npv a;Sub6' CreateRetun SterFPT"Pubbl`FunbFlGgJqID_N XAs l)Ine Dim ϰkaan(?1yns/!Gs5T ǐTq.IsNk(Uh/#vw^enx1), 2)) !Yi23E`$_C1OgerOO BNKq#oOEod"oyшIDoo,#Üoop`12}= 1 *4~ ,)$t1<#SHo?ZX1?ŷ 1gĠ*?_*"q"S5 App0{.A.Max1wEs0'!A>IfS NeQxt celHeader For Each In rngMsIf.Value Like "ChW*?_*" OrBaDThenRVi CountCs = Application.WorksheetFuncMax(., iEqui0pID())bEnd IfNeRHo߀Z\e>Zi>Zs=CS et WSNothingGGQ  Sub  moveCharts2columns(DDim i AstegCɾScreenU$pdngFalse On ErrResume AAWith A@veS. Objects(1.Top 0c a.Left@Range( "D1")C+ 1Heigh 316.5'4.4 inches hWidA= 432"6.0%widgiCht Vɤ)."atd# Call ma0StandardG $C#A@#&.SeriesColl'AB <= 2 strTitle19 @1.Nama.Axes(xl, xlPrimary)0.Hasb @ Tru_HAxicacters.T= FK!n@-$E5O?( (%2(2)( 7(!GrouA_2AType@xlXYS`(LinesNopMark * :S8ecoR_: .B;leIqCx EFq4AddLabel5Area.Bor.pStyl8G!'A5Ggend.VF -HAL C0Dgoq6Tick.Fo@nt.SizQ 9|8Yu OZxt gElement (mso&1DpNone[VGoTo p+7?Kq3K= 1/K qELphp= 2J`2%"" + Rs .Posi9pm. /r%rveancPlotQ r u14.8/R -215.1  RQaO 24SUеBx~):$- .yU39'Pb1 .Ins`k6 )m@)7 v 43A%$ai۠pto.?GoiЅeO֣@#)ׂi '?%?#A2AR;W&=_$R$O2 Q@a.Name  .Axes(xlValue, xlPrimary).HasTitle = Tr"u*Axiv.Character@s.TextKstrV1)E(Lef:52If Activeht.Series Colleon .Coun:2 pThenH2N&(2)"=Group-2>fTypxlXYScatLinesNopMark' Second#2!v9End If+ElsДCal l AddLabelsL DKtArea.Bo rder.AJStjyB0 '9.Legend.H0eigh - ;̩j+A*DWCategoTicBk:.Foniz}9 FaNOn Error Resume N SetElemea(msod#M|None)k GoTo (oW&n14nኃ.`b0!3,<&53>2 ;3J ` + k?kEPos itionxl8Top+]ÊSheetCObj s(iCht`!P316. With .PloB\``14.8Pg[215.10_E7ت.4+ +C<b0?=-*\3 Wid,=d !1)#70.Inside=_A K- i/O%o! C % Oq 4A/ Q7N&r00 ||E .S= 43@PbA3qQ 7 S'FUi 6<3 pP 0s1 &ҡ Mid((P0! ula, St`r(1, oi",")h15, EgK A9Ev`( s & "!ptField ").RefTo#@  R(, Len)7InDH" ") 7OOE AontT5vAdjac To!)frIaǑ 6t'nW<= Y  strTitle1 = .SeriesCollection(2).Name  .Axes(xlValue, xlPrimary).Has#Tru.|Axi?.Characters.TextO )I(Lef>56If Axve8t .Coun3 pThen!N2T((3$Group42H'%yB>TypexlXYScat^LinesNoMark@aSecond)!BEnd DIf.ElsԦCall AddLabelsPD With E3Categoryȏ ?Minimum^la0 @Right(@!T, 6)r"T@empSa".l4(t vO 2X,xlAutomatic&Y& .Maxi010".TickC.Numb`erFor.0~"/BEqFtArea.Border.aoStyUAA.Legenpd.HeB@ - 1/t +OmZ) Fon`4izAW9pFaroOn Error Resume N SetEleme`(msod#None) GoTo :O Y1hc10Aeb/""=63\iE 7k@!5Posi~P xlTop_3# jSheetObj`s(i8Cht`E)316.w SRPloR/r 0 14.8/26/"P Bf/E. 4Part (=-4/'C  1_ .Widk= 39Ob@ 1InsideD6_R0r#$S ݩVs9g 43 WDm[[ ^ i(2 D w!82OD1E7~)V i '=?[@?tive++ g!rua!Stad ϱodVISeWRHcR)a> 0A19rngData0(1,  }O /_ҀS 6 rnttڃuAdjac@uTo!t/ ߦ?aے q Mi4d((`ula, InStroi",")`Y15, 2π 9lEv '(#s & "!ptField"A).Ref`To v, Len(g -GH" ")O#O#G# .SetElement (mso,PrimaryCategoryAxisTitleAdjacVTo$) Axes(xlr, xl)..Characters.Text@ = stra1SIf riesCollection.Cou<= 2 The^n5T`A7v e'w}TypexlXYScat@LinesNoMarkNSecond@).)aB@End If.ElsCall AddLabeLls oWith }OMinimum`/l00@TRig8ht( ͅ, 6)9"TempSa".l4ו(t O 2X,xlAutomatic&CY& .Maxi010".TickC.NumberFor.0"/BEqFB8tArea.Borderb.aoStyUA".Legend.He!C` - ?]H +!\)"Fon@izY9p (FaqOn Error Resume N` scNonep GoTo =O -RF`1502aOC vJQ 3Q0&K?%9 + {"!50Posi xlxTop/6# #uSheet Obj`s(iChtC@b+316.y #UPlo"2r 0 14.8126/" _э E. 4Part h?- # Aq .Widm=4oѡ.Inside>_/P(- y_Q0/$c $//'d A18A Q;(r33|Jw43Om  j }![X 4App liScre enUpd0ngGP##!(SubA'pmoveಡ20s2column AChoicDim my2 As Dim iStatus As Integer  If ActiveChart.Series ColleTon.Count > 1 ThenfnFor Eacph myf  '7wRight(?.Nam@e, Len ) -ZStrRev ,"_")) h= ""=q + 1\@>6E&3&Occ#LNxextWU> 0 f@.Offset(? sQ 1, 1).ValuUMW"ZS_#%'^-)1t ` TohO (2)S^G@1Y (tzLq+ pll) <> "ē& ", " & \ aWithFU(xl!, xl maryH .Havs_pSrI$u.acters.T=  !}IsI#/>""Ies2YI_T9IW[$ IIIcI @@@fIetI# )I>I#F0DI O,I,II @I1;I&o; -ItIU Io%CAI(`vI I I#IpondJ .HasTitle = Tr0ue .Axih.Characters.TextstrS ecBjEnd @With On Error GoTo 0 Set mySeriesNot@hing 6Sub HiHi HixHiHi(HiHiHi Hi Hi Hi Hi HiHHiHiHiXHiHiX aS S S S   S   Z   ZS   Z   Z  $h  !&o   Z   Z S S S   S S SS^rU@@@ 8`8a`8`8`8`@ `P@ `P8a`@ `P@ `1FX ` 1aFFO` `aFPOF@a `P@! `P8`8`8`8`8`8`8a`brU@@@~x54 a4S mod9zHistoryScrollBars.,T(__SRP_342__SRP_35eD:modChartMatrices"gFlds %$!&$P'    !!ptField  00$' =offset(ptField0Category,0,  ,ptNumRows-1,1)  !$B@   KTAll DataKTZoom to Year of Data fm   Gm   'fjm   'fKTZoom to Month of Data f   G   'fj   'fKTZoom to Week of Data f   G   'fj   'fKTZoom to Day of Data f   G   'fj   'fKTZoom to Hour of Data f   G   'fj   'fn case iZoom f p G p 'fj ! !ptNumRows f & !$B@ f 0u f ' d00u' k Z''''''''The following code is not changing the Scroll Bar .LargeChange. ????????????????Q''''''''I've tried using Shapes collection, ScrollBars collection, nothing works.SB1 % B@H Selection.Select >9  9 q   %!!(N23$:B@H P(ptECAM1 %F!vB@o]](]@]XC28$:!JC29$:!J ' '" C27$:%!HC27$:!H C27$:!H '$ < %(E23$:! E23$:!? )@ ! %B@H >9J9 $ 9+ .SmallChange = Int(1 / dblInterval)9   9 iOffset9& 9( SB19UpdateScrollBarScroll9dqE25$:! E25$:!? )@ ! %B@H >9J999 9 $I$49& SB29H9( UpdateSc      !#$%&'()*+,-./013456789:<=>?@ABCDEFGHIJKLMNOPRSTUVWXYZ[]^_`abcdefgijklmopqrstuvwxyz{|}~rollBarZoom9dqA* n25$:B@Hop Arial BlackE22:M24$:!(F24$: 9 9|All data9qPG24$: 9 9|Year9qH24$: x9 9|Month9qJ24$: x9 9|Week9qK24$: 9 9|Day9qPM24$: 9 9|Hour9qI22$: b9 9|Scroll through data9qoAttribute VB_Name = "mod9zHistoryScrollBars" Sub UpdateX() 'T`his sD used to get the PivotTabl e*u after chang(ing'sn bxar.QkBc a_s0event code, Workshee,t_+,urun, which seA?rt scale9Application".neenB= FalseLActiveS5.5s("ptECAM1") Cache.Refre`sh /C0all LsAdjust iZoom " +Tru[End qA)Dim i As Integer/AdblrvalDouunumRowBsLongMaxiOffsField{N#iAHCAeLgPlotHeightSave.alMC 2i= "rtObjects((1).. Area.!hC` #F}SB2Valw Cbook.s.Add2 A:= "A & "!/", TersTo:="`=$I$3~ '3= E>u ( e )A^b )Fbs(R~@e("C28E - 9c etptNQMFAll-7 (f l COUNTA(OFFSET(ptFirstData Cell,1,-1,65500,1))0??e;fK#eM'`pifrom w AHc"ߟ@,?"("1[[[F?--  b0Cng}*_C3krytO1+ 1G1((c%^@"qA1@<=(/j\+_xME(6 <<<(  X`   `QQ` ` `f`p``` ` `   p`++$Macro recorded 5/31/2010 by WilliamK 14` `" `$ `  * `''pX IDle%px_P!$*\Rffff*1h50607d64" V x` ( < @PX `p "x    6 DP,L @ dLx@  &((4(V`  " . @$X . " .  "8 .` " :  0 H 8h         ` X@          (  8 X "` h p x  ,  H  X x    2       0 X8             0 "8*@p (0HP Xhp  8@ POThis sub is used to get the PivotTable to update after changing the scroll bar.qUpdating the PivotTable causes the event code, Worksheet_PivotTableUpdate, to run, which changes the chart scale."Application.ScreenUpdating = False5ActiveSheet.PivotTables("ptECAM1").PivotCache.Refresh P(xAA  P(ar to oX]]]]]](]@]X]p P(ith di %!!!' ksSB2 % !J' reates !!iOffset=$I$3& !$B@ec= iOffset = Evaluate(ActiveSheet.Names("iOffset").RefersTo)blesC28$:!JC29$:!J ' 0 ! !ptNumRowsMax=ptNumRowsAll-iOffset& !$B@IDle ActiveWorkbook.Names.Add Name:=ActiveSheet.Name & "!ptNumRows", RefersTo:="=COUNTA(OFFSET(ptFirstDataCell,ptNumRowsAll-iOffset,-1,65500,1))"mo ! !ptNumRows =ptNumRowsMax& !$B@ copied from workbook ! !ptNumRowsAll-=COUNTA(OFFSET(ptFirstDataCell,1,-1,65500,1))& !$B@ ! !ptNumRowsMax=ptNumRowsAll-iOffset& !$B@ ! !ptNumRows =ptNumRowsMax& !$B@  !!ptField0CategoryJ=OFFSET(ptFirstDataCell,1+ptNumRowsAll-ptNumRows-iOffset,-1,ptNumRows-1,1)& !$B@ ptNumRows %$!&$P'f ptNumRowsMax %$!&$P'p ptNumFieEt<9*~E`s_yFor Dd= 1 To fGmy`F"q mat(S, "00"w/ eiZ+R1C11Yor"Dp ,0,! /GED1DNextd5?Selph Case~20 '2 J10Year oflIf€>a(365 / `@) ThenV=_Q) + 1o re#28 MonthO O nt(31? ? N/ t$ 93 pWeek  7 >  4 '5!Day n!(a  5 Hou,Q ,24alo,/OJ3; 'c|; V -eII>O};'; @ <= 30?u=i<=6 Eؑ5"Ibf '  fpow @no% 0׀ .Largenge. ? I'``usShapcWY, splaYbhs釱("SB!\aP.eQ Wi`O E .SmallChange = 1 LargediScro LgEnd 0With ActiveSheet.zrtObjects(1).PlotArea.Height vi SaveHR("N23").SelDapplication.eenU$pdngJTru?(PivotTables("ptECAM1+ Cache.@Refrese kSub $ CUteBars() Attribute.VB_DescripPH"Ma recorded 5/31/2010 bylliamK")ProcData/Invoke_Func/ \n 14 zDim maxValue As Douz intMin 8Lonq axdblInterval @= Abs(DnCL28@X"- 9Q$= 05"=G 7@ d(xlDown).Row Cɥ@ £Ơ6 }.Add5EBLeft + 20,*Top0.25, 40a@12.5 C'AB.JFB'kLi= I 'A B m(1 |/ g\ ~7LinkedCell!QiOff8set`Qa Display3DS0hadiHt&NaBmA"SB1 On!1on {Gp2aug7E25I777.7n5>_3h.$I$P*2I*1.ZoomR.C TextForfcDn"/)(cDE22:M248Font".EGAriBlackDBlF#A .HorizalAlignmenaxlRInd@Leve[Id`mulaR1C1SA_a#)G? =Cb,YearHR12(LMݰh_ J__x xl_HFWee +BIKOO@!!_VDay-)) .)FHou_!ãLT2I22" b_SCer!t!fcA throuxgh 3 4S 4S 4S"rU@@@484`8a4`84`Q a84`brU@@@~x !!B@ B1 ChartMatrix$D%:%HB@H ChartMatrix$DB@Cht  !(  ' kxkp < Call ChartMatrixCreation P(o MoveChartsToMatrixSheet]](]H P( ChartMatrix$DB@%$D* !B@ ChartMatrix ( p9r9qP A:A$( B:M$(1$(2:57$(A2:A57$:wsAl5(=COU b9  b9dq' < !D!$B@ <!b <! $ ChartMatrixAl  <!!$B@ !!B@ !ptN B1 ChartMatrix$D%:%HB@H ChartMatrix$DB@yCht  !(aCell,  '-p Offsetkk <!$B@ Call ChartMatrixCreation&$P P( ptNuo MoveChartsToMatrixSheet`]]]] ]8]P]h]] P(d ChartMatrix$DB@, !!' 8 ,0,(Too many charts! Excel may be unstable!Matrix Not CreatedA@KTd  KT'd 'd  'd *'d'kkkkx     j. Columns("A:A").ColumnWidth = 4f Da     '     'd  'Zo'k   %    %!9  %!9T9985d'n-For 3d columns of load profiles'b,For 3d columns of load profilesd'n-For 3d columns of load profiles = .HeightPercent = 100 'For color contour of load profilesH .DepthPercent = J3#xME(<><6 < . `33 <p% %` 0 ``335 < % @%` `hi``````n`b <%` 2 ```````n`b <%` `4  @ %P ` Ch, %(xx_P!$*\Rffff*1a506072cd "   ( 8@`h    8HPX `h &6 @ ` p   "     "    (0PXx   (8@H PXp &60 P ` px  "     "   ( 0  8 Hh  xJ     08 @PX`hp x   4$ 08H P  Xh .. .0 D` N 6 0 H ` h p x * 4 2 < `                0 8 H  P ` h p x             @ X p x           H( p   ,  " (08@ HPX *`       J p x       *  0P   * X >0 p   $   * @Xh... DH N  (08 *@ 4p 2 <  @X`hp x   .    0 8 H P`hpx              0 8@X Hp      , @ hx]X]x] P(@ ChartMatrix$DB@$D* !B@x ChartMatrix ( p9r9q@ A:A$( B:M$(1$(2:57$(A2:A57$:5( b9  b9dq' < !D <!b <! $ ChartMatrix  <!400 'For color contour of load profilesow0 .Axes(xlCategory).Delete 7!zB@Q'' H7!sing S09t ~9| 9q$ With .Axes(xlSeries)B@H. .MajorTickMark = xlOutside9 + .MinorTickMark = xlNone:B@5 .TickLabelPosition = xlNextToAxis End With 7!:!09t ~9| 9qH5p!9t ~9| 9qqq  %B@,%  %(! !( !9~999qx !(^ !!Arial9nt9q80 !!(9  %(  %(da !! !! E25 !! !( !! !(k !! !! > !! !( !! !(k0k( 9( k < !D  <!:B@ !d &!!AddSelectedChartsToMatrixSheetG B@j $: <9 h$A$1$:B@HP% Application.ScreenUpdating = TrueYearoChartMatrixCreation:]](]@]X]p]]]]]]# Dim objChartsSelected As Object9  P(Day P(NP ChartMatrix$DB@,9 A1$:B@H !!' p 8 (Too many charts! Excel may be unstable!Matrix Not CreatedA@d 'dh 'dH 'd( *'d'kkkk$ For iLooper = 1 To numCharts) Set chtObj(iLooper) = Nothing Next iLooper$ For iLooper = 1 To numChartsR If TypeName(Selection) = "DrawingObjects" And Selection.Count > 1 Then8 Set chtObj(iLooper) = Selection(iLooper) End If Next iLooper       '    ' '4 #With ActiveSheet.ChartObjects(iCht) $6  $6   %!9  %!999P 5d'n-For 3d columns of load profiles'b,For 3d columns of load profilesd'n-For 3d columns of load profiles= .HeightPercent = 100 'For color contour of load profilesH .DepthPercent = 400 'For color contour of load profiles 7B@ 7!zB@ H7!09t ~9| 9q $ With .Axes(xlSeries). .MajorTickMark = xlOutside+ .MinorTickMark = xlNone5 .TickLabelPosition = xlNextToAxis End With 7!09t ~9| 9q 5p!9t ~9| 9qX qP H q@ k8 'ActiveSheet.ChartObjects(iCht).Activate P(N $6 B@,  %( !( !9~999qx !(^ !!Arial99q80 !!(  %(  %( k < !D  <! !d &!!AddSelectedChartsToMatrixSheetG B@j  < '8 $A$1$:B@H P(N% Application.ScreenUpdating = TrueoReorderChartMatrixAttribute VB_Name = "modChartMaces" Option Explicit Sub Mov"eTsToZxS@heet()@ Dim WS As Works 8 0ChtObjC ecZiOffsetInteger)UApa.ScreenUpd ngFals e)Orror ResuNexas("?_").Delet CGoTo 0]ActiveA book.ys.Add before:=.1w$.;XWith 0ind ow9!.DisplayGridlinesv Heading0End /5Column@A:A#>Wid@ = F1D; B:M 32'Row1@Height'19I2:57  36CB=Range("A2:AA CB5Font.S4iz1 HorizalAl@ignmenx ʥ %&s . Area.CopNyHZ).6B ?Cv(d', 0)|.Siz P 56L?MsgBox "Too manyD c!s! @cel0y unstaР!", , "Not !edf,EBD- < = 4# A{25Kq 5ϑ?Q}30q2ؼ=42?rw7; Uq8F1SId5.1c>@ 6'uC2¦SA?D"Ӵ iRow = 1 + Int((iColmax -HiLooper) / `() 2umjn2(f)0 Modr pElseJF#n End If  If iMatrixThen gWith ActiveSheet.ChartObjectsh}.Lefts- olQU)ǂ;Top3H$],5Tahoma3$(Select the range of cells with your data. You should select the full range (both rows and columns), including the headers (Point Names), and all the records (time stamps) you want to include. The Point Names will be assumed to be in the first row of the selected range. 5Tahoma3(OKho OuTahoma3 (2DLabel1t107).Wi&dY72HeighL136AOn Error Resume NextHEPercenB00 'BF3d cE of load profilesADepthG5{?'8'A.;=contou^r(=F.A43A .Axes(xlCategory) letpr-Value).MajorGridlinesGSeries).Bor.dQ|E.@horIndex48EW^xlHair<LStylep!5inuouR .!f#.TickMarkOutsidx6?.Minor Non  .LabelPositio xlToAx~i'*'$PG 6 G.G .G, Walls_d 15KaQ9Ot/2KO6iGoTo 0k 8o|l|.pO D%R&HasTitbBFaߋ ttrR~0= "Ss PlotArea_"rm12P2LŒ.6?9 A .AutoScaleFY`"^ Q.Na@= "Arial"OBSiza 4 T?z7!*#url X(1!zrkerЗegroundtZO_ IN2OOd ?,DepLegend%>'/U*  u18P1 uæ S#U? >_ Q # Ԃ6ReorHderB()Dim iLooper As In tegerColumnRownumjs6RmaxHeightPercentDepthWSWorksheetobj ButtogObjCh8 ()+kӄ-yed0Falss}En@ableEvCs}D 8s("ActivatRange(<"AICj= i eSL.B/s`.CounQA Re:D1 To 'FIf > 56 ThenMsgBox "Too many cs! @ Excely be unst>!", , "A6 Not etd"EM ŠGS iLo0oper{PIfEN4 Each@ WS InıWorkbook.sheetsGF objButtonWS.H If .OnE = This& "!AdHdSe]ed–sToMatrixJS"en D}`t/! CbWS(iEmbC`htObjpCRange("$A`$1").)Application.EnableEventshTru'AScreenUpdIng 4Sub 'ReTc __SRP_28s__SRP_29h>@mod9lSpecialCharts&J__SRP_14n)(HiHiHi`Hi a(S (S ( Z (S rU@@@(8(`8a(`@(`F8(`brU@@@~xHi8 > D 2 @ F ptECAM1 %F%*!B@B  o(ptLoadDurationAJ  xptECAM1 %F+ If rngData.Cells.Count > 1 Then; .DataPivotField.Orientation = xlColumnFieldCAM1") ElseC .PivotFields("MonthYr").Orientation = xlColumnFieldC Call DeleteExtraPivotItems(.PivotFields("MonthYr"))  End If 5L !N(All)GBold ! !%H$:!(j qA1$:B@H<kNot rngdata Is Nothing. P(2 o CreateLPbyDay]]]]]W Dim strCurrentSheet As String 'Public strCurrentSheet as String in mod9KoranCharts]]( P( P!T' V P(Tpt1$dAfk0 !'JData$DB@, P(  N B@k .C6Data$D%: C6Data$D%:%Data$D%:.  $ !! CSelect just the headers for the points you want, not multiple rows.'8heetError in Point Selection': 8 :A@ N B@type o iAd !! e ch.xkp !X! and*The Load Duration Chart one or two points.'8olumns 8 <5The chart will use the first two points you selected.'8oper.2Too Many Points Selected for a Load Duration Chart':Plant, 8 :A@ %X %X$:.kPkHk@ P( the c $d DB@ment:  (r ea p(r a cold $D(b $DB@, $D%B@ the c $D%F!tB@ en 4 Worksheets(WkshtName).Visible = xlVeryHidden8k0!B26 $D%:z=5HxME0 P<:<><< xi2i@  H `  J @`hi %`l`n`8`:  %`L  T `HH` <% % %````` %  %@: (%@x_P!$*\Rffff*1U506072cc?" BP "X` x 2 B ( J@ J  N Xh p    "  ^hp  x          (  0X@( L  0 @ P`x2J:0p(          0 @ ` :   `            @ P X  `  p    (    (   >@     8      "  H  P  h       @      8 X       & &0 X  h  x     ,  ,   * *0 $`  > N 68 Rp < " R0 $   "  8H 6 @ B @ 0X &   "  0 8 @ 8H 0 .  2 .  P h  6 h <@ F \ ( H ` p  2    0 8 @ X` hp ,   (j(.@jf    0 "P X`hpx          .0 `x     ( H`:p6, F` <  0 @Pp   ,  " ptECAM1|pt1 %D%F!vB@x9', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F  9~99` C@9THq@ptECAM1 %F-Fo 5f !$Status  of ! G  (j  'f kk .Heigh TempRng7( conto 1degBin7(H 1degBin1degBin7B@ 5degBin7(ilesow 5degBin5degBin7B@ Holiday7(!zB@ 7 .PivotFields("Occupancy").Orientation = xlPageField Daytype7( .Axes Weekday7( 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7( xlNonmmm yyyyMonthYr7(elPosi Month7( Year7( Date7(! Day7(Day7( 9 .PivotFields("Time").Orientation = xlRowField Time7( Time7( h:mm AM/PMTime7( '''' ***** There can be an issue with too many values of rngData to fit in the number of rows available, especially with Excel 20039 'L    L G  !J7(j L G  !J7(j L  'L   P B@!hWeekdayDaytype7%((SaturdayDaytype7%( # For Each cel In rngData!dHours7 Total Hours R C@t#,##0 Total Hours7(<  Next cel:B@ 7 If rngData.Cells.Count > 1 Then G .DataPivotField.Orientation = xlColumnField 0 On Error Resume Nextob K .PivotFields("Daytype").CurrentPage = "Weekday"DB@ 6 On Error GoTo ErrorHandler  Else K .PivotFields("Day").Orientation = xlColumnField  End IfqH''''''''''''''''''B:B$! ( C:C$! (AT A` Call BoldChartLines1 ActiveChart.ChartType = xlColumnClustered/ With ActiveSheet.PivotTables("ptECAM1"): .PivotFields("Time").Orientation = xlPageField< .PivotFields("MonthYr").Orientation = xlRowField End With) With ActiveChart.Axes(xlCategory) On Error Resume Next .MajorUnit = 1 .MinorUnit = 1 On Error GoTo 0 End With2 ActiveChart.ChartArea.Border.LineStyle = 0) Selection.Left = Range("g7").Left' Selection.Top = Range("g7").Top  , If rngData.Cells.Count <= 2 Then %F%!%X!J'l  7( l  7!!(d 7!( / If rngData.Cells.Count = 2 Then b strTitle2 = ActiveSheet.PivotTables(1).DataFields(2).LabelRange.Cells(1).Value 6 .SeriesCollection(2).AxisGroup = 2 ? .Axes(xlValue, xlSecondary).HasTitle = True U .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = strTitle2  End If  End If 7( %X!J'l l 7!!(d + .ChartArea.Border.LineStyle = 05! 5(5! 5( !X!G9j9P76(\qd J$DB@,k not rngdata is nothing%Start of end of sub CreateLoadProfile PB@X  P(T|  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@d`%Unknown Error in Create Load Profile.':8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k..  P(T P(o CreateLoadDuration@]]]]]](]@]X]p]] P( .< .AV  <!F 5t.q  >$RangeGA1$:B@Hj  $A1$:B@H  $a >%HB@H8k0 B@  ( !%! B@ ptNumFields <%$!&$P'   !B@' <! '!ptFieldName 00$'' <! '!ptField 00$'' <!'!ptField0Category'? ActiveChart.SeriesCollection(i).Name = "=" & seriesName=   %(=   %(=   %(6 ActiveChart.SeriesCollection(i).MarkerSize = 3 * ActiveChart.SeriesCollection(1).Delete V (  <! B@ !!( !(^ 0 %,(. p(b% Application.ScreenUpdating = True..<.o CreateScatterChartFromPT Attribute VB_Name = "mod9lSpecialCharts" Sub GroupPTfield(dblMinValue As Double$, ,ax,IntervalWidthd) ActiveSheet.PivotTaOs("ptECAM1"@).RowFzs(1).LabelRange.H St:=,0 End, Lby  p sCreateLoadDu@ration(UCall U"If Not rngData Ishing Then~Wi '.,.Cells.Count > 1/.C.Orient9@xlColumnElsekMonthYrk'ABUDeleteExtraItems(B$ W 7Aq IfTAFor Each pf In .Page Rpf.CurrC <> "(All)"S ›( G,@ Offset(0, 1)).FCCStylB8oldNext@$2A )"AS@IctE= 'ęd˙ 4SeG=Applicb@.ScreenUpT= Tru> '$_PbyDaya aWkshtKbSng$bDim celacstrTitle1ac2Msg7 BGdd>g 'Pic Jas"r#in Ko4rasrHe`adersa ,iǠu!gere41Fap# lng@f:c:t4I!ul9~alcManualbAB"Exist optO@ċNa l upFirstPTS (= ɾaEWorG@?U@ģUserm9bɷ.Show  ""@= 0C("C6"),.(xlToRight)l2 sect*(D!,h)yOrvd57H just the hD/fWpoints you want, npmultip0Qrows.Q#;Err6PP&l Py\1Box:, ,bC A~{ tOt"5; GoTo HandlC*} 2<wU 2 U b one wo & vbCrLf & "c wi(use$fD tR$se ed#Too M\y #[ *a9/ rt% &tr0&Q5p>!"8'2;/ ѭ&W"5oRh}d!^{) _SGK.Addw]`6veWindow.DisplayGridlines''SSOn1 Resu0+U .Visi@ #9me).[hǿ1ObjJ˳ s1s(x TϠΒ#2.Clea 6oaGxlVeryHiddiǡE1%Qbook.@q| Ce. _{#7b rDes:=(c5"B2r;:=', Defa isf:=xl D101j"PAGPd.a.HasAutoat?2@z/2o1x@.RowAxisLayout xlTabular On Error GoTo 0pEnd With & ActiveSheet.Pivotles("ptECAM1")`hF\Each pf In 3Fields (,If Right(pf.Name, 6) = "Status"` Then59iCount < 10(0OriDen,ion1xlHiddenV. Page['@+@= + f1If NxextG ā5 ("TempRng ")%[1degBinAutoSorDescending, "< !5;!!E!Holida ygB'cOccu0panchKBDa ytypecWeSumlr B).;#,##0<_ 5*1.6ls.> 1+ Y. -_aO&M&##Curr WtE($v Elsee~ z/DUOmχ RaK3@+B:BEntireC$LWidth 2(=VC:C_Y1Pc CreateIChartFromPT@<Вpndard6CaBoldLineV".RT$ [ClustereRQ//F,RDOKm!9SAxgory6a >>.MajorUn0V '@0.MinorUnit `= 1 \ On Error @GoTo 0JEnd With4jActive@Chart.Area.Border.LineStylexT>SeleAon.LefRange("g7")q3Top,  j Q @ If rngData.Cells.Count <= 2 Then strTitl e1?/Sheet.PivotTables(1).'FieldLabelV1 Value-.Axxl , xlPrimary`).HasBTbr Axi Bhacters.Tex[2 )@$Ei5 JRVTSSNAu&2fX2@cX.SeriesCol(NGro:u2 ? aMsgBox "C only ci from the rowhP s," & vbCrLf"qQcolumn.", , "P a va lid rv."#kf"Unknowin  $ "Make sure your 3B$ s!OK, n try agai 9ReviewECAM doc@/nt2 m  have@neC ! periznu "P0 #`sist-0 ou, check whe! obt ed fa newvy1*c2) *e%`&(0I= 0 ScreenUp0p3 A2a '9Dur  F-PT() DimtNaLAs Str WS PVFBBbookwmys~s RsXnumàCguTi_ymy pvgedcw!P=tYB?APRl XPT_r AsFA-Each 6 In WSٱ#cg = .TqgnC:Type! () <> ""w("A1c qS7^q,>  :^ ÏgDo Until |ll/1 .Offset(0, eLoo>pC1"7s.Add ܁ xlXYSt@nE9xtODEn 3sKey.D=`t{Ĉg3= jEku@|($"'(0"ptNu5RerfTToC(i uo c @.NewB3>@"'ww'!pt> mat(iw00"4 wB= Yױ, "00")  seriesXValues = "'" & WS.Name$"'!ptField0Category"z'ActiveCh art.SColle*on(i)=]s`I@B'D" '#f&Mark@erSize3@Next i  %1).DeleteHTyp.xlumnClustered Location Wh:=xlEAsO$bj@s, >:=ćegend.Fon58O %Area.AutoScaleA @Fals 2Sheet.Drawi$ng!s(te@=taBFromPT|HiHiHi@ a$h  S  Z S __SRP_15kwjUserForm10LoadDuration.UserForm9bLoadDurationData6modDataSummaries"gu 6rU@@@X` AqKKK8`@`P8`bVL]9PxME(SPSSS0{815A534A-C314-42EB-8A25-CA9490EB661D}{023B9424-2C59-4C35-8696-40C639C362F8}x X i0i( %X(%XX(`x_P!" (8 @HH 2  " p !d$:. N A@r|@8&Select cells from the row of headings.Not a valid range.A@., Application.Calculation = lngCalcSetting P(oX  G.jo\Attribute VB_Name = "UserForm9bLoadDurationData"D Basb0{815A534A-C314-42EB-8A25-CA9490EB661D}{023B9424-2C59-4C35-8696-40C639C362F8} dGlobalSpacAoFalse C$reblPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizaDP Sub OKRangeButton1_Click() On Error GoTo Bad Set rng_ (RefEdit1.Text!Unlچ 'ExitGP :MsgBox "Select cells from the row of headings.", , "Not a valid r7.q4- h@ 'App@?B.CalcuWc@7lngt M ScreenUpdng s8End4\B_Q@ueryCl@y(Can6 As Integer, ModeHUIfH= vbControlMenu Then :F%( rU@@@~xHiHipHihHge of a PivotTable]]]] ]8]P P( P!T' V P(TptECAM1 %F.v !!ptFirstDataCell$GAVj v !!!' !!ptFirstDataCell'   %:%H.z v !%B@ z B@ z A|  z A~ .v .z  P(T P(|  P(T P(.z .v c The active worksheet either does not contain a PivotTable or the PivotTable doesn't have any data. <'8 81This type of Data Summary is for PivotTable data.'8(No PivotTable data available for Summary'$ 8 $A@o`hCY27$:A| o8]@]` z %H.  (J$C? %H(Jffffff? %H(J? %H(Jx? %H(J? 6t> xME( PSPSSS<:<0<8<0{8CE7AE50-16CA-450F-8BA8-32A9AE3B2CD0}{ED990E71-B46B-4F1A-AD50-9C73250F9A66}`0bX b\ (`^  :  `  %`b  n `> `2`@  %(KeyC%b|`Mb~eDowbZ 0eWWWb^ lWWW0 `0Acti0  x_P!; ( "08@ H X*` 2J  @ P`P   : ` "hpx      (  0 @ X h]0]`]]]0]]] !!'b  ptECAM1 %F%*!B@d h+Set rngRowsData = Range("ptField0Category") %H  b %H  %X!H%$:.` mnFiel ` {Gz? P!R%f 'X ` Gz? P!R%f 'Z ' 1st Percentile value in data shown is <  X $'\ '99th Percentile value in data shown is <  Z $'^ \ h (P!N ^ j (PGDefault Width of Interval is < 5 l (P o ]x]] .!J X '> dX .!J'> P(k@ 0!J Z '2d  0!J'2k p !J'@ d p !J'@ t Ask P A@rtrCurr > 2 @ A<  in mooAttribute VB_Name = "UserForm10LoadDurat@ion" Bas0{8CE7AE50-16CA-450F-8BA8-32A9AE3B2CD0}{ED990E71-B46B-4F1A-ADAh9C73239A66} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDDim dblMin As DouIS ax 01 99 strValueSv-=( @+.End(xlUp)@kJpplic.Work"sLFunOon.Percent0ile(H1.0N1v799  ~ 1st  v!K Vd@shown is " & vbCrLf"  Left(B, 8` O 99th? ; 99# B@4.Capy5996"Default Wid@of `Inter 15`@9agaLIiOK_ZC9kg@" {inse~ax'eH If T`hBox1.@-" Then`2"4EA nd Ifc2=0! 7 /3(= ~5  U|nl@f+C all G!PTfee3,$ ' ja& O%H(J? %H(J? %H(J'1Z? %H(J? %H(J? %H(JZd;O? %H(J %H(Jp %H(J*The  %H(J two p %H(J5Th %H(J two p %H(Jer. %H(J for %H(Jant, %H  %H$:.="Percentile " & 100*RC[-1] (Maximum %H(Jment:Median %H(JMinimum  %H(J$D %H %H$:.="+" &ABS(RC[-1]) & "s" ( WoSymbol !(si %H %H$:.="-" &ABS(RC[-1]) & "s" (Symbol !(Average %H(JultVer Std Deviation %H(JLow to High Ratio %H(J "f)bxME(0:(R[-5]C+0.5*R[-10]C),ptField 00$,""))  %H( =IF(ISERROR(PERCENTILE(ptField 00$,RC[ ])),"",PERCENTILE(ptField 00$,RC[ ])) (  %H  %H$:.0.00 (. .o]@]X"Summarize Data" <'8 8]provides statistical information about selected data, using the raw data without aggregation. < <'8 8 "Summarize Data from PivotTable" <'8 84provides information about the data in a PivotTable. <'8 8kNote that "Summarize Data from PivotTable" uses only the data shown in the PivotTable, based on the type of <'8 8maggregation selected for the data, and hence will typically show different values than a summary based on the <'8 8full data set. < <'8 83The statistical information includes the following: < <'8 8Maximum <'8 8Percentile 97.7 <'8 895th Percentile 95 <'8 890th Percentile <'8 8Percentile 84.1 <'8 875th Percentile <'8 8Median (50th Percentile) <'8 825th Percentile <'8 8Percentile 15.9 <'8 810th Percentile <'8 85th Percentile <'8 8Percentile 2.3 <'8 8Minimum < <'8 8 Std Deviation < <'8 8+3 standard deviations <'8 8+2 standard deviations <'8 8+1 standard deviations <'8 8Average <'8 8-1 standard deviations <'8 8-2 standard deviations <'8 8-3 standard deviations < <'8 8ENo checks are made as to whether the data fits a normal distribution, <'8 89so both percentiles and standard deviations are provided.'8Information on Data Summaries'$ 8 $A@o!Attribute VB_Name = "modDataSummaries" Sub TestNumFields() Dim n As Integer  Set ptablActiveSheet.@PivotT.eXs(1A=/.|e.Count *Column  End  yj' This* creates$ d ss o@f the ? 4ina_ Rangea /xrngFirstHeaderCel @strMsgSng Title J9*+Application.SEenUpDingAmFalse l@ngCalctt AulO xlManu almOn Error GoToHandl"ptECAM1"If Not >Exist s( D& "!ptl}ll")en *l PlT_Bo s7BodyB Asîs7`= @\  B().Offset(0,+ 4DžB,Rows(0) pyCN.PasteSpeciG6$&#yLabexls(@ Form GP!!ug=:hP G0='BgX U+^# eTrue@MtZ$Y:@"cgot#./@ (/Ga_ works eiPr don@jconta wn't have any." & vbCrLf!`r"xtyp"AL*y f .`!~ c No(CavailA aVDBox c, ,!b .d]SZ$r"CY27")7ab()C=oeC1, -2 B.Valu1SDGpD0.977l2, 53R484O e57o6Z7281596 91`z0w1=023LW!0i1h2/'X|_V2[-og2;-  -@Sd: [2=ft761),;]P1FB .DvR1C1"=""Percenti"X100*RC[-1]PrJP1)@"MaximumtO@0edian1in4s #b1#'@ ?"+ABS() k""s"" @nt.BfSymbol  (&t22wX "-   41Avera|ge@ OGVIStd Devi2Low to High R1OOQ?54Wa4 3@.HorizqlAlignm 23(xlRtxIn"dLev= KtAE@5reS.AutoFi!QT` cA"H, Az#ȸfE9@ҴumFields As Integer) Dim rngFirstLabelRange |*iNum6fiColOffset < S t=HeaderCel.>(1, -2:For y= 1 To< n#= p-1 -C t= x(I?8+ 1), T G,.]mul aR1C18"=IF(ISERROR(PERCENTILE(pt!" & at(*, "00") ",RC[s& "])),j",'"GKRG0,cAG9MAX7'2i *12*INO*h *V14i+SpTDEV+M)2)?19?G^AVERAG]]Amdt(16&i&qR[+3]C+3v*R[-2]C+dDZ7QE+81)4)(2ߖ>>-6(2Nʹ_o 'O1f])7o )2Unno ormonbn)-/4Aoa 8k U U Arrayy_"=EG !y* "<(p5]C-0.5 10 &, "2C))V/O/uN>D+OldD0^EH_'7<P??" Nextɟ 8u"PBf2R(20$v 䞡Pber1%at0.h= Nothing fEnd Sub ` DataSummaryInf$o( strMsgaStrTTitleyd = Pize@@vbC8rLfxprovides statistic0al iion about selected d , us the rawA2 witha ggregon>.1$Ho`""{ from PivotTable =@ By a a ` a8 ?  e0 a0onlyRsphownA ,p bastype ofwXfP!, a%hencell p q different valu tha s': g,'#fuet?&-IT#&"pclu( @follow0&: /$gj Maximum ZPer cPi 497.795th )5 0 084.17U5th Percentile" & vbCrLf strMsg =  & "Median (5j0 )l2* 15.9[1 -52.3,MinpimumStd Deviation'+3andard dMs5+2110 Averagݑj--11-K]iNo checks are made as to whether  data fit norm al di@ib uw,\gso bopndQ_B!provide d." {Title"Inf on D%Summaries@ BoxA, ,A E@SubA__SRP_1a"__SRP_1bpb2 modBoxPlotLP[Lg__SRP_10;^iHiHiHi aS S S  Z S  "a  SrU@@@8`8a`8`H`^A8`X `^AF8 `brU@@@~x Hi8HiHiA  z %H  z %H$:. A A A A A`A A1 %:B@H.z . Application.Calculate  P(T P(o(](]H]`]x]W Dim strCurrentSheet As String 'Public strCurrentSheet as String in mod9KoranCharts] P(%, lngCalcSetting = Application.Calculation1 Application.Calculation = xlCalculationManualpt1$dAfk !'JData$DB@, P(  hB@k C6Data$D%: C6Data$D%:%Data$D%:.  $ !! CSelect just the headers for the points you want, not multiple rows.'8Error in Point Selection': 8 :A@ hB@  !! .0k(k k P4OKRangeButton1ag   Microsoft Forms 2.0 FormEmbedded Object9q+,-./0VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm3InputDataRng Caption = " Input the Data Range" ClientHeight = 2400 ClientLeft = 45 ClientTop = 330 ClientWidth = 4335 StartUpPosition = 1 'CenterOwner TypeInfoVer = 8 End ( $d DB@  ( p(rd $D(b $DB@, $D%B@ $D%F!tB@  4 Worksheets(WkshtName).Visible = xlVeryHiddenk!B26 $D%:zptECAM1|pt1 %D%F!vB@x9', DefaultVersion:=xlPivotTableVersion10ptECAM1 %F9~998 C@ qptECAM1 %F 5 !$Status  ! G  (j  'kkx  TempRng7( 1degBin7( 1degBin1degBin7B@ 5degBin7(Aver 5degBin5degBin7B@ Holiday7((J 7 .PivotFields("Occupancy").Orientation = xlPageField% Daytype7(. Weekday7( B@( 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7(mmm yyyyMonthYr7(.Heigh Month7( Year7( Date7( Time7( h:mm AM/PMTime7(q $DB@,ptECAM1 %FCENTILWeekdayDaytype7%()SaturdayDaytype7%(00$`  Fi !J7Avg !J C@ 0.00AZ  K LAxME(0:h   8   @  "H  p  x            0  ,8  ,h     * $     40 <h V L  P X ` x     *  20 h p (x j *@Hjf`p x    " ` ((PX` "h , 2 8 8 @ Z` "  *8 P *`    2 ,   ( 8HPrX808H "` :h002 2X20$  "@ PH"((((@(h( 0 (  ( " HPX`hp VxV  ( 8 H X`hx  $ 028p    :P X`8h $,:  ` p x  6 : P ` h x 0 : ( 8 @ Ph 0p :    (@ 6H     4  0 8 P ,p :     8 $0!X!4`!,!4!,"0"H" "`"h"p" x"&"L"## 0#4@#Lx#### "$$0$H$P$ X$ h$ p$ $ $$ $ $ $ $$$$ $%(%0% 8% H% P% `% p%x% % % % %% %%%%%& " &(&0& 8&4H&L&&&&& '' 0' @' P' p' .'' ''' '4'L (p(((( (( ( ( ( ) 0() X) p) )))) ")))* *(*0*8*P*h*x*]0]`8] P(nvh, lngCalcSetting = Application.Calculation1 Application.Calculation = xlCalculationManual ptBoxPlotLPA AX P(z P!T' V P(Tvg !J7(ptFi 00$ !X! ptFi+Too many points for a Box Plot Load Profile':H3Box Plot Load Profiles can only use one data point.'8))," 8 <BThe chart will not be created. To create a Box Plot Load Profile,'8R( 8 <7start again but just select a single data point header.'8kq''''''''''''''''''B:B$! (eld C:C$! (R[+3]Cd@ J$DB@,k not rngdata is nothing#Start of end of sub CreateBoxPlotPT PB@XR[+2]C, Application.Calculation = lngCalcSetting(|  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@d!Unknown Error in CreateBoxPlotPT.': 8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'800 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8rr 8 :A@k..  P(Tivot P(ytype"o CreateBoxPlotPTZ This Sub creates data summaries of the DataFields in the active DataRange of a PivotTable" Dim rngFirstHeaderCel As Range] ]@]X Dim numFields As Integer]p& Application.ScreenUpdating = False, lngCalcSetting = Application.Calculation1 Application.Calculation = xlCalculationManualptECAM1 %F.v T If Not NameExists(ActiveSheet.Name & "!ptFirstDataCell") Then Call PT_RangeNames v !!!' !!ptFirstDataCell'AV   %:%H.z v !%B@ z B@   %:%H.z A A X .v , Application.Calculation = lngCalcSetting% Application.ScreenUpdating = True|   P(T P(.z .v c The active worksheet either does not contain a PivotTable or the PivotTable doesn't have any data. <'8 8)Error in setting up data for the BoxPlot.'8(No PivotTable data available for Summary'$ 8 $A@o BoxPlotData3Sub BoxPlotStatsHeaders(rngFirstHeaderCel As Range)Minimum z (Min to 5th Percentile z %H(5th to 25th Percentile z %H(25th to 50th Percentile z %H(50th to 75th Percentile z %H(75th to 95th Percentile z %H(95th Percentile to Max z %H(  z  z %H$:( o BoxPlotStatsHeadersJSub BoxPlotStatsFormulas(rngFirstHeaderCel As Range, numFields As Integer)]8=R[28]C z %H(=R[25]C-R[27]C z %H(=R[21]C-R[24]C z %H(=R[19]C-R[20]C z %H(=R[17]C-R[18]C z %H(=R[13]C-R[16]C z %H(=R[10]C-R[12]C z %H( z %H z %H$:. B@   %H$:B@.o BoxPlotStatsFormulasX]]]](]@= !!  z %H  z %H$:%' = !!  z %H  z %H$:%' !' B@ !'   9 C@  C@qh %B@HF %6(\l !(@ !( %+ 0 to minimum 5! (b 5!(bq %+minimum to 5th percentile 5! (b 5!(b9 5 9 5! 9b 5"( d$@5"(@333333?5"( 3 .ForeColor.Brightness = 0.400000006qq l={0} C@  .HasErrorBars = False% %! !(t333333? %! !!!"( q %+!5th percentile to 25th percentile5!  9b 5"( ?5"( X/ .ForeColor.Brightness = 0.400000006C@ q 5!(bq %+"25th percentile to 50th percentile5!  9b 5"( ffffff?5"( h) .ForeColor.Brightness = -0.250C@ q q %+"50th percentile to 75th percentile5!  9b 5"( ffffff?5"( ) .ForeColor.Brightness = -0.25XC@ qHq@ %+"75th percentile to 95th percentile5!  9b 5"( ?5"( / .ForeColor.Brightness = 0.400000006xC@ qh9 5 9 5! 9b. .Border.Color = RGB(0, 0, 100) 5"( d$@5"(@333333?5"( % %! !(t333333? %! !!!"( 3 .ForeColor.Brightness = 0.400000006qq l ={0} C@  .HasErrorBars = Falseqd$@ %! !!!"(@? %! !!!"( d$@ %! !!!"(@? %! !!!"(  %B@o BoxPlotChartX]] !B@= !! z !'= !! z %H  z %H$:!'  %(  %( !B@= !! z %H!'= !! z %H  z %H$:!'  %(  %(o BoxPlotMinMax  %( %92965!  9b 5"( 5"( C@ q`5! 9b 5"( 5"( q  5!(bq  %( %92965!  9b 5"( 5"( C@ q5! 9b 5"( 5"( @?5"(  q 5!(bqo BoxPlotMinMaxFormatH]] !B@= !! z %H!'= !! z %H  z %H$:!' % 9 9 9.92d$@5( 5! 5"( On Error Resume Next5"( ( .ForeColor.Brightness = -0.5H@9|q0q( !B@= !!# z %H!'= !!# z %H#  z %H$:!' % 9 9 9.92$@5( 5! 5"( On Error Resume Next?5"( ) .ForeColor.Brightness = -0.25On Error GoTo 0$@5"(@9|q`qXo BoxPlotMedianAvg %E1$:! 9E1$:! 9499q !%B@ !%B@ocAttribute VB_Name = "modBoxPlotLP" Dim rngFirstHeaderCel As Range>numFields.Integer Sub () < Application.ScreenHUpdngFXalsj''lngCalcSe8tti =ulIp2!.xlManual]3 l CreatecPT("pt i"iDataSummaryPivotTablZB?o+mja,_(SyDv(|.Offset(-1, 0),h6, ) HC0hartMinMaxC$U @FormatPedianAvg StandardCle@}p}Active@Sheet.B"A1").SelecK = Noth@ X@UDuˇI ΖTruEnd @8ʹWksht{Sng3uc ~cstrTitle1!yc2Msg7 % Current3g 'hPub Jas  in `@9Koran?s]B>A?@?Bw 1$ 8i@C just the hAs forpoints yo@u wantot multiple r15dz9Err4P  {\p[8, ,bCoeT"%1q!$L\iGoTo bH@elq-*y=309@[)@Fg+.Adp ?`6Window.DisplayGridlines'&EvOn ResuNex4u5 .Visi? mqme). I`Obj9s(1).D~tx(x ϗ2rD2.q`qb_oaGxlVeryHidd=+(%t \book.э| Cachex. _+ 7 1rDes𸒷:=#V"B2TO;Qh:= E CAM1"',` DefaKsa0H:=xl D10en1Withmt1WlumnGPd.HasAuto#?2`\/2o1m1%LA0La[t fab`rp "EQ!p E! pf In .2F"Jp(pf.a(, 6aJ"@tus"_\ iso< 10qOri(`x.l4 .Pae#>`EHo`liday$' Occupa nc" Daytype'B WeeBkaHour?M onthYOn Error Resume Ne xtiNumberFormat"mmm y"GoToHandler5AYea6PDat1RowDY-TimColumn'^DUh:VAM/PM(+End @With Worksheets(WtNamectiv*  AeScX Table@ptECAM1")K?EKa'iItemC dPosiČ1+ ("Satur#m 2TbO0 W Each cel In rng?a"Add!8 @.Value)Avg " & ,Aver@ ʸn).@0.00lk'u Ife.Cells.Count > 1 ThenOstrMsgTitleyToo many points fa Box Plot Load Profil>e% 2s can only usee dhatac .  & vbCrLf-B" cha`w ill nbe cre]d.  , st again but just selec:t@ s@( h`eaderwIf0y(a'#D4B:B REnptireCFWidth 25VC:C_Y1PpElsewECurrCYF 8 'p5isMh0H'Sof `sub C#&PT@ApplicR.CalculM#ՋlngSe ttR xit Sub1oh:3Inters*(A,4Hs) Is Nota Or6a61s50"S"/Cl5rom thep row" s^,qDg'aQcd.8", FP0'va@ rangee&[=Unkno~wE`,*Dim`Firstn 8As B1pt@q 3Str0gSpvnumsABg%DY4 Fa"VBJUO&6QpxlManual&߸rڸ&#=o?gl" 4aIEx4s(Y& "8!pt") P l PT_s= b .BodyDoW "/ltED8'+2 ().Offset(-16, q + 43) e".d(0) py! M rngFirstHeaderCel.PasteSpecial Set = ActiveSheet.Range(strName).Offset(-15, numFields + 3) Call BoxPlotStatssFormula On Error GoTo 0A ptablNothing 'Applic@ation.{c&lngttScreenHUpdngTrueCExit Sub? HHandler:'; R:Uʆx%O Msc"@ The aBr workss either does not contain a PivotT@WWithCh-B.;StylO2i iz 3 0.{.Fill ( Visib&ms`oTrueehor.ObjkThemhAccent1TintAndS(hadQ0 Solid ]d 22 O-^,. [FalsD[ 48?(8@,???J@3JccolorccOn Error Resume` Nextl^sBrightnessr-0.25 GoTo n T'MedianAvgDim sNa#As 2Sng#Vaa yl.Newch =" &dSheet.!& "!rngFirstHe@RrCel.Offset(22, 0).Addr4 ^ Range( 1), numFields)L"a9E "=(5bfc++-414Border.7.RGB(0, 100X =2{oB3m /am'_9_9or4s @H P       0 8 P 6X         @ (`  (  > 0 P 8p   "    0  H ` 0   , ,  @  "H  p         (  0  @  P  h  6     ( j  . @ j fp        $ "H P X p  x             & ( ,0 `       & 0HP"X`     .   ( H X `p x .     0 8 0P   "     ( 0 H`hp x     68P hpx ]X ptScheduleA & Application.ScreenUpdating = False %B@H' ptECAM1 %FMonthYr7L!! G' j MonthYr7L%!JMonthYr7L(N Day7( Date7(Date7A% 5L !N(All)GBold ! ( Day7( qP''''''''''''''''''B:B$! (M/PM C:C$! ($DA\ !!(F  7(5!(5! 5(5! 5(ytqx0Start of end of sub CreateLoadProfileForSchedule PB@X!J  P(T |  $ !! +Select only cells from the row of headings, <not the column.Not a valid range.A@ can odp&Unknown Error in Schedule Check Chart.':t 8Make sure your data and selection is OK, then try again.'8 8 <UReview the ECAM documentation and make sure you have done things per the instruction.'8'''''' 8 <RIf you have persistent trouble, check where you obtained ECAM for a newer version.'8 8 :A@k..  P(Teate P(o CreateLoadProfileForSchedulen.Ca] %B@,  C@ C@ H7le9L9J 9$q8 7 9$ .TickMarkSpacing = 4! .TickLabelSpacing = 8ptField0Category$: P!R%' ata   `9Lag  `9JheqX 7d 999q(9 C@' Call ScheduleChartColorsis* .SetElement (msoElementLegendNone)qo !%! .5!  P 9b 5"( ype"P?5"( ' .ForeColor.Brightness = 0.6?9 DC@ qq !%! erCel 5!   9b 5"(  ?5"( ' .ForeColor.Brightness = 0.1 F89 C@ q q !%! 1 5! n.Ca 9b 5"( atio?5"( 1 ) .ForeColor.Brightness = -0.25x9 C@ q`qXoPp h9bZ9f9h9j9n9`5 .Width = 360 9h9E1$:!9%E1$:!9q 9b59^9qp  H7 9 9 5!(9Nq0 9 7B@ 7!B@n.Sc5!5!  5(B - .Legend.Width & 7!(z 76(ctive  q o x sAttribute VB_Name = "modScheduleChart" Sub L()  Dim iPage As Integer2 Call CreateLoadProfileFor("pt ""T 'WApplication.ScreenHUpdngF@alse aActiveSheet.Objects(1).Sel '= 2AWith ;PivotTablesIECAM1HFIf .t FieldMonthYr").Items.Count < 2 Then= 19#!Current=4(f).Valu,G.bPDayNOri,xlaI te ColumnGwD@YteExtraB~(E"* Each pfI "(All)"YRange( LabelB ,@..Offset(0, 10)).F@nStylBBold@Next@9End K¨CTypxlSuprfacr HasAxis(xlBz)@pTrA|&_EB Axes @porINoLinesBetwl2C"ou 4ma?s g0"A`fnSet r@ngDataNothing|(2'**strWkshtB SngPacel!cTitle1ac2Msg7 d\bg 'Pub Jas  in 9Koran4< `/Headersa /OccupancyBL#߱lng`Rzc@>t<= !ul" xlManualh ,@+@y On Error GoToCHandlk@B.E mts( fFnB QBWor@Ks.A|ddk)c Window.DisplayGridls!EBiResu '.Visip07iOR5).}?sAy >zcevDz}-2.Cleae 5 VeryHiddevnO$rJ$QJIf%* book.ARr Cqe. _ SN7 Desp6Y5:=(*,.("B26"),<q+:= ', Defa0ultVD:=ЄD10Y___EPGLd/Q.qqutoi?2Row/2i_2xtk.wLayout xl`Kr`""&("À'$a"P1M`Right, 6AM"Stat\us#_i10P16`4ger = +89 {TempRng31deg8Bin("Ap.Sor(>cendu, ? ot ("5Oon2_3`$OCOGHollid5Pp ?23}("=tж("Week? =?  ; H#?4?4MMd1tFields("MonthYr").NumberFormat = "mmm y!" On Error GoToHandler N.Pivo Orien@tationcx`lPage 1 Then aMsgBox "Sel only cells f@H the r4ow"h s,wvbCrLfxP"notcf.", | a valid range.$qEBF"Unkno"win - Check4% V"Make sure your data sA.is OK,An try again & Review doc  m  hav2ene@1 perinupeog "`0 #`sist}0 dou@g, 0)whe obt (ed fa newUsIc"C"2If!)*u% &?(00 ScreenUp0pTru8 2a 'O:: q$HKdz`Dim iap@mps As6gG I"Obj 3s|(1SQ1.!@Elem(msoPrimaryTGrid1YsMajorD  SesAxisa0" %[xA.TickMarkSpac=VLabel/0. xlNonR1#Q d1od6Ru 4h&, 8 F=(vFunGsKey'As.FillVisic GCTUq.Aor.Mmm$h"A|ccLA͎WTintAndShЊ0.459BrnessX6 ɽ&T`sppare.SoOӨ3E2)TOAl .Visible = msoTrue |ForeColor.ObjectpThem dAccent1 On Error Resume NextTintAndShadi0.@' Brightness{)jGoTo 0 e.Transparency0 Solid End With ActiveChart.@LegendEntries(3b)Key+.bmat.Fil@W#u `-0.4 b` 25{` ?adcSubP  CSS@cheduld()\jb.Dep`thPer36ȋ.Elevation@9  QCategory).Q)s.O4nmxlUpwarGroups(1). 3Dah(Br*!DHiHiHip aS  Z S S S^rU@@@8`@a`P8`8`a8`bvL} nFormHelpBUserFormShowHelp"nmodHelp__SRP_24ngEnergyReport Cha@Infa=w P@P@R Sub User_Initialize()I$ Hecd bee the  is s@hown @ @RowECHV= 7ACom boBoxs.AddItem "BRT 1:'mmary of` Elec7@kyq+age@12B:sract Load Profil3: Aver Dailys4: Bi(lliiP@od Demand25: Time-of-`6 (TOlU)*6qaJu.m"I37 R M 'p4ListIndexU0CM+l= 1EUpdTS EndVjWFVytxbqcbCall GetText(cytA~, `] s]h bC'Ui -eMe .s=.v& " (" & j]f)3With Label/#!,H 'f.C ells( , 2 "AutoS~1ĮFWid = 295H 3Fr׀1.ScrolA` $:*HeightG.d+ D Ifk$`C ThenxeviousButton.EnA`@s H/ NF  O`rror Resu$@p=SetFocus P1]k+_Clk]w]^changed j*= [.0+;  g   m<> 1r" !*< V;YG-If t 7? ;  l. |( L3  } T vExit. G  UnlAvMq0([Funx`sts(sht)уBool|eaX!o5xWQ01 =P isabook.Gc#Err0"# @<7{RQe   8xME(SPSSS0{9CB78ECA-EA23-4755-9FA7-ECAA9B56BF1E}{0BDEA894-9F6B-4FD6-BF93-A6FAE62580AC} lX (  :==@ 8%p@%Xh@xx_P!G "  "  " ( 0 @ P ` p            0 @ P ` p            0 @ P ` p             0 @ P `  p  opXo`P tB@  t(J * B@ ftnRyxME( PSPSSS<><0<8<0{B0404FC7-965A-4C1C-9BF3-499E799F40AA}{29C03B05-C9D1-42F9-A8D2-DB98306148CC}8`b H %H :`H  0`       8  ,d I" i  $ @ % xHable%2)27%b !" 0P08PHx_P!X  $8 *@ .p* " * 40P2,04:P &  "   (2@x. (( H&Px " . " 4 0@HP "X 0`  " 0  B  (0 Hhxx]Public CurrentTopic As Integer]$CUSTOMIZE THE FOLLOWING STATEMENT TO (CHANGE THE CAPTION DISPLAYED ON THE FORM]EnergyReport Chart InformationjP$ Executed before the form is shown]' %CHART 1: Summary of Electricity Usage B@ !CHART 2: Interactive Load Profile B@ #CHART 3: Average Daily Load Profile B@ CHART 4: Billing Period Demand B@ !CHART 5: Time-of-Use (TOU) Demand B@ &CHART 6: Time-of-Use (TOU) Consumption B@ ,CHART 7: Time-of-Use (TOU) Consumption Ratio B@  ComboBoxTopics.ListIndex = 0ee CurrentTopic = 1a PivoA@ o]   A . Updates the help topic   (zis for  (   of  ) (Pilable   9P HelpSheet.Cells(CurrentTopic, 2)279 '99 q0 ( `  ! ( .  G  ( cG  ( j  G  ( cG  ( j  ! G  B@ cG  B@ jzo0( Executed when the ComboBox is changedDe !z ' votTabA@ o . Executed when the PreviousButton is clicked     ' A@ ko* Executed when the NextButton is clicked     ' A@ k@o88* Executed when the ExitButton is clicked A@ro]( " &%D.$  lG'dcG'djisAttribute VB_Name = "FormHelp"  Bas|0{B0404FC7-965A-4C1C-9BF3-499E799F40AA}{29C03B05-C9D1-42F9-A8D2-DB98306148CC} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD Option 6licit Dim TopicCount As Integer@ 'Pub Current Shee`Works8'CUSTOMIZE THE FOLLOWING STATEMENT TO2CHANGCAPTION DISPL`AYED RM Constf ACa2,S @ * (,  t(J . B@ . (,  t(J 0 B@ 0 (,  t(J 2 B@ T 2 (,  t(J 4 B@ %H 4 (,  t(J p B@ p (,  t(JA1 0B@ H 0(, . t(Jplic 6 B@ ulate 6 (, t(J 8 B@ 8 (, H t(Jx ~B@ ~(,  t(J B@ (,  t(J B@ (,  t(J B@ (,  t(J : B@ : (,  MultiPage1.Value = 0 t(J < B@ < (J tB@ t(J > B@ > (J tB@ t(Jho`XFAttribute VB_Name = "UserFormShowHelp"  Bas0{9CB78ECA-EA23-4755-9FA7-$A9B56BF1E}{0BDEA89466B-4FD6-BF93-A6FAE62@580AC} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD P Sub MultiPage1_Change()End2_Initializ.On Error ResuNext  F.SetFocusVal*uAV0CTBo x6 CurL\in 144.277388499533622_ @h8J 10s #8= 1KK11 1_@1KB1`/10 { K01T_ 705&5&&l:4|16 '0!&5L &EEEBF8 .B&GoT o \ƼxME(6 <<< B ` @ %``Xx_P!$*\Rffff*1^506072cd" ( & B@o`XOAttribute VB_Name = "modHelp" Sub Show8 () Us@erForm\. End \ rU@@@@~x%$Hi a$S4rU@@@$8$`b55#__SRP_25{\Sheet10z_VBA_PROJECT[FdirxME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88x_P!xAttribute VB_Name = "Sheet10" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2rU@@@~~~;.MetricsOccupancyMonthYr0l506072cb.MetricsOccupancyMonthYrls(b*MetricsDaytypeMonthYr0m506072cb*MetricsDaytypeMonthYr @Zmod1DataSelect1N506072ccmod1DataSelectSXP!modzMenu1M506072cc6modzMenupUserForm2Scheds0p506072cbiUserForm2Scheds;mod6Schedules1P506072ccmod6Schedulesu!*UserForm3InputDataRng0r506072cb*UserForm3InputDataRng4,UserForm4TimeStampCols0s506072cb,UserForm4TimeStampColsmod2AddFields1[506072cdmod2AddFieldsU-$UserForm5TempAvail0u506072cb$UserForm5TempAvail7"UserForm6TempCols0v506072cb%"UserForm6TempColsP"UserForm7BldgInfo0w506072cb+"UserForm7BldgInfoi0 mod3DefinePoints1O506072cc2 mod3DefinePointsHmod9KoranCharts1R506072ccHmod9KoranChartsXx`l!mod8Metrics1W506072cdmod8MetricsHxT/&mod4NormalizeFields1c50607d64H&mod4NormalizeFieldsZmodzUtilities1d50607d64modzUtilitiesUserForm8LPdata2C50608480iUserForm8LPdataX modzKoran1T506072ccmodzKoranmodMetricsTable1e50607d64modMetricsTableh}HmodzFileSize1f50607d64modzFileSize mod7DatesPrePost1Q506072cc  mod7DatesPrePost 8 mod5StatusPoints1g50607d64 mod5StatusPoints8(@(UserForm1DefineEquip18506072cb7(UserForm1DefineEquipvP#(UserForm9ScatterData19506072cb;(UserForm9ScatterData6hmod9zCreateList1Z506072cd`mod9zCreateList;a  *\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{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{E6A1F70F-5150-4F4B-A5EB-F1408591C57D}#2.0#0#C:\Users\BILLKO~1\AppData\Local\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M 4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE AutomationA6Energy Charting and Metricsx_P!283?(405-=>6 ,#'&+*%:<.)7$;AThisWorkbook1L506072cc'ThisWorkbookcpMetricsPerSF0U506072cb5MetricsPerSFHV(Components_tonsWCalc0V506072cb[(Components_tonsWCalc0;Subsystems0W506072cb]SubsystemsIH;SystemDiagram1K506072cc_SystemDiagram`aHolidayList0Y506072cbiHolidayListx; Bldg10Z506072cbk Bldg1;MenuSheet0[506072cbmMenuSheetewComponents0]506072cboComponentsZ;"Components_kWCalc0^506072cbq"Components_kWCalc;.MetricsDaytypeOccupancy0_506072cbs.MetricsDaytypeOccupancyb&ComponentsNormalize0`506072cbu&ComponentsNormalize/E; Lists0a506072cbw Lists' ;$ptUpdateForCharts32D5060848dy$ptUpdateForCharts3R8  Sheet40c506072cb Sheet4DP; Sheet30d506072cb Sheet31h; Sheet20e506072cb Sheet25; Sheet10f506072cb Sheet1; Sheet90g506072cb Sheet9l; Sheet80h506072cb Sheet8L}; Sheet70i506072cb Sheet7; Sheet60j506072cb Sheet6; Sheet50k506072cb Sheet54*UserForm3zInputTblRng1;506072cbo*UserForm3zInputTblRng_ modAboutECAM1_506072cdmodAboutECAM?Z modzzPivotCache1]506072cdmodzzPivotCache+xmodReTuning1Y506072cdmodReTuningr1,mod9zHistoryScrollBars1h50607d64 ,mod9zHistoryScrollBars+_b modChartMatrices1a506072cd, modChartMatrices#39$mod9lSpecialCharts1U506072cc: $mod9lSpecialChartsH(C5,UserForm10LoadDuration1B506072cbQ ,UserForm10LoadDuration@ 4UserForm9bLoadDurationData1C506072cbO 4UserForm9bLoadDurationData9PX modDataSummaries1X506072cdr modDataSummariesbp)"modBoxPlotLP1S506072cc modBoxPlotLPLAK modScheduleChart1V506072cc modScheduleChart&FormHelp1G506072cb FormHelpyX UserFormShowHelp1H506072cb' UserFormShowHelpn modHelp1^506072cd@ modHelp Sheet101J506072cbE Sheet105;  X88( pPh@xp@`0hx(0NjOQeоpppZN^wZͮ}Ez^4!c{C FũNIAfB|docf/aРO\^9$|RHfypZREMaQe .:Hl(٨Rw؄uFDֻIK2ٵ#r"!FNrrӔ[`I hlKKgA޾huFHB kr7 AElԜ9x2O]>MOpQ4{.~ TH漢|~?ޫNuG4}T~]JiӛBo0 LJE:]l1l?Gu50$/!x_N3rA}MqLYT5IfhC s䩙AOJYQnK ~ԷDp:djJ xlDescending> xlRowFieldr PivotItems Position AddDataFieldY xlAverage /DataPivotField xlColumnFieldW LabelRangeNmySeries)Series]strFirstDataCellNamev strXValues  seriesNameg iDateTime Subtotals+ RowAxisLayout xlTabularRowH DataBodyRange ActiveChart  DataFields~xlValue@ UserForm9ScatterDataȠ()CreateScatterChartFromPT@ SelectionZ()FormatScatterChartStandardё($Chart3dColoredDaytypes($ConvertChartTo3D($ColorByDayTypeέxlSeriesFTickLabelSpacingTickMarkSpacingReversePlotOrderTMinimumScaleIsAutoAMaximumScaleIsAuto MinorUnitIsAutok xl3DColumn($Format3D_stacks?($NoLinesBetweenContoursGapWidth AutoScaleFont AutoScaling DepthPercentGapDepth Elevation, PerspectiveRotationeRightAngleAxesLX HeightPercentWallsJInterior; ColorIndexFloor HasAxis5MajorGridlinesWWeight1 xlHairline4TickLabelPosition~xlLowyLegEntry LegendEntry ChtHasLegend_ ChtPlotWidthP ChtPlotHeightyChtDepthPercent/ ChtHeightPercent LegFontSize8myChtJjxlNoneDaytypeWeekdayvbMonday100o ($ContourChartJ xlSurface($SurfaceChartColorsW xlHorizontalxlTickLabelPositionHigh|GxlHigh8 TextFrame2' TextRange Has3DShadingr($MatrixSelectedChartsjubtnz FindControl mID] Recursive StateExecuteY($AddMatrixSheet($AddSelectedChartsToMatrixSheet{Qh$ChartMatrixCreation($MatrixAllCharts chtM~ChtObjwDisplayHeadings/~ RowHeightObj objSelection|newHourC newMinute newsecond**HourќNow%MinuteamSecondswaitTime TimeSerialWaitiLoopereiColumniRowq numChartsiColmaxh objButtoniMatrix xlContinuous[ ChartTitle_MarkerForegroundColorIndexxlLegendPositionBottom,Buttons]($MatrixSelectedChartsInfo mod8Metrics80 PivotCachesJ SourceType xlDatabasem SourceDataCreateMxlPivotTableVersion12uDefaultVersion^  (%AddPageFieldsE(%ptPageFieldsGeneral) strStatusMsg (%PTformatsiDataLabelRange TableRange1yd ColumnRange HorizontalAlignmentS@BordersC"xlLineStyleNone?o(%MetricsDaytypeOccupancySFz(%PerSFmetricsRngData (%MetricsPivots?I DisplayAlerts (*MetricsTable(*ChartMetricsSF(%MetricsDaytypeOccupancyR2z(%MetricsDaytypeMonthYr2ο(%MetricsOccupancyMonthYr2nPivots#!strWS:bstrMetricField1'strMetricField2'rngPTiPTstrMetricFieldsGrandTotalName7o mod4NormalizeFields (&ReplaceNamescel2cZEvaluateTLookInPxlValuesoLookatOxlWhole(&TestIt2H (&CanCalcTons ptGPMevap/.ptT1evap"+ptT2evap/ptGPMsecqptT1secLptT2secw ('PointExistscErroPointTonsExistsstrChlr_ChW_TempInstrChlr_ChW_TempOut;strPmp_ChW_Evap_gpm strChW_TempIn`strChW_TempOutIstrPmp_ChW_Sec_gpmrngLastPtHeader}rngTonsD3iColgpmJ iColTempInz iColTempOut^iCoVBFrame<UserForm4TimeStampCols.::folTonsCunPmp_ChW_Evap_gpmnChlr_ChW_TempInnChlr_ChW_TempOutDnPmp_ChW_Sec_gpms nChW_TempIn= nChW_TempOut;*strFindiXBoldcelTons rngMeasuresrngCdataG rngCnormdataIiCells celHeaderz celHeaderNormxiLastUnderscoreG^ iMeasureLtrst (4iEquipIDlen strEquipNamep strEquipIDk strHeaderTonsN strHeaderCFM icelOffseticelTonsOffset5u iRowsDatabInStrRevĈ OperationyxlDividePicelNormOffsetcelCFMRU (&NormalizeBAKG celNormB modzUtilities5myNameNmh^UCase5 ('TestNameExistsKstrNameZmyBool ('NameExistsShtj_snamedxoPtNameMatchR ('IsoWeekNumberiInDateD[ DateSerialUYear6nExcel8CompatibilityMode modzKorann7chtName seriesValuesX seriesXValues numFields׉i`myRange-pvtTable ActiveCellCharts NewSeriesValuesLocation-Where֍xlLocationAsObjectstrMyStrB iDateTimeEndiDateTimeStartҼ xlXYScatter)FieldNumگrowMax;JptRows myFirstCellviMaxPointsInSeriesyxlThinw xlAutomatic@Fill, ForeColor MajorTickMarkwxlUpward AxisBetweenCategoriesaPoints MinorTickMark xlNextToAxis>MarkerBackgroundColorIndex MarkerStyle xlDiamond MarkerSize&~()BoldChartLinesBAK2)myIndexxlMediummyRngRWS2]AddNameMonthArrayhAddCalendarSheet#LoopChartBuild ()SetScales==FormatCalendarl GreyGridlinesZ BuildChartiCol_! rngPlotLocch\xlInsideJ CategoryType Background. xlTransparentO xScaleMax GreyScalelines\xlCenterVerticalAlignmentʡColHrngChtrngDateintWkDayintDay0intWeekK intWkDay1~yDayChrK~xlLeft9 AddIndent2W IndentLevelLoopChartUpdate iChart PageSetup LeftMargin]InchesToPointsI RightMargin[ TopMargini BottomMarginu HeaderMargin8 FooterMargin PrintAreaPCenterHorizontally xlLandscape&DisplayAutomaticPageBreaksX[()CopySheetAndUpdateChartSourceWS1\WS1ChtA&WS2ChtvXValuesXVal1j IsNumeric$* modMetricsTable] (*TestItTable strWSnameviCountMetricField1\iCountMetricField2\iItem8iOffsetN rngMetric1u rngMetric2uxlSheetVeryHiddenAutoFill_ xlFillDefault]j(*MetricsTableFormats(*SelectionFiltersq(*ListPageFieldsI(*MetricsTableDataValRH rngMetric3uxlToLeftWY xlEdgeLeftL xlEdgeToph xlEdgeBottom xlEdgeRight%vxlColumnStackedmp SetSourceDataaSourceGPlotBy$xlRowsxlLegendPositionLeftxlInsideVerticaljMiPitem,iPfield2xlPasteSpecialOperationAddSortKey1OOrder1oHeaderMxlNo Validation xlValidateListĤ AlertStyle7xlValidAlertStopOperatork xlBetweenkFormula1 modzFileSizet(+DeleteDataSheet.ResponsevbYesNovbYesa? mod7DatesPrePost˴(,CreatePrePostDatesdtPreZdtPost_Q strPromptPreH strPromptPostxstrdtPreK strdtPost~InputBox Refresh mod5StatusPointsrngPoint| rngPointscelFound strCelValueG rngStatusrngStatusHeader5QrngMeasureHeader* rngMeasureP strHeader dblMaxValue# dblOnvalue dblPctForOn  iLenEndPtName<UserForm_Initialize5c SpinButton18ListBox1ListBox2externalwListBox3ListBox4ListBox2_Change ListBox3_Changen  intComponentNextPtButton1_ClickBAKHSpinButton1_changeNextPtButton1_Clickq5strLeftstrRighttstrDoneButton1_ClickCancelButton1_ClickTHelpButton1_Clickw mod9zCreateList/(0CombineTableIntoList CurShtknumRows numColumns}numRegionColumns5H numColsDiff_ UserForm3zInputTblRngB numRowsMaxg EntireRow (0FillBlanksbKey2POrder2pxlYesNoBlanks~ SpecialCellsxlCellTypeBlanksx CutCopyMode modAboutECAM9 (2AboutECAM8@ modzzPivotCachec (3ChgPivotCache(3CheckPivotCachel CacheIndex CalculateFull|(3ShowCacheIndex# modReTuning (4iChartsMaxC iCountAHUs iCountChWsLW iCountHoWsYiCountZsrngChartsArray (4ReTuningCPw (4EquipSearch6 (4ReTuningAHU8< (4ReTuningAHUxyx (4ReTuningZone(4ReTuningZonesAllG(4EquipSearchAll strSystemiLooper2 iCountEquip(4iEquipIDnCharts0A rngCharts(4GetEquipCounts strEquip (4AddAxisLabelsyiMeasure6(4CreatePTforRetuningScatter (4LoopRetuningScattersD(4moveScatterCharts2columns[(4LoopRetuningCharts#X(4moveCharts2columns(4TestLoopRetuningCharts?FiChtObjdrngSeriesFound  strSeriesName Duplicate_ iCelHeaderAr rngdatalabels(4CreateRetuningScatterFromPTstrEquipNameID_Measure iMeasureLen8strEquipNameID' (4TestFunctionC iTestFunctionOutput) (4TestFunction2  strMeasurexlTop InsideLeft] InsideWidthl0msoElementPrimaryCategoryAxisTitleAdjacentToAxis׿ (4AxesChoicesiStatusVstrSeriesMeasureEnd8strSeriesUnits iMeasureEnd iSeriesMaxstrPriAxisTitlestrSecAxisTitleiSeries2' mod9zHistoryScrollBars(5UpdateScrollBarScrollcv(5UpdateScrollBarZoomiZoom@ dblIntervaliField)iScrollChangeLgQ"iPlotHeightSaveŠ ScrollBarsShapes< SmallChange LargeChange(5CreateScrollBarsfmaxValuecintMinaintMax` LinkedCellTDisplay3DShading(5TextForScrollBars4 modChartMatrices(6MoveChartsToMatrixSheetڦ(6MoveSelectedChartsToMatrixSheet=(6ReorderChartMatrixؿiChtd  EmbChtObj iEmbChtObj mod9lSpecialChartsX (7GroupPTfield dblMinValuec/dblIntervalWidthGroupStartby\(7CreateLoadDurationChart93(7CreateLoadDuration"iCel UserForm9bLoadDurationData UserForm10LoadDurationxlSum~(7CreateLoadDurationChartFromPTxlColumnClusteredrdbl01dbl995 strValue01u  strValue99  rngRowsDataiLastRow6{Ungroupo PercentileaLabel4,Label5,Label6,OK_ClickRTextBox3S modDataSummarieso (:TestNumFieldsptablN ColumnFieldsrngFirstHeaderCel;(:DataSummaryLabels(:DataSummaryFormulas] (:TestLabelsJ rngFirstLabel? (:TestFormulas iFieldNum`3 FormulaArrayΠ(:DataSummaryInfoHx modBoxPlotLP (;BoxPlotLPN(;CreateBoxPlotPTZn (;BoxPlotData  (;BoxPlotChartϚ (;BoxPlotMinMax(;BoxPlotMinMaxFormatK7(;BoxPlotMedianAvg(;BoxPlotChartCleanupO(;BoxPlotStatsHeadersyz(;BoxPlotStatsFormulas6 strChtName1* strSheetName˜strMinusValues{ strPlusValuesciReferenceStyle9xlR1C1pmsoFalseF. HasErrorBarsפ ErrorBarsVEndStyleKxlNoCapvcmsoTrue ObjectThemeColor^msoThemeColorAccent1ض TintAndShadeqErrorBar> Direction&xlY/Include`xlErrorBarIncludeMinusValuesIjxlCustom^Amounti MinusValuesSolidcxlErrorBarIncludePlusValuesR xlLineMarkersa Brightness`Color2F modScheduleChartle (<ScheduleChart&iPageY;(<CreateLoadProfileForScheduleO(<ScheduleChartAxes;(<ScheduleChartColorsa(<FormatScheduleChart@strOccupancyValue iTimeStampsQ'msoElementPrimaryCategoryGridLinesMajor"msoElementSeriesAxisGridLinesMajormsoElementLegendRight Transparency FormHelp TopicCountWM HelpSheetdHelpFormCaptionvComboBoxTopics<AddItem  UpdateFormjtxtGetText currenttopic LabelTopicAutoSize!Frame1 ScrollTopl- ScrollHeight(jPreviousButton`hEnabled۪ NextButton{SetFocusComboBoxTopics_Click PreviousButton_Click!NextButton_ClickFExitButton_Clicksht TempSheet} UserFormShowHelpMultiPage2_ChangeqTextBox6SCurLine$TextBox4STextBox7STextBox8STextBox9S TextBox10 TextBox11 TextBox16 MultiPage25? MultiPage36? modHelp(?ShowHelp Sheet10 PUserFormNLabel1, DoneButton1  NextPtButton1 CancelButton1vLabel2,Label3, HelpButton1/ OKButton1n BeforeClose~;_DefaultjItemz _B_var_UCasea_B_var_SourceTypeOKRangeButton1Click QueryCloseTNumber- _B_var_pfS _B_var_Right9 _B_var_iCountPivotTableUpdateC _B_var_Format _B_var_strMsg_B_var_strMsgTitle^Ti' [ ]_ 5' >ikmoq s u w y +)! ,"A ?#E @- 6$-A; 7B&6789:;<=>?@-%.O 9CQ 8Ds :Ta0WEo1Z ;UI NI&a2h V3`;/^%!e4o+"b3#k7.iI$q <7{* "$'i( =5}%0H!` @ D"D Q @@@@@@ @ !@ 0H  H "P __SRP_0f__SRP_1 UserForm2Scheds -:О:fa6ttQta aQAAABABBBCACCCCDqDDD!EQEE  .pWWXQXXXX  01Y a a3!  2aYYa   aaQQ! Q a&AT a"PS1SqSSS aQALqLLLMAMqMMM1NqNNO1OaOOOPQPCompObjaVBFrame?UserForm5TempAvail&:Y:f+PP 4YZAZZ a(qTT=UQ aEFAFF   apJJ!KQKKKLa aAp >>!?Q???@A@@@ aFGQGGG Aa$T  aECAM ThisWorkbook MetricsPerSFComponents_tonsWCalc Subsystems SystemDiagram0* pH"dDEC AMDEnergy Charting and Metrics@6@nergy Chati.g"a*dMJti cs9Z=r   x_P! E%<MSForms> SFoZmX3 *\G{0D452EE1-E08F-101A-8-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#MicrosPoft :  Object Library/Z;D1<0-  00}#0<#k0 0E6A1F70F-5150-4F4B-A5EB-F1408591C57DmUsers\BILLKO~1\AppData\Local\Temp\Excel8.0\DV.exd=#.E .`M BxOffice>BpOf@Ae 4A32DF8D04C-5BFAjB-BDE5@NAA004 42H3Program Files (x86)\@Common\kS@ed\OF@FICE14@7OLtC( 11.0t'1stdolA1stdl @^ 1Av20430|C461C2.tlb#OLE Autom`ationAUThisWorkbookGU T@%iW@)rPkbo2` H1q",c""+cPerSFcP`'rvcocoV@mHk`@Dponents_tonsWCalcG(!#mp!n;s_o sW`alt2o;Smk S$ubÓsGbSu;s Ret+26!yI bDiaqGADjar@mN2\/a/O+ HolidayListG+:ld`yL A%23$$ɫBldg1G2B@Hd`"1@F2L? )! + Me@nuSheelnCS@e`t2oe0/w)e'5)C]5))s?2Z{_kD>wAOA>k=0B2>5B  RDaytypeOccupancyG.rp+UaDR,t6ppOU@IcPpPnyP2 E_ bV[  wNaliz0eG&!N0rKViz `nOe2O=pZtnO ?/E 9D@V-5C~s;'18ptU`pdateBsP3G$`p8U;PiKt#s3 rts32360YhR{ F4G2gF40 2D1p1+2 Wk 25 b bu11$V9 999lU8888gL}7777Y66u66W2hWc!555{t5"HP18;HP,4"0+MetricsOccupancyMont@hYrG.8ericsO cu panyMothYrP20PIblsjjDaytypeUi*iDeyqỳjeg%2+%dRZd dWmod1DataS@electGmd1^t`*Silc2MO 2^ 'P!OZ.S$ŏ'zMenuGAB&jzReu2@UserForm2SchedDsGU@e@F"rm2TShGd@2 O);O)TCp(@' @q6)ule@*@8&od6'uqsM 26 &-u(\(3InputaMRngG\m)3I:p`tOzR gV ce_ a6C /H-4 1- -4TimeStampCol@.,aC4TUmCS`ga+p4CGlBE 2 G2AddFiel#!]G2AHdFeG\GGGQU-[G-5TempAvailG$p-5`-e",Avi32?$07*6EAU6C92K-P 7BldgInfoG7B2!g;f-/ S  i _od3DefinePointp9 Pm3@Eef,n9P :iEt8e2e 8ݛ-ab0[9KoranCharE  9K r@(nChprD[}se3_ |lpiPF[  od8TG!K8Bxtpӛ2T)4N0yalize J&d4NrmlzgKO"O2OOl%PsҎٰZ $SzUtiliti[zzpt 1 qeB).YVc/ @m !%Um8LPdG࠿:8L/da#] ?> 3 zr3G](z3Zk2o n䓓;$1`TablesM'W1TbRe;;}')h[ tFileS2G-B2z|S$22 ? ?OX; 4V70ehsPrZs7V7[D/PBsVsO]Y1Z 8ֿ P5Htusd5ts`  uhM (`   ;1oEquiYm dh 2&ASheet10GBe@t@0S _;_85,K*@##,,$$;;))77<<%%::440033??2266&&''**++--55((  rU @@~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~ ~~~~~2"Q$㋙N,9O:  AaQq    A q    ! a  a8Q1 Q q      1 Q q aA77ap!Qa 137a  QR1RaRRR1aa722Qaq>@$3+1'q''A###38a888!9Q999:A:::A;;;<Q<<<<1=a==7=!>a@ HAHqHHIaIII1JJ *AUOqUUUVa,@1VaVVVV!WQW1  HolidayListBldg1 MenuSheet ComponentsComponents_kWCalcMetricsDaytypeOccupancyComponentsNormalizeListsptUpdateForCharts3Sheet4Sheet3Sheet2Sheet1Sheet9Sheet8Sheet7Sheet6Sheet5MetricsOccupancyMonthYrMetricsDaytypeMonthYrmod1DataSelectmodzMenuUserForm2Scheds mod6SchedulesUserForm3InputDataRngUserForm4TimeStampCols mod2AddFieldsUserForm5TempAvailUserForm6TempCols modReTuningUserForm7BldgInfomod3DefinePointsmod9KoranCharts mod8Metricsmod4NormalizeFields modzUtilitiesUserForm8LPdata modzKoranmodMetricsTable modzFileSizemod7DatesPrePostmod5StatusPointsUserForm1DefineEquipUserForm9ScatterDatamod9zCreateListUserForm3zInputTblRng modAboutECAMmodzzPivotCachemodHelpmod9zHistoryScrollBarsmodChartMatricesmod9lSpecialChartsUserForm10LoadDurationUserForm9bLoadDurationDatamodDataSummaries modBoxPlotLPmodScheduleChartFormHelpUserFormShowHelpSheet10F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA  APExcelF4C:\Program Files\Microsoft Office\Office14\EXCEL.EXE Ap.E .`M C:\Windows\system32\FM20.DLLMSForms QQPQKO@}9C:\Users\BILLKO~1\AppData\Local\Temp\Excel8.0\MSForms.exd QL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice 0FC:\Windows\system32\stdole2.tlbstdole aFH88EiE@+)fRFnL)1QDFWorkbook Workbook_OpenFFWorkbook_BeforeClose x CreateMenu DeleteMenu  MenuSheet&mFZ F.F&mVBE7.DLL. FFormat3D_stacks&mF&m! FFormatHistoryChartCreateLPforHistoryExcel_2007_ChartSetElement.# F&m% FGetDataforHistoryCreateHistoryPivotTableFromTimeToDateTimeRefEdit\D'  F FAdd FCreateHistoryChartEnd&m1+&m+OnActionCaption  FaceIdBeginGroupControlsType&m+&m 1+NotECAMworkbookCalculatedPointsCreateSchedulesCreatePrePostDatesDataSummaryRawDataFromLPtoHistory.'.1+ SelectData 22P ( DefinePointsTestItCreateLPforHistoryRetuningHistoryScalesAdjustCreateCalendarLPCreateLPbyDateRngCreateLPbyYearCreateLPbyMonthYrCreateLPbyDaytype CreateLPbyDayCreateLoadProfileDeleteExtraPivotItemstFCreateScatterChartByOccCreateScatterChartByDateRngCreateScatterChartByDayChart3dColoredDaytypesConvertChartTo3DNoLinesBetweenContoursColorByDayType ContourChartSurfaceChartColorsMatrixSelectedChartsMatrixAllChartsAddMatrixSheetAddSelectedChartsToMatrixSheetChartMatrixCreationMatrixSelectedChartsInfo  BoxPlotLPCreateBoxPlotPT BoxPlotDataBoxPlotStatsHeadersBoxPlotStatsFormulas BoxPlotChart BoxPlotMinMaxBoxPlotMinMaxFormatBoxPlotMedianAvgBoxPlotChartCleanup CreateLineChartFromPT PureScatterCreateScatterChartFromPT PT_RangeNamesFormatChartStandardFormatScatterChartStandardBoldChartLinesBAKBoldChartLinesCalendarLPsFromPT BuildChart SetScales GreyGridlinesGreyScalelinesFAddNameMonthArrayAddCalendarSheetLoopChartBuildLoopChartUpdateFormatCalendarCopySheetAndUpdateChartSource GroupPTfieldCreateLoadDurationChartCreateLoadDurationCreateLoadDurationChartFromPT ScheduleChartCreateLoadProfileForScheduleScheduleChartAxesScheduleChartColorsFormatScheduleChart SetupFirstPT AddPageFieldsptPageFieldsGeneralrF PTformatsMetricsDaytypeOccupancySFPerSFmetricsRngDataMetricsDaytypeOccupancyR2MetricsDaytypeMonthYr2MetricsOccupancyMonthYr2 MetricsPivots TestNumFieldsDataSummaryPivotTable TestLabelsDataSummaryLabels TestFormulasDataSummaryFormulasDataSummaryInfo ReTuningCP ReTuningAHU ReTuningAHUxy ReTuningZoneReTuningZonesAllEquipSearchAll EquipSearchTestLoopRetuningChartsCreatePTforRetuningScatterLoopRetuningChartsLoopRetuningScattersCreateRetuningScatterFromPT iEquipIDleniEquipID TestFunction TestFunction2GetEquipCountsTestIt2moveCharts2columnsmoveScatterCharts2columns AxesChoices AddAxisLabels && CombineTableIntoList FillBlanks AddFields ChgHolidaysBinTemps AddBinTemps TimeIntervalsAddOccupancyValuePoint AddNewDataIncorporateNewData ChgPivotCacheCheckPivotCacheShowCacheIndexShowHelp AboutECAMMoveChartsToMatrixSheetMoveSelectedChartsToMatrixSheetReorderChartMatrix ReplaceNames CanCalcTonsCalcTons Normalize NormalizeBAK NameExistsTestNameExists NameExistsSht SheetExists PointExists IsoWeekNumberInCompatibilityMode TestItTable MetricsTableLabel1MetricsTableFormatsChartMetricsSFSelectionFiltersListPageFieldsMetricsTableDataValDeleteDataSheet StatusPointsAddStatusPointsUpdateScrollBarScrollUpdateScrollBarZoomCreateScrollBarsTextForScrollBars(t !&m ! DataActivate C6:PivotCache rngOrigHeadersF pt1Visible DeleteT(Name&t! B26 Range ptECAM1:DF h0 aPivotTablesCacheIndex2 ptECAM2SourceData$f!&t! chtHistory A1reODBLc r|@Iofrua-(b{.Ni:&:coDiZ׏9Ge H~݌"-?@!-6S`  qp{lFWJOOKRangeButton1ҋB `RefEdit1]sJJ^ q'ȏ[qJ eUserForm#NagHWF6? F3Dynamic s AsOKRangeButton1_ClickUserForm_QueryClose  Qu0SfĤIx8<&mAv MonthYr '&mAo#=h8+3qG?,2qLQyy&my LSelect cells from the row of headings. $Not a valid range.S }p(~Qy$ Select just the headers for the points you want, not multiple rows. Weekday =x! 0Error in Point Selection ptUpdateEvent beforeCopyChartObjectsTableRange2 Clear  TableDestinationTableName  CreatePivotTableColumnGrandHasAutoFormatRowGrandPivotFieldsk a"h StatusOrientation TempRng 1degBinAutoSort 5degBin Holiday Occupancy Daytype mmm yyyyNumberFormat Month Year Date Time h:mm AM/PMPivotItemsPosition Saturday Avg AddDataField 0.00DataPivotField DayCurrentPage DateTimePageFields (All) BoldLabelRangeFontFontStyle OffsetMF A:AColumnsColumnWidth B:B C:C pMake sure your data and selection is OK, then try again.&m! VSelect only cells from the row of headings,  not the column. JUnknown Error in Create History Data.Worksheet_PivotTableUpdate !ptNumFields, Review the ECAM documentation and make sure you have done things per the instruction., If you have persistent trouble, check where you obtained ECAM for a newer version.?0CwGK FOxfB s DF WorksheetAxes&tO p Z Range SelectFPlacement !ptFirstDataCell&m&tLegendKey ptNumFields DrawingObjects22NewSeries !ptFieldName 00(~ '!ptField Values $'!ptField0CategoryXValues2 !ptNumRows H=COUNTA(OFFSET(ptFirstDataCell,0,-1, ,1)) !pt FieldName 4=offset(ptFirstDataCell,0, ,1,1) Field 4=offset(ptFirstDataCell,1, ,ptNumRows-1,1) Field0Category V=offset(ptFirstDataCell,1,-1,ptNumRows-1,1) C7 Cells CountY aSubtotalsDataBodyRangekF ChartTop( There are more timestamps than your version of Excel can put in a PivotTable. vThe time series history will use Time rather than DateTime  Land the time axis will not be labeled. &Too Many TimestampsRowAxisLayoutRGB ptField0CategoryMinimumScaleMaximumScale ddd, m/d/yyyyTickLabelsMajorUnitIsAutoMajorUnit >[$-409]ddd, m/d/yy h:mm AM/PM;@ F  TickLabelSpacingTickMarkSpacing MinorTickMark6 "HasMajorGridlines "HasMinorGridlinespFTF Arial E1Left Height WidthDF&m F&m! WeightLineStyle FormatLineForeColor Points>MajorTickMark General 0* *AxisBetweenCategoriesMajorGridlines BorderColorIndex "TickLabelPositionDataFields ValueHasTitleAxisTitleCharactersTextAxisGroupChartTypeSize&t EntireColumnE a0 Z&m LUnknown Error in Create History Chart. ptLPchartDaytype JUnknown Error in Create Load Profile.h~~~~~~~~R9 ! +-7/1 3'#5)%Energy Charting and Metrics QCancel 14 strWkshtName WkshtName :0pf PrngiCol pWS rngPlotLoc ADmyChtWS2myRngpt dblMinValue dblMaxValuedblIntervalWidth HnPivotsstrWSstrMetricField1strMetricField2rngFirstHeaderCel numFields strSystem iChartsMaxiEquipIDiChtObj seriesXValuesstrEquipNameID_Measure &Macro recorded 8/15/2006 by Bill KoranrngPTiMatrix ptGPMevapptT1secptT1evapptT2evapptGPMsecptT2secstrChlr_ChW_TempInstrChlr_ChW_TempOutstrPmp_ChW_Evap_gpm strChW_TempInstrChW_TempOutstrPmp_ChW_Sec_gpmmyNamesnamePtNameInDate strWSnameiCountMetricField1iCountMetricField2 $Macro recorded 5/31/2010 by WilliamK pApTarget p1q !rq qsr0 CloseMode QPX(H  "@}ER5R KQDBTahomaL{<@C +'d/$-'d/$,'d/$L{<@@  ćuM ćuM ćuML{<@T jE.#ÇuMiE.#ÇuMeE.#ÇuM Microsoft Forms 2.0 FormEmbedded Object9q::VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm4TimeStampCols Caption = " Time Stamp Definition" ClientHeight = 2385 ClientLeft = 45 ClientTop = 330 ClientWidth = 3885 StartUpPosition = 1 'CenterOwner TypeInfoVer = 10 End (H  @ }/R KQoi01pFz?a-:-:fo Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm5TempAvail Caption = " Ambient Temperature" ClientHeight = 2400 ClientLeft = 45 ClientTop = 330 ClientWidth = 3510 StartUpPosition = 1 'CenterOwner TypeInfoVer = 12 End (H  @}/R KQ4OKRangeButton2a; g ( 2\Label2t2 $ #Frame1t2{  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm6TempCols Caption = " Ambient Temperature" ClientHeight = 2400 ClientLeft = 45 Clientoi06 n``:Y:foi04i*WJO-:-:i05i*WJO-:-:i42i*WJO-:-:CompObjsx<f.o  CompObj n    !"#$%&'()*+,-/0123456789:;<=>?@ABCDEFGHIKMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ * pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q1<   Mp2Annual ScheduleMWeek ScheduleseM Day SchedulesseMTab6Tab4Tab55Tahomab5$H "e}Mp2eTop = 330 ClientWidth = 3510 StartUpPosition = 1 'CenterOwner TypeInfoVer = 15 End (H  @ }vR KQDBTahoma8(2LLabel10t,(What is the building area?{5Tahomat2(sq. feet{5Tahomaet @H,D{100,000tuTahoma0t(OKho OuTahoma0t(  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aefghijklmnopqrstuvwxyz{|}~fLp oCompObjJnf8oCompObjnCompObjaVBFrame?$!Page2a05,$#Page3a05,$*!Page1a05,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qAH,,5Tahoma19( Ending MonthN @Tahoma19AAH,,5Tahoma19AAH,  ,5Tahoma19AH,,5Tahoma19AAH,,5Tahoma19AAH,  ,5Tahoma19AH,,5Tahoma19AAH,,5Tahoma19AAH,  ,5Tahoma19(1z @Tahoma0AH,,5TahomaAAH,,5TahomaAAH,  ,5TahomaAH,,5TahomaAAH,,5TahomaAAH,  ,5Tahoma ( Week Schedulea; z @Tahoma( Ending DayoN @Tahoma(2hoz @Tahoma0(3hoz @Tahoma0(4hoz @Tahoma0(5hoz @Tahoma0 ( Starting DateaN @Tahoma$@H,  ,January 1o7 @TahomaH, ,7 @TahomaH, ,7 @TahomaH, ,7 @TahomaH, ,7 @Tahoma(OKho OuTahoma( Tab 3 of 3ouTahoma(The Annual Schedule tab is used to define what portions of the year are covered by the various Week Schedules. This is the last scheduling tab. 9N5Tahoma$H i}OM0 @A -8ComboBox21o* ListWeekSchedules:(.2DLabel9I <A /< ComboBox16hea$ Box1MonthDaysa4A 0<ComboBox11ayug Monthsox@A 18ComboBox22ay*ListWeekSchedules:<A 3< ComboBox17hea$Box2MonthDaysa8A 4< ComboBox12ayuMonthsBox2ay@A 58ComboBox23ay*'ListWeekSchedules:<A 7< ComboBox18hea$'Box3MonthDaysa8A 8< ComboBox13ayu'MonthsBox3ay(92<Label12Eg @A :8 ComboBox24ay*SListWeekSchedules:<A ;<  ComboBox19hea$vBox4MonthDaysa8A <<  ComboBox14ayuSMonthsBox4ay@A =8ComboBox25ay*ListWeekSchedules:<A ?<  ComboBox20hea$Box5MonthDaysa8A @<  ComboBox15ayuMonthsBox5ay(A2HLabel11o2 (B2DLabel10# (F2<Label13E(G2<Label14E(H2<Label15ES(I2<Label16E(2HLabel23] ( HTextBox115ayg ( 8TextBox125ay( 8TextBox135ay( 8TextBox145ayS( 8TextBox155ay, 74OKButton15ay?+*( 2<Label30(2Label33{*  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$H "_}OM0<0 (J2LLabel17MO(K2PLabel18M4O(L2@ Label19Ml(M2<!Label20MX)(N2<"$Main OccupancyK{ @Tahoma2((Typical Startup/Shutdown'{ @Tahoma2(Starta2E{ @Tahoma2(StopE{ @Tahoma2(StopE{ @Tahoma2(Starta2E{ @Tahoma2$@H, {DaySchedule15Tahoma2$@H, {DaySchedule25Tahoma2$@H, {DaySchedule35Tahoma2$@H, {DaySchedule45Tahoma2$@H, {DaySchedule55Tahoma2$@H, {DaySchedule65Tahoma2$@H, {DaySchedule75Tahoma2$@H, {DaySchedule85Tahoma2$@H, {DaySchedule95Tahoma2(@H, {DaySchedule10a5Tahoma2(AAEH,E{12:00 AM5TahomaAM (Week Schedulesa OuTahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{12:00 AM5TahomaAM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM(AAEH,E{11:59 PM5TahomaPM ( Schedule Namea{ @TahomaPM( Tab 1 of 3ouTahomaPM(On this, the first scheduling tab, you can create Day Schedules for up to 10 different daytypes. The Startup times will only be used if they are earlier than the start of occupancy, and shutdown times will only be used if they are later than the end of occupancy. Since the default startup/shutdown times are noon, they will typically not be used unless changed. You can name the schedules whatever you like.985TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPM(AAEH,E{12:00 PM5TahomaPMUserForm7BldgInfo$::f