ࡱ> B evSRzCompObj;MaVBFrame?UserForm3InputDataRng,xSPKkmKkmf+edded 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 KQDBTahoma8KEFҋB `E \prfedie Ba=&% #$" ThisWorkbook=J< @"1Arial1Arial1Arial1Arial1Arial1 Arial1$Arial1Arial1Arial1Arial1Arial10Arial1 Arial1Arial1Arial1 Arial1 Arial1 Arial1QTahoma1QTahoma1QTahoma"$"#,##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\);_(* "-"??_);_(@_)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)0.0 0.0000000 0.000000 0.00000 0.0000 0.000 mm/dd/yy;@ #,##0.0 mmm\ dd[$-F400]hh:mm:ss\ AM/PM m/d/yy;@% [$-F800]dddd\,\ mmmm\ dd\,\ yyyy 0.0% h\ AM/PM #,##0.00000#,##0.00000000"PODID No."\ General![$-409]m/d/yy\ h:mm\ AM/PM;@ #,##0\ "kWh" #,##0\ "kW"#,##0\ "kWh On-Peak"$[$-409]dddd\,\ mmmm\ dd\,\ yyyy[$-409]h:mm:ss\ AM/PM #,##0.000 #,##0.0000 #,##0.000000 #,##0.0000000#,##0.000000000#,##0.0000000000#,##0.00000000000#,##0.000000000000[$-409]h:mm\ AM/PM;@$[$-409]mm/dd/yy\ _h:mm\ AM/PM;@$[$-409]mm/dd/yy\ hh:mm\ AM/PM;@4/_(* #,##0.0_);_(* \(#,##0.0\);_(* "-"??_);_(@_)0+_(* #,##0_);_(* \(#,##0\);_(* "-"??_);_(@_) m/d/yyyy;@% "$"#,##0.0_);[Red]\("$"#,##0.0\) 0.00000000 0.000% mmm\-yyyy mmm\ yyyy                + ) , *    !       (             8   (  0   (   8   H  "X   H  "X   H  "X  "  #        D #  @           (   (   (  !X  8_{3ffff}̙̙3f3}ff3f3f73U33333\`6System DiagramԳMetrics MetricsPerSF Bldg1 Subsystems ComponentsuComponentsNormalizeHComponents_kWCalcComponents_tonsWCalc MenuSheet  HolidayList vcLists   BldgArea ComponentEquipID6ListAnnualWeekScheds#"N' ListDayScheds; F'ListDaySchedules: ; B"N' ListNormalize; :ListStartDates:C"N/ ListStartDays#"N( ListStartTimes; ' ListStopTimes; & ListWeekdays;( ListWeekScheds;G'ListWeekSchedules:;1B"NzcMeasures:C;B@:C;B@"NB"N+ MeasuresNormalize;   MonthArray` Ld ?January@February@March@April@May@June@July @August"@ September$@October&@November(@DecemberMonthDaysArray` b 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! ;,@ 'Subsystems:;B"N( TableDayScheds;' WeekdayArray2;" `, /_2zy21H`!zy21Hob^^xڕLVe?oRL T,(2KBi WMsmljXl%DШ-iB·s/fɳ}ϯnh @Z(p}[l wdoW2Ҭc; 0& 8߆\x`E?+ipE~\1H٤`V#^,j]34zFḐr&dd>{xìu4-lα [H#pX7.d7T4',f?-tF]%ź^/$f?)T$J_sTrLsrhgFۿi5[L5pU*ʔ$WHRŻtAۛLUj&Qwؙ r;%f(SPt ~W_]P:f?-Əmڣ.k)55ޢݚ~esX<ƲQoHJ8sU/ЭE\\Q*gs^|7zG;MXSZ)o~ ͮa/ll3lv;USjzd]o\GEla,e7Ʋ䘒9ԝI y$p7bia2x=}E¼xJ5<ו+bBSxZxLUYf֟ʴ =`&锞*gZ#*Am]@;Ti#zO'Tmo/YhG!ZM|3T겼xZ*0gR7Le /e1_GjW t;U:k Ѧ(96v/qKoi:UHm\=bRjVa"o"x &|LK@=C"x &|L a! xڭVkQ6IX~X m)~!T)mBJJ{ࡹo=xУ')"R :v&tvgvΛ] \ˈ1_i972y|D$ Hy}FW kNĭ뷯)l}!L1slcGM3ZBu1B^X,E~`$53 -[OrTX߰Tb[Mby^R[zCy*7b,U"BGDGJawlj5D]R"ՊHc]Wl@*uJW+5D.TxA DDLg0i2LAsR$)H7eHS,"ǻoebjǠ?&8=X㾷_xyhEFKb.[gLbSƐZ5AGZw3XyH2*b>Zm>ZS#5ђ`$V6c5&X_Iwb5ĹƜۛ!LfoO.bJ7( M<]H]W\kltw{˾LN3 A@@+ |K( 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 HolidaysTextDateYear New Years DayMartin Luther King DayPresidents Day Good FridayEaster Memorial DayIndependence Day Labor Day ThanksgivingFriday after Thanksgiving Christmas Eve Christmas New Years Eve NormalizeSFIntegrateOverTime BldgSF1000BldgSF PerSFmetricsNormalize_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_%opCreateScatterChartByOccCreateScatterChartByDateRngCreateLPbyDaytypeCreateLPbyMonthYrCreateLPbyDateRngCreateLPbyYearCreateCalendarLPGeneralMetricsAll 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 Temperatures%Multiple Points &Watts per SF Metrics&General Metrics&Load Profile ChartsLoad 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 Per Sq. Foot &MetricsCreate &Other MetricsSca&tter Charts &Utilities(Convert Table format to ECAM List formatCombineTableIntoList &About ECAM AboutECAM*! 9"f"#5}##i$$+%"&O&(!)N)(*Ut**-+Z + ,: n, , -? |- - ..[ . . o/ /"~00$102]234cc  B  dMbP?_*+%M \\Peci-NAS1\7th Floor-Sharp AR-2  odXXLetterSHARP AR-P450 PCL6LPT1: <$  ''''d2dPUsername unknownJobname unknowno"CX??UHH(  B  H?D@>?"0?@NNN?N < ]`p'rjB  0D@>]``'xpB  6D@> Z]`P'rjB  0D@>]`'rjB @ 0D@>`--]`'rjB  0D@>Z]`8'rjB  0D@> ]`'rjB @ 0D@>`  ]`x'tl   c $A@>"` ` ] `'rjB   0D@>  i] `'rjB   0D@>  ] `H'tl   c $A@>"`@ 0] `'tl   c $A@>"`   @] `x'ff2  c $ A@p]`' <P< Fff  c $ A@ -P<]`' $< Mix< 0 GH@   Ap i ]&`'ff  c $ A@]`X' $<HX<rnff  c $ A@ P]`h' $<HX<rnff  c $4 A@ 0 x]`4H' $<HX<rnff2  c $ A@ Z ]`\' <P< Fff  c $ԟ A@ `i x]`ԟ<' $<Boiler< 7[ff2  c $e A@P -]`e' $<C<#a0ff2  c $ a A@`]` a|' <V< F  0\a A@"`]`\a(' $<Chiller< <_|  0a A@"` ]`aX' $ <Cooling Tower<  {ff2  c $a A@  `]`aH' <P< Ftl  c $A@>"` @  `]`('ff  c $t` A@ P ]`t`' $<HX<rnldB  s *D@>   ]`'rjB  0D@> %]`0'  6_ @1"`@%,]`_' $<Room<H"aldB   s *D@> ] `'rjB ! 0D@>00%]!`p'rjB " 0D@>00%]"``'rjB # 0D@>%]#`'H@ $  A ` <  i]&$`'rjB % 0D@> ]%`'n^ }iw &# P] &`'jbB ' s *D@jJ}iw]'`L'jbB ( s *D@jJiw](`'jbB ) s *D@jJiw])`X'jbB * s *D@jJiw]*`@'jbB + s *D@jJiw]+`'jbB , s *D@jJiw],`'td }iw -3 Z@  -] -`'jbB . s *D@jJ}iw].`'jbB / s *D@jJiw]/`'jbB 0 s *D@jJiw]0`'jbB 1 s *D@jJiw]1`'jbB 2 s *D@jJiw]2`\'jbB 3 s *D@jJiw]3`D'H@ 4  A p ]&4`'n^ }iw 5# P] 5`p'jbB 6 s *D@jJ}iw]6`'jbB 7 s *D@jJiw]7`'jbB 8 s *D@jJiw]8` 'jbB 9 s *D@jJiw]9`'jbB : s *D@jJiw]:`|'jbB ; s *D@jJiw];`d'n^ }iw <# ] <`'jbB = s *D@jJ}iw]=`'jbB > s *D@jJiw]>`d'jbB ? s *D@jJiw]?`'jbB @ s *D@jJiw]@`'jbB A s *D@jJiw]A`4'jbB B s *D@jJiw]B`'H@ C  A Z!]&C`'H@ D  Ap Z!]&D`H'H@ E  A Zp!]&E`'ff F c $ A@ "x #]F`' $<HX< rjB G 0D@> x "]G`rjB H@ 0D@> `##]H`rjB I 0D@> ""]I` <B J H?D@>?"0?@NNN?N `x `#]J`<td }iw K3 x] K`<jbB L s *D@jJ}iw]L`<jbB M s *D@jJiw]M`D<jbB N s *D@jJiw]N`<jbB O s *D@jJiw]O`<jbB P s *D@jJiw]P`<jbB Q s *D@jJiw]Q`< R 0$ A@"` Z ]R`$p<  <Pri. CHW pump<a X < S 0t A@"` i  ]S`t< <AHU Supply Fan<~@`H< T 0ĥ A@"`-K]T`ĥ < <Return Air Damper<v < U 0 A@"` Z ]U` <  <Sec. CHW pump<g X < V 0d A@"`  `]V`d0 < <AHU Cooling Coil<m0 < W 0 A@"` <Z]W`P < <Outside Air Damper<| < X 0 A@"`P ]X`p< <Return Air Fan<\ < Y 0T A@"`  p]Y`T < <AHU Heating Coil<m0 < Z 0 A@"`0<P!i]Z`P< <VAV box with reheat<0 < [ 0 A@"`x!][`@< <Fan-powered VAV box<0 < \ 0D A@"`PK]\`D0< <Condenser water pump<X < ] 0 A@"`@ i ]]` < <Water<&Bo< ^ 0 A@"`]^`< <Air<Bo< _ 04 A@  !"#$%&'(*+,-./02356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdeghijklmnopqrstuwxyz{|}~@2iw  ]o`0%<rjB p 0D@> `  p ]p`%<ff2 q c $ A@  `]q`&< <P< F<rjB r@ 0D@>  P]r`'<rjB s 0D@> p ]s`0(<rjB t 0D@> `Z `]t`(<ff u c $L A@ P Z]u`Lp)< $<T<<ff v c $ A@ 0 x  ]v`P*< $<T<<ff w c $ A@ ` Z ]w`0+< 4<gpm<<ff x c $< A@  P ]x`<,< 4<gpm<<ff y c $ A@`K]y`,< 4<p<<ff z c $ܰ A@PK]z`ܰ-< 4<p<<ff { c $, A@`K]{`,.< 4<p<<ff | c $| A@PK]|`|/< 4<p<<ff } c $̱ A@p K]}`̱p0< 4<p<<ff ~ c $ A@ ` K]~`P1< 4<p<<ff  c $l A@ p K]`l02< 4<p<<ff  c $ A@ ` K]`3< 4<p<<tHd I 3  x 0] `3<rj2  c $A jJ"`I]`4<jbB  s *D jJ]`5<ff  c $\ A@`  ]`\5< $<T<<ff  c $ A@ Z ]`5< $<T<<ff  c $ A@ Z ]`6< $<T<<ff  c $L A@@ -]`L7< $<T<<ff  c $ A@ K P]`8< $<T<<ff  c $ A@  P]`9< $<T<<ff  c $< A@p#%]`<:< $<T<<ff  c $ A@ P  <]`;< $<T<<ff  c $ܵ A@  0]`ܵ<< $<T<<ff  c $, A@  p]`,=< 4<p<<ff  c $| A@ P ]`|>< 4<p<<ff  c $̶ A@@]`̶h@< 4<p<<ff  c $ A@ p 0]`HA< <?Not shown: "P across CHW piping<<ff  c $l A@Pi]`l(B< $<N< <ff  c $ A@  @ ]`C< $<N< <ff  c $  A@ p <]` C< $<N< <ff  c $\ A@ 0 ]`\D< $<N< <ff  c $ A@  ]`E< $<N< <ff  c $ A@i]`F< 4<x<<ll  s *L A@i]`LhG<  < x=position<< <ff  c $ A@ip]`PH< 4<x<<ff  c $ A@<P x]`0I< 4<x<<ff  c $< A@P]`<J< 4<x<<ff  c $ A@  ]`J< $<N< <ff  c $ܺ A@ @< x]`ܺK< 4<p<<ff  c $, A@  ]`,L< 4<p<<tHd I 3 "#-] `M<rj2  c $A jJ"`I]`$N<jbB  s *D jJ]`N<ff  c $̻ A@@!-"i]`̻(O< 4<x<<x  s >A ?@OKButton1P&<P(]` P1 6$?Forms.CommandButton.1D> @)))7 Sheet19    dMbP?_*+%"??1U>@7 Sheet2    dMbP?_*+%"??1U>@7 Sheet3  >g  dMbP?_*+%M\\Peci-NAS1\7th Floor-Minolta CC{dXXLetter$\I \Fiery X3e 22C-KM PCL v2.0   0T dd dd dd dd "dXX??U}  } m} } }  Order 1              O#"@ %(B#@ % B P Q R T S U  o r  n \ v   [  q p  s      { | }&@AD_D@ BldgTot_kW&XA D_D@ BldgTot_th& pA D_D @ BldgTot_th/hr& AD_D @ BldgTot_kBtu  z#@ % B~ ? y w ~&AD_D@ ElecMtr_kW&AD_D@ ElecMtr_kWh  #@dn- % B~ @ x w  &A D_D@ NaGasMtr_th& AD_D @NaGasMtr_th/hr   \4C  >@7 Sheet6  S  dMbP?_*+%M\\Peci-NAS1\7th Floor-Minolta CC{dXXLetterh$\I \Fiery X3e 22C-KM PCL v2.0   0T dd dd dd dd "dXX??U} m} m } m} m } m} $} m         "   !    #       #    #    #     #  xbbbDDDPH  0(   >@7 Sheet16    dMbP?_*+%"??U} I } I} I} I} m } $} }  } } } } m } } } } $} $}                            ]   ` t ^  J    D  _  H ( , 2 7 :    a   d u b  K    E  c  I ) - 3 8 ;  >  ! e L @  B  j  l  # * . 4 9   ?  " f M A  C  k  m  $ + / i Y  V   Z N g    F  % W X 0 5         G  &   1 6 <    h  '         =    88PH0 0(  > @  7 Sheet15    dMbP?_*+%M \\Peci-NAS1\7th Floor-Sharp AR-2  odXXLetterSHARP AR-P450 PCL6LPT1: <$  ''''d2dPUsername unknownJobname unknowno"dX??U} } } I} } I                         .W  .V    .a . . a . Z t.  . i u ..  .d .g ... d .b .h.... b .....  .c..... c .) . .... ) .- . .... - . .... . .... . .............&@TTBBF:<.888*@$(  $l $ s * +@N< ]`Z <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.<D>@7 Sheet17  |  dMbP?_*+%"?? mU} $ } $}  } } } m} m}  m                ]   ` ^  _ (  ,  a   d b  c )  - (>@7 Sheet18    dMbP?_*+%"?? mU} } I} $}  } $} $} $         V Z g J  h 2 7 K 3 8 i Y v<pp*>@+++7 Sheet20    dMbP?_*+%MB \\Peci-NAS1\7th Floor-Sharp AR>d  odXLetterSHARP AR-P450 PCL6LPT1:@ @ ( ''''d2dPo"d??U} } /} } m} I      $ $ % $ $~ &? & ~ '$@ &&~ (@ ( )(~ (@ ~ (@ ( )(~ (p{@ ~ (@ ( *(~ @@~ (@ ( *(~  @~ (@ (#*(~ (@ ($ )%~ (@ ~ (@ ( )(~ (B@ ~ (@ (  * ( ~ (@ 9 * ~ @~ (@ (! *(~ (@ 9 * (~ 0@~ (@ ( * (~ (@ 9 *~ `z@~ (@ 9 *~ `z@~ (@ 9 *~ `z@~ (@ 9 *~ `z@~ (@ 9 * ~ `z@~ (@ 9 * ~ `z@~ (@ 9 * ~ `z@~ (@ 9 *~ `z@~ (@ ("*(~ @ 9 *~ z@~ @ 9 *~ z@~ @ (& *'~ @8TF8PPBB<FP<B,B2888888882BBP(  x   6`LXPP? .x]4 @`L[ '!x@W- @ -<.1 for Menu 2 for MenuItem 3 for SubMenu Item <-xx   6LXPP? Nx]4 @Lh^ Ra&AHwcm5X 0<1Menu Caption. Use & for an underlined character <0~~  <(M XPP? 2@]4@(M0` +L}l@ >_ J<KIf Level 1, the menu position. If Level 2 or 3, the macro to execute. <iI Jxx  6MXPP? x]4@M0a [pBynX @<ATRUE if you want a divider before the Menu Item or SubMenu Item <K@xx  6MXPP? x]4@Ma IsFːMX [<\Code number for the image to be displayed next to the Menu Item or SubMenu Item (Optional) <[@A John Walkenbach  John Walkenbach John Walkenbach John Walkenbach John Walkenbach >@7 MenuSheetggD  $ `1DyXb  dMbP?_*+%"?? dU} } I Order          ~ 5@ 6B  Lmm/ddA001/01@@  LAE@  LBF~ 5@ 7B01/17@@@~ 5 @ 7(B02/21@@@~ 5@ 74B04/21@@@~ 5@ 7@B04/23@@?~ 5`@ 7LB05/29@@@~ 5@ 7XB07/04@@@~ 5@ 7dB09/04@@@ ~ 5@ 7 pB 11/23 @@  @ ~ 5@ 7 |B 11/24 @@  @ ~ 5@ 7 B 12/24 @@  ? ~ 5@ 7 B 12/25 @@  @ ~ 5`@ 8 B 12/31 @@  ?~ 5@ 6B01/01D@@~ 5@@ 7B01/15D@@~ 5 @ 7B02/19D@@~ 5@@ 7B04/13D@@~ 5@ 7B04/15D@?~ 5@ 7B05/28D@@~ 5@ 7B07/04D@@~ 5 "@ 7C09/03D@@~ 5 ,@ 7 C11/22D@@~ 5@,@ 7C11/23D@@~ 5 0@ 7$C12/24D@@~ 5@0@ 70C12/25D@@~ 51@ 8?~ 5`C@ 7 C 05/27 H@  @!~ !5 H@ !7!C!!!@ Lmm/ddA007/04!H@!!!@ LAE!@"!!@ LBF~ "5O@ "7"C"!09/02"H@"!"@#!~ #5Z@ #7#C#!11/28#H@#!#@$!~ $5Z@ $7$C$!11/29$H@$!$@%!~ %5]@ %7%C%!12/24%H@%!%@&!~ &5]@ &7&C&!12/25&H@&!&@'!~ '5^@ '8'C'!12/31'H@'!'@(!~ (5^@ (6(C(!01/01(L@(!(@)!~ )5 a@ )7)C)!01/20)L@)!)@*!~ *5d@ *7*C*!02/17*L@*!*@+!~ +5 l@ +7+D+!04/18+L@+!+@,!~ ,5`l@ ,7,D,!04/20,L@,!,?-!~ -5p@ -7- D-!05/26-L@-!-@.!~ .5u@ .7.,D.!07/04.L@.!.@/!~ /5 }@ /7/8D/!09/01/L@/!/@0!~ 05@ 070DD0!11/270L@0!0@1!~ 15 @ 171PD1!11/281L@1!1@2!~ 25`@ 272\D2!12/242L@2!2@3!~ 35@ 373hD3!12/253L@3!3@4!~ 45@@ 484tD4!12/314L@4!4@5!~ 55`@ 565D5!01/015P@5!5@6!~ 65@ 676D6!01/196P@6!6@7!~ 75 @ 777D7!02/167P@7!7@8!~ 85@ 878D8!04/098P@8!8@9!~ 95@ 979D9!04/119P@9!9?:!~ :5@@ :7:D:!05/31:P@:!:@;!~ ;5@ ;7;D;!07/04;P@;!;?<!~ <5@ <7<D<!09/06<P@<!<@=!~ =5@ =7=D=!11/25=P@=!=@>!~ >5@ >7>D>!11/26>P@>!>@?!~ ?5 @ ?7?D?!12/24?P@?!?@@!Dkl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_~ @5@@ @7@E@!12/25@P@@!@@A!~ A5@ A8AEAAA` Lmm/ddA012/31AP@AAA` LAEA@BAA` LBF~ B5 @ B6BEBA01/01BT@BAB@CA~ C5 @ C7C(ECA01/17CT@CAC@DA~ D5@ D7D4EDA02/21DT@DAD@EA~ E5@ E7E@EEA03/25ET@EAE@FA~ F5@ F7FLEFA03/27FT@FAF?GA~ G5@ G7GXEGA05/30GT@GAG@HA~ H5 @ H7HdEHA07/04HT@HAH@IA~ I5@ I7IpEIA09/05IT@IAI@JA~ J5@ J7J|EJA11/24JT@JAJ@KA~ K5 @ K7KEKA11/25KT@KAK@LA~ L5@ L7LELA12/24LT@LAL@MA~ M5@ M7MEMA12/25MT@MAM?NA~ N5@ N8NENA12/31NT@NAN@OA~ O5@ O6OEOA01/01OX@OAO?PA~ P5@ P7PEPA01/16PX@PAP@QA~ Q5@ Q7QEQA02/20QX@QAQ@RA~ R5@ R7RERA04/14RX@RAR@SA~ S5@ S7SESA04/16SX@SAS?TA~ T5@@ T7TETA05/29TX@TAT@UA~ U5@ U7UFUA07/04UX@UAU@VA~ V5@ V7V FVA09/04VX@VAV@WA~ W5@ W7WFWA11/23WX@WAW@XA~ X5@ X7X$FXA11/24XX@XAX@YA~ Y5`@ Y7Y0FYA12/24YX@YAY?ZA~ Z5@ Z7Z@ d7dFda11/22d\@dad@ea~ e5 >@ e7eFea11/23e\@eae@fa~ f5B@ f7fFfa12/24f\@faf@ga~ g5 B@ g7gFga12/25g\@gag@ha~ h5B@ h8hFha12/31h\@hah@ia~ i5C@ i6iFia01/01i`@iai@ja~ j5E@ j7jFja01/21j`@jaj@ka~ k5I@ k7kGka02/18k`@kak@la~ l5M@ l7lGla03/21l`@lal@ma~ m5@M@ m7m Gma03/23m`@mam?na~ n5@U@ n7n,Gna05/26n`@nan@oa~ o5 Z@ o7o8Goa07/04o`@oao@pa~ p5a@ p7pDGpa09/01p`@pap@qa~ q5`l@ q7qPGqa11/27q`@qaq@ra~ r5l@ r7r\Gra11/28r`@rar@sa~ s5o@ s7shGsa12/24s`@sas@ta~ t5o@ t7ttGta12/25t`@tat@ua~ u5p@ u8uGua12/31u`@uau@va~ v5p@ v6vGva01/01vd@vav@wa~ w5s@ w7wGwa01/19wd@waw@xa~ x5v@ x7xGxa02/16xd@xax@ya~ y5 }@ y7yGya04/10yd@yay@za~ z5`}@ z7zGza04/12zd@zaz?{a~ {5@ {7{G{a05/25{d@{a{@|a~ |5@ |7|G|a07/04|d@|a|@}a~ }5@ }7}G}a09/07}d@}a}@~a~ ~5@ ~7~G~a11/26~d@~a~@a~ 5@ 7Ga11/27d@a@aDkl~ 5`@ 7Ha12/24d@a@a~ 5@ 7HLmm/ddA012/25d@LAE@ LBF~ 5@@ 8H12/31d@@~ 5`@ 6(H01/01h@@~ 5@ 74H01/18h@@~ 5@ 7@H02/15h@@~ 5@ 7LH04/02h@@~ 5@ 7XH04/04h@?~ 5 @ 7dH05/31h@@~ 5`@ 7pH07/04h@?~ 5`@ 7|H09/06h@@~ 5`@ 7H11/25h@@~ 5@ 7H11/26h@@~ 5@ 7H12/24h@@~ 5 @ 7H12/25h@@~ 5@ 8H12/31h@@(-$ ,  ->l@74;0@ laD laC B$ Sheet8  2nݕ  dMbP?_*+%M \\Peci-NAS1\7th Floor-Sharp AR-2  odXXLetterSHARP AR-P450 PCL6LPT1: <$  ''''d2dPUsername unknownJobname unknowno"dX??U} }  } I}  } m } }  I } } } } I} } $ } I}  } m} m} m } I 2"""""""""" " " " " """  +                         ! ?@?? H  L h:mm AM/PMA0 12:00 AM~  ,  ~  , ,OO?,          ?-@-@@ .?( LALAEAA.v@~  j@! C <@@@ P 12:30 AM ,UUUUUU?  ~  , ,OO?,         ~ @ --.. ?@@@ P 1:00 AM ,ZUUUUU?  ~  , ,OO?,         ~ @ --.. >@@@ P 1:30 AM~  ,@  ~  , ,OO?,         ~ @ --.. ?@@@  Q 2:00 AM ,SUUUUU?  ~  , ,OO?,         ~ @ --.. >@@@ Q 2:30 AM ,?  ~  , ,OO?, ?@@@ ,Q 3:00 AM~  ,?  ~  , ,OO?,. ?@ @@"@ LQ  4:00 AM ,aUUUUU? ~ , ,OO? , .  ?@$@ \Q  4:30 AM~ ,2@ ~ , ,OO? ,  >@&@ lQ  5:00 AM ,? -  ?@(@ |Q  5:30 AM ,JUUUUU? -~ *@ Q 6:00 AM~ ,? -~ ,@Q 6:30 AM ,UUUUUU?-~ .@Q 7:00 AM ,?-~ 0@Q 7:30 AM~  ,@?@~ 1@Q 8:00 AM ,OUUUUU?-~ 2@Q 8:30 AM ,?          ~ 3@Q 9:00 AM~  ,?/UUUUs@#0? %B?0?!)D:D"NB@(Q!%DB Quarter A0@ LBF=R!'%D%B@DB DaySchedule31,R)g ]%%L$D"NB@B%B@LBFB DaySchedule38,!"% @ @D% B@B8,OO?!"% @ @D% B@B`46!JDDAD DDAD B$ OccUnoccBOccHR!DDA@% @ @%%DB%B@DBFB% B@B@ DDA@% @ @%%DB%B@DBFB% B@B@ B$@OccUnoccBOcc1PR) LLA- @@L% B@B LLA- @@L% B@B B$ OccUnoccBOcc~ 4@XR 9:30 AM ,UUUUUU?/YKA@0=0?!'D$D"NB@(hR!%DB Quarter A0@=|R!'%D%B@DB DaySchedule21R) DaySchedule28,!"% @ @D% B@B8,OO?!"% @ @D% B@B`R!JDDAD DDAD B$ OccUnoccBOccR!DDA@% @ @%%DB%B@DBFB% B@B@ DDA@% @ @%%DB%B@DBFB% B@B@ B$@OccUnoccBOcc1R)Occ~ 5@R 10:00 AM ,?/@ 000@1R) DaySchedule3 ,,1R)Occ~ 6@S 10:30 AM~  ,E@/$6<9 @ 000@1S) DaySchedule2 ,,14S)Occ~ 7@@T 2:30 PM ,SUUUUU? 2/`X8@0@1T) DaySchedule31T)Occ~ ?@T 3:00 PM~  ,?/#cm@0@1T) DaySchedule31U) OccD%lzmmSWWIM !"#$%&'()*+,-./01  U! 3:30 PM ,? 3!0U!!!1L h:mm AM/PMA0 4:00 PM! ,XUUUUU?0!.f@"DADAEAA"@U#! 4:30 PM~ " ,0Q@"3#PU$! 5:00 PM# ,?#3$`U%! 5:30 PM$ ,SUUUUU?$3%pU&! 6:00 PM~ % ,?%3&U'! 6:30 PM& ,?&3'U(! 7:00 PM' ,XUUUUU?'3(U)! 7:30 PM~ ( ,PT@(3)U*! 8:00 PM) ,?)3*U+! 8:30 PM* ,SUUUUU?*3+U,! 9:00 PM~ + ,?+3,U-! 9:30 PM, ,?,3-U.! 10:00 PM- ,XUUUUU?-3.V/! 10:30 PM~ . ,pW@.3/V0! 11:00 PM/ ,?/30,V1! 11:30 PM0 ,SUUUUU?031@V-! 11:59 PM1 ,OO?1 413(TIEIIEIIEIIEIJFJJ 1 1T` <(   ~  <{XPP? x]4@{e _w!XJryp <Bill Koran: Day of Year<7 D ~~  <{XPP?!x]4@{f jQ%XEVj <Bill Koran: Day of Year<7 D  Bill Koran Bill Koran>@' '' 7 Sheet1 VBAP?9mdmThisWorkbook* __SRP_2)__SRP_371PSLSS6" <<<N0{00020819-0000-0000-C000-000000000046} @`@|kT  ` Xi Show%@ %8 %`@@\TI!$*\Rffff*1e492ed4a7$*\Rffff*1f492ed4a74 " ( $0 ,X $ $ 6  "8` "  hpx" Dim frmSplash As FSplashScreen 'show the form modelessly% Set frmSplash = New FSplashScreenx frmSplash.Show vbModelessCo 'process the startup coders0 Application.Wait Now + TimeValue("00:00:6 ")A Unload frmSplash Set frmSplash = Nothingo@A oxͱ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   9 #4a  ` ` IW<   $ 0 @  44PrU @$`T(A`X #n("H#xMESheet34JSheet20 VSheet16 fSheet19vPSLSS<(< ,<0<<N0{00020820-0000-0000-C000-000000000046} $@)&`og % *% .%%I!"  8@(X P .  (H X]h] ptMetricsSF$2.*@ . *!4 &%6!8MonthYr &!8mmm yyyy >!@%d &%6!8 .%:(<d( &!8 &%6!8 .%:(<k . >!B DG >B@FjoAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomlizD2P Sub Works_Change(ByVal Target As R ) Dim WS  pPivotT7 S#=5s("ptMecsSF".On Erro@r ResuN(ext F EaHch 1In@.M2sNIf-.Offset(0@, -1).3uAa"MonthYr" Then pt.PageFields(C?).Curre,ntA @m_Application.HFuncBT@4%, "mpmm yEA#EBA'2G*End IfAYU`GoTo 0U5Calcu'8?xlManu@W  '#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "Sheet20" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2'I#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "Sheet16" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2-cx)OKButton1, 163, 1, MSForms, CommandButtonME(SLSSsN0{00020820-0000-0000-C000-000000000046} N@ T% %*C@xl@I!*\R8002*#5d" & 0@ "H Ppx Worksheets("Dummy").Activate PB@Ro8@ XSystem Diagram$2(VozAttribute VB_Name = "Sheet19" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2ControlOKButton1, 163, MSForms, CommandP:> Sub _Click( ) ' Workss("Dummy").Activ User01DefineEquip.Show End. É5)_Dea%8&System Diagram!VisiCcxlVeryHidden'#xME (SLSS<N0{00020Sheet8Sheet6 MenuSheetSheet15820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "She@et8" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2'#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ce#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I! xAttribute VB_Name = "MenuSheet" " Bas0{00020820v-C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2  'Z#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "Sheet15" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2'#xME (Sheet18 Sheet2HSheet17Sheet15SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "Sheet18" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2("#xMEPSLSS<(< ,<0<<N0{00020820-0000-0000-C000-000000000046} $@)&` % *% .%%I!"  8@(X P .  (H X]h] ptMetrics$2.*@ . *!4 &%6!8MonthYr &!8mmm yyyy >!@%d &%6!8 .%:(<d( &!8 &%6!8 .%:(<k . >!B DG >B@FjoAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomlizD2P Sub Works_Change(ByVal Target As R ) Dim WS  pPivotT7 S#=5s("ptDMecs"-On Error ResuNex tF EachR 0In?.1sMIf-.Offset(0,      !"#%&'()*+,-./0123456789:;<=>?@ACDFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~ P-1).@3u`"MonthYr"` Then pt.PageFi`elds(>).Current A l_Application.HFuncBT@4%, "mmm yEA#E’A'2G*End IfAYU`GoTo 0U5Calcu8 ?xlManuA@W @A '/E#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "Sheet17" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2''#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0I!xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU~|   qa9 1YQorm2Scheds Caption = " Input Schedule Information" ClientHeight = 7785 ClientLeft = 45 ClientTop = 330 ClientWidth = 11940 StartUpPosition = 1 'CenterOwner TypeInfoVer = 618 End (H  @}R KQDBTahoma8KEFҋB `EF$8RefEdit1; H$],5Tahoman$(mod1DataSelect)modzMenu 4__SRP_4$b__SRP_5%BHT(RC[+1],LEN(RC[+1])-FIND(",",RC[+1])-1)))'h rngdata.Resize(rngdata.Rows.Count - 1, 1).Offset(1, -1).FormulaR1C1 = strDateConvert  r!! 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@|`dXC7$( C65536$(%$(!8C7$( C65536$(%$((D7$(!B@kk$'' End New Section added 1-31-2008d r% r%$B@ A67(B@=RC[-2]+RC[-1]A67( A67(%7(%6([$-409]m/d/yy h:mm AM/PM;@C6$( C65536$(%$((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] r!! C77(%([$-409]m/d/yy h:mm AM/PM;@C6$( C65536$(%$((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@|kxkp$'' End New Section added 1-31-2008A67( A67(%7(%6!8A67( A67(%7(%6(''*** r!! r!!  r%6%B@ D67(B@ D67(B@A6$( B65536$(%7(B@k[$-409]m/d/yy h:mm AM/PM;@C6$( C65536$(%$((C:C$(qqxA1 HolidayList$2%(A1:B144 HolidayList %2%(B@Holidays=HolidayList!$A$2:$A$144 !B@Holidays %(VA:B HolidayList$2%!B@Lists$2B@pData p%2Lists %2B@Lists p%2 P18:AB34$(B@ X9VqData$2B@AAData$2B@C6$( C6$(%$(.rngOrigHeaders  !B@rngOrigHeaders %(V Call DefinePoints >(.p Set rngdata = Nothing% Application.ScreenUpdating = TrueoAttribute VB_Name = "mod1DataSelect"  xME(@<X< n0H dx` ( *0  `(hTN X Lp &  R >X  < < >0 Np   x   * | @ <P   2   N `x X> .@ p0   ( 0.H,x"      ,( X `p] p] ] ] ] ] `] 8] `] ]8]X $ Worksheet7The worksheet with your data must be the active window.Not a valid worksheetA@|k .lU Default value of iTimeCols is set in UserForm_Activate for UserForm4TimeStampCols.L Make sure default value matches starting settings for the Option Buttons. B@R tGj B@R tGj r%B@ >(Workbook B@ .p ! p( B@Data ( B@ HolidayList ( X HolidayList$2(V B@ PointsList ( X PointsList$2(V p A6 PointsList72%(B@A PointsList72%(Data72 t rB@ C67(B@ C67(B@ '' New Section added 1-31-2008C77($ C77(!B@=IF(ISERROR(FIND(",",RC[+1])),' RC[+1],' CIF(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)),' .RIG Public wbUserdBook As WorkFbDNew:rngdrRangeliTimeColsIntegerstrTempsAvail SngU VBldgAreaLo3 iVoltmlngCalcSetting Sub () Dim @Header(A_nnvert(_ If Type(ActiveSheet@) <> "s" Then,MsgBox 2" w with your must be the a-ndow.", "Not a valid@{Exit =End If CG = C/DŽ 'Defaultue of |is set in Form_aforF4Stamp.Make @sure dJm atche@tarrs DOption ButtonsE!ShowkG/= 5f GoTo A/Termin@/dJE3InputRng.8w.Rows(1).CopyQAppa6.ScreenUp = Fals1is.Add !hl:="DAC=zo%p, 2aСwe0successfully ced. Please%bseExcele.oF + EҎ] , 6553!e0(xlUp))%%C`xgv!K"D`K]Dthyq@OS3jjxj 9Un&91),1аaRPCWU7e@wsa, JapDownDB0X, 2f4B_?"B=e-2]+a1]'D"`"r#@NumberCat#"[$-409]m/d/yy h:mm AM/PM;@<%C"WOU&mn.Insert Shift:=xlToRig ht strDateConv= "=IF(ISERROR(FIND("",RC[-2]0)),"$ Y& "B8@IGHT"(\LEN)-1^-1)`@NUMBER(1*MID;52,2>RE9vl`.Range("C7").Resize(rngdata.Rows.Count - 1, 1).FormulaR1C1H = + A1]6")," 553.End(xlUp)).Number at@"[$-409]m/d/yy h:mm AM/PM;@If Not Is(E@:) ThenSDMsgBox "@ Bes do nappear to be a valid" f #at, and weresuccessfully c#~ed. PleaseEp the Excel .!Exiubs* Ifo''' New Section added 1-31-2008 IeJA<;Down;Offset(0, 2&K<_   ValueO @***_c, Columne@Copy !D.PasteSpecial sfa4B6pzC@UrF#C4_{_{\`, :C Widt2h G22aWith#ThisWorkbook.sheet s("Ho zay0ListA1 :B144 py Destinaab:=1")C2A`4vebNames.Add I:=s"PQe@fersToP=( !$A$2:@_O Bf s V@isibleFxals0_ %A:BEntir-.AutoF>ipIDeletDOn Error GoTo 0CQ3UTe:=wbHBM\aE1 os#)P18:AB34 Up.xlVeryHiPTc %; .Call FieldT92BinTe%!%.  (KT A Menu Itempx  l !%.d l !%.  (k  (h G  (j G ( j(KT A SubMenu Item l !%.  (  ( G  (j G ( jnx  '`oXh: This sub should be executed when the workbook is closed Deletes the Menus]]] MenuSheet %.^'  ^%$a  ^%  ^%'  >%%B@k(  'oAttribute 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+BarPopup $Item#"3"ButtonRowInteger Level, NextPositionOrMacro, Ca p,lvider, FaceI:dS'0!AZLoca fWm dwSP)R.=tASl.s(z""`#G$Mxake@@~$s aren't dupli+e?Call DeleFDIn@QalizeBr`8cou``e= b2 Add ,2  indsHus@,L stored onǟDo Until IsEmpty(FM.Cells(#, 1)P6With A@ $ {L 2 !,N3٬DiP4CT5^ + 1a!GE/!)S>wCase$!G1' A?gfE?top-lAr?toB=& | %e= ,Ap#Uy.s(1). _k Controls.(Type:=msoB,~ be{N=Temporary:=Truel9{AR.N$632 3 !K"If'}`C3!I.B= ""RR2 &<@T|F @BeginG0ypq"{F GoTo 0!3 !u! Aw" 33_+ z?15?oj1'U rQYcLooubqx+7z/////s closqs[)sS ߡߡ_ap6Sдn>g+6Dok!@_$P!!O)091T 4~ mdm8(). #)MQ%N*&R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f*\R3*#50*\R3*#51*\R3*#51X" B <P  & : 1@ :` . $ |1:%$  dl=x) pj6kjD%(%x  5 lx.kjD%(% X.kjD%(% (.kjD%(% 8.kjD%(% .kjD%(% 1kjD%(% HcX(]3@qc%8'%'% %(%  'xMEX@ ,(L > "LLP*LLLLLLLPL<\<`by ain@( ists@@ yste@ onal@X by @p lis@0 mpon@x ``P %!@ $ %@ @H @ @ @| @l @\ `xH>@l @\ @8X @H @8 @( @  @ @ @P @h @ xhI!$*\Rffff*1f492ed4a7*\R1*#2ab*\R3*#52*\R3*#92$*\Rffff*1e492ed4a7*\R1*#f1*\R1*#dc*\R1*#e4*\R1*#e4*\R1*#1c8*\R0*#13*\R3*#30*\R1*#2ac*\R1*#e8*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f*\R3*#50*\R3*#51*\R3*#51X" B <P  & : 1@ :` . $ : "H 6p  . . . . . 1(  08 FP Dq   :  @:H h x       /  ( 8 @ ` x  " @   (10P6X8x 1 b  ; This sub should be executed when the workbook is opened.X6 NOTE: There is no error handling in this subroutinelo]H]h]]]] 8P3''''''''''''''''''''''''''''''''''''''''''''''''''' Location for menu data MenuSheet %.^3'''''''''''''''''''''''''''''''''''''''''''''''''''( Make sure the menus aren't duplicatedA  $   d  H   $l=t) (|t /|(]36H(]3:'%'%'%'% %t P $Qp:'%'%'%'%%t P $Qp 8p (pK:]@ p . c%pK(]3/%pWl\l6l\(|l /|8|l /|K:]@"l \  l |K kjpjA T< (lXH8xpt0 |l\=\K1X:\%l$ l dlX=x)lXpv6kvD\%(8%lx l l5R8kvD\%(8%lx l(]3l5@1kvD\%(8%lx l`1pl5b'8%lpFH%(\%Xl$  l d X H   , ) lX kvpv?K\,px(lXfrU $`$`nXt`\xUserForm2Scheds 1 2Emod6Schedules&Tl&UserForm3InputDataRng,E UserForm4TimeStampCols.2tz ox Box1Index ! !B@`p Box1MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box1Index+1,2),1) !B@ Box1Index %(V Box1MonthDays %(V Box1MonthDays (` !8  !8 December 31 "(dd !8  !8$$ mmmm d$ "(dk Box2MonthMin !8  (!8$$ $& !B@ MonthsBox26=OFFSET(Lists!$A$2,Box2MonthMin-1,0,13-Box2MonthMin,1) !B@ Box2MonthMin %(V MonthsBox2 %(V MonthsBox2 ((o Box2Index (! (!,  !B@ Box2MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box2Index+1,2),1) !B@ Box2Index %(V Box2MonthDays %(V Box2MonthDays .( (!8  .!8 December 31 0(dd@ (!8  .!8$$ mmmm d$ 0(dk Box3MonthMin (!8  .!8$$ $& !B@ MonthsBox36=OFFSET(Lists!$A$2,Box3MonthMin-1,0,13-Box3MonthMin,1) !B@ Box3MonthMin %(V MonthsBox3 %(V MonthsBox3 2(o0 Box3Index 2! 2!,  !B@ Box3MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box3Index+1,2),1) !B@ Box3Index %(V Box3MonthDays %(V Box3MonthDays 6( 2!8  6!8 December 31 8(ddh 2!8  6!8$$ mmmm d$ 8(dk Box4MonthMin 2!8  6!8$$ $& !B@ MonthsBox46=OFFSET(Lists!$A$2,Box4MonthMin-1,0,13-Box4MonthMin,1) !B@ Box4MonthMin %(V MonthsBox4 %(V MonthsBox4 :(op Box4Index :! :!,  !B@ Box4MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box4Index+1,2),1) !B@ Box4Index %(V Box4MonthDays %(V Box4MonthDays >( :!8  >!8 December 31 @(dd :!8  >!8$$ mmmm d$ @(dkH :!8  >!8$$ mmmm d$ @(d Box5MonthMin :!8  >!8$$ $& !B@ MonthsBox56=OFFSET(Lists!$A$2,Box5MonthMin-1,0,13-Box5MonthMin,1) !B@ Box5MonthMin %(V MonthsBox5 %(V MonthsBox5 B(o Box5Index B! B!,  !B@ Box5MonthDays==OFFSET(Lists!$C$2,0,0,INDEX(MonthDaysArray,Box5Index+1,2),1) !B@Holidays %(FHolidays %(H Box5MonthDays J(o !8  !8 December 31 "(ddp !8  !8$$ mmmm d$ "(dk( Box2MonthMin !8  !8$$ $& !B@ MonthsBox26=OFFSET(Lists!$A$2,Box2MonthMin-1,0,13-Box2MonthMin,1) t 7xMEPSPSSS<(<<<0{88FF9269-9B58-419B-A731-68E86850EBDA}{6FA7D193-17B1-4162-AEA8-F9784F1D37F0}( h~ p   *0 4p < D L0 Np P R T0 V`X Z`\y,Bo`X  ^h`\`X.( ``X@`b!8 dmm d% fBox3% Np`Xx3 n p r0iP itp% %j j~0h00pp0ppP0p" I!5 "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`    0 "8 @ .H  x  >  R ^0  ". 8H>P R^ Pp " . >P RX^ 0Php "x. > R^p (0 "8 @ b` "  > X h < @   0 H<X @     " ( "0Xp8x  >   ( "08@ "Hp8  > (8  @P "X`hpx   ^   8  HN`   B  ( "08@H` x @  N`      "  " 0" 8 @PX`hp ] ] 0ListWeekSchedules (woo@p (8(' >!B'~ D >(B !B@ Box2MonthMin %(V MonthsBox2 %(V MonthsBox2 ((o0 (!8  .!8 December 31 0(dd (!8  .!8$$ mmmm d$ 0(dkh Box3MonthMin (!8  .!8$$ $& !B@ MonthsBox36=OFFSET(Lists!$A$2,Box3MonthMin-1,0,13-Box3MonthMin,1) !B@ Box3MonthMin %(V MonthsBox3 %(V MonthsBox3 2(PoHp8 2!8  6!8 December 31 8(dd 2!8  6!8$$ mmmm d$ 8(dk Box4MonthMin 2!8  6!8$$ $& !B@ MonthsBox46=OFFSET(Lists!$A$2,Box4MonthMin-1,0,13-Box4MonthMin,1) !B@ Box4MonthMin %(V MonthsBox4 %(V MonthsBox4 :( o x :!8  >!8 December 31 @(dd0 :!8  >!8$$ mmmm d$ @(dk Box5MonthMin :!8  >!8$$ $& !B@ MonthsBox56=OFFSET(Lists!$A$2,Box5MonthMin-1,0,13-Box5MonthMin,1) !B@ Box5MonthMin %(V MonthsBox5 %(V MonthsBox5 B( o On Error Resume Next[TextBox16.Text = Format(DateValue(ComboBox23.Value & " " & ComboBox20.Value) + 1, "mmmm d")0 o( 0]pLists$2 X TextBox X %!8 XL17(%6(8 X X X  ComboBox110 %!8 XM17(%6(8d( ComboBox10 X %!8 XM17(%6(8k X X X  ComboBox120 %!8 XN17(%6(8d` ComboBox11 X %!8 XN17(%6(8k Xq  (8o]] ComboBox121 %!8'\Lists$2' ComboBox122 %!8 \P17(,6' XComboBox X %!8 \ XP17(%6(8 Xqo]8]P ComboBox121 %!8'\Lists$2' ComboBox122 %!8 \P17(,6' XComboBox X %!8 \ XP17(%6(8 Xq (8oh]]]]x G|jP2Lists$2%( P1Lists$2%(%Lists$2%(.d'X f d X 'X f!8 !!8 X !h(8 b X bP1Lists$2%(%6!8ComboBox b %(8 bk8 f;UserForm2Scheds.ComboBox1.Value = Range(P1).Offset(iBox, 1)o]XLists$2AA2:AC67(B@j XTextBox1 X %!8 XAA17(%6(8 ComboBox X  %!8 ComboBox X   %!8$$ XAA17(%6(8ComboBox X  %!8 XAA17(%6(8 Xq80 B@l ~ >(Bop ~ >(Bo ~ >(Bo t v'xd'xkoAttribute VB_Name = "UserForm2Scheds" Bas0{88FF9269-9B58-419B-A731-68E86850EBDA}{6FA7D193-17B1J62-AEA8-F9784F1D37F0} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDPublic boolNextWeekCaller As BA ean lngcSettingLong <@ Sub MultiPage1_Change() ComboBox122.RowSour"LiFs<uleEnd& .}_Ac8tivG.Vhalu[26= Q%L5= AppDation.};uWCmxl Manual< 1BH5eWHork-k.s .Add A:="OIndex", RefersTo:=.R+IMonthDays"=O@FFSET(As!$C$2,0@@INDEX( A rray,%+1,2),1)V3(1).Visiƛ gTF!6kL!#On Error )su!`1#If h*J& *" &6&M"D ecembf31" The`fafTj2.!D"d#EBat(6D`\() + 1, "m d"o!QIfiALx2%MinB$2$d s&2ZRA@R'-1S13-iQQoor("Hf6,hFQGoTo 0M2:x22cG2 -\cCount d*COEpn;RBEg_ esc }k7NES25oExWiEd1 nE7oE oEeE3oEmEfoEVyt oEAoEvfk3oE0hoE_ CdoEssaE3oEndE hE6oEw{b%"_%)oE3&fE3(oEoE} 1oE63oE nE3"GoE36# oEoE__V h 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?(s(A,agRMultiPage1|@O61Weekau`uxi= l-5BD?lECaller,Tru!e2>P)A@122hDƧ[8G[`E#d!iCap̡!@׵9ɵ ?ntsVq`o@0)_g   jBJ $JVWA0 QAǶA߇݇122臁?P|Bprn~g$0wz1celXsq a/  bv Exit5 Set =@??)FE!6,"6(xlDown)  BEach qIn  bP6D224_?57ce#1a i e-!m?+@'Y\O, /!OՇ5 ' D P1)^.ʤQ3nub OKu1ϰU//A/R-R*A@A2:AC6)Clearaents)@p)5߱NJ"ύ5OFp _ 'O&& 10?5'& (`5)DTя 2e_g1 10G..^~)HidwAppPation.pcul1lngStingٰm_Deactivate()  Application.Calcul, = lng@Setting End Sub Pr UserForm_Te0rmin;XQueryClose(Cancel As Integer, Mod&eIf= vbSControlMenu TheniSkipSched{ s1ElseM0If D im WS^Worksheet0RngRangestrForPmulaSng StartTNiop'lngSettiALo12 = Appation.LxlMan8ualB ScreenUpd0F= Fals'/Q= s("Data"S.(W"C7"), "C65536").End(xlUp)DUse]2ps.Show +If<> 1 Then5@!.Offset(0, 12).q= _C3 "=INDEX(Tab leDayC,M ATCH(ListAnLWeek 1+INT(@eAx)-DAT@E(YEAR,1,1),sC0),if(RC[-2]=""Holiday"",8,W@EEKDAY,p2)))1This fDces the difference betwxt(Astamp) ands rt A,KA comparioop.K >ls,An 1durg!occupied p`eriod $m@ethod uBsto h l$e %d ancy at gopast mi@dnight e altern gdvea ju` sefc0# "#e13.dn't w>= m*erba remain'issu>nc A)!!`uldKe next XFe s G supBa giventyp8e. @z %s @expect5bA 5mall,%shoDx .bC!|coverUe with knowledg6,Bcful A o4FlRng.Offset(0, 13).HR1C1 L tr:_UT"=IF(AND(DatevT)>=,%<%#Application .Calcte;t 2SRValubW$l SetupFirstPTEnd Ifp14lngA50ting GAddMoreFie lds Su(b  ()#Tons qkWfQ DimPoint As Str&for eachinIf dExs(ł) TheE1&8TestIt &Eވ&p= ^ _(B^0.0001_υ)<=0g ~1+Dkstꑟ "_ S#<=|(iz߬_1 1 T\_7";-Range`("P7"Yv  ( HX`"h p"xTJH0xxxv(@P] ]X]x]]] Dim lngCalcSetting As Long >!B'~ D >(BMEPSPSSS<(<<<0{9010F1E8-76BB-4801-B672-E2F27BA65918}{3DA1DE88-CEAC-4662-A2E4-DAA79E23936B}X ` #xME(<,<(< <h |TT *p% ~%```   x`,1,1   `x x 8I!q " (0 $8  ` p  >   j fP J T `` D r t B x@ J . 8 NH J J 8 pH n n(  DT (P $x "  ,  , *P  f b `p ( * H 8  0  (,8,h    ""  ( HX`"h p"xTJH0xxxv(@P] ]X]x]]] Dim lngCalcSetting As Long >!B'~ D >(B >( Data$2.*/EC7 *%( C65536 *%(% *%(.~ B@R- x =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))) ~%6(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'V + 0.000106 =IF(IF((Time- )<=0,' 1+Time- ,' Time- )' <=' IF( - ' <0,' 1+ - ,'  - ),' "Occ","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"")"  ~%6( 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"")" >B@F ~%6!8 ~%6( ~%6!8 ~%6( Call SetupFirstPTk@ ~ >(B Call AddMoreFieldsoAAo ]` for each strPoint in $koxo]L=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$((o Attribute VB_Name = "mod6Schedules" Public iSkip\Calcs As Integer Sub CreateAt() fX % ri it%8 %``@I!"  R0 @ ^ HP X  hx . 6  "  8 H]@h !d$(.r r!! r!!  r!! tGjx f r%! f!8$ f >% f >%Header in cell f! is not text or a number.Error in Input RangeA@k f A@r,1,1|x#The selection is not a valid range.A@|@80 MsgBox "The selection is not a valid range." A@r-1],Lio` t vG'tjoAttribute VB_Name = "UserForm3InputDataR ng" Bas0{9010F1E8-76BB-4801-B672-E2F27BA65918}{3DA1DE88-CEAC-4662-A2E4-DAA79E23936B} d@GlobalSpacoFals"e CreblPredeclaIdTru BExpose0Templat@eDerivCustomiza DP Sub OKRangeButton1_Click()  Dim c@el As   On Error GoTo BadSet prngdl (RefEdit1 .Text.If.Rows.Count < 3 OrFColumn2( I= 2 And@ iTimes2) ThenS* Each9In#(1).Cpells( B@R >( * vYes x!  r%!  t ' =ROUND(RC[ ],0) ~%6(0 ~%6( =ROUND((RC[  ]-2.5)/5,0)*5+2.5 ~%6(0.0 ~%6( =if(RC[  ]<55,"under 55",IF(RC[  ]<=70,"55 to 70","over 70")) ~%6(k ~%6 ~%6$(!8 ~%6 ~%6$((qX B@% Application.ScreenUpdating = True..*.~.xot This sub is used to add temperature data after the other point data has been selected and the other fields added.]]]Data$2.*C7 *%( C65536 *%(% *%(.~ >( B@R >( * vYes x! ~%6! ' =R|xME (<,<(H H0  ( H,h &(*&@&h &&, **@*p.,**0*`*   2 , H Hh >  $8BXD":PBp$$ (( .P @ ,  @ nP f L( nx \ H ` x    ,  "       >  `  p      2  4  ( JH  8\@   ,   " z  >    ( 8@ $P 4x  J   @\(  0 @ HPX ` p]x]] >(Data$2.*C6 *%( C65536 *%(% *%(.~  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@  WeekdayArrayW={1,"Monday";2,"Tuesday";3,"Wednesday";4,"Thursday";5,"Friday";6,"Saturday";7,"Sunday"} !B@ DateTime =Data!RC3 !B@ MonthArray %(V WeekdayArray %(V D:T$B@Time =Data!RC10 !B@ *DateTimeC6$((8YearC6$(%6(8MonthC6$(%6(8MonthYrC6$(%6(8DayC6$(%6(8HourC6$(%6(8DateC6$(%6(8TimeC6$(%6(8 WeekdayNumC6$(%6(8xWeekday C6$(%6(8Daytype C6$(%6(8Holiday C6$(%6(8 DaySchedule C6$(%6(8 Occupancy C6$(%6(81degBinC6$(%6(85degBinC6$(%6(8TempRngC6$(OUND(RC[ ],0) ~%6(0 ~%6( =ROUND((RC[  ]-2.5)/5,0)*5+2.5 ~%6(0.0 ~%6( =if(RC[  ]<55,"under 55",IF(RC[  ]<=70,"55 to 70","over 70")) ~%6(k8  ~%6 ~%6$(!8 ~%6 ~%6$((q  >(A.*.~.xo 5AttroOQCompObjRaVBFrame<UserForm4TimeStampCols.UKkmмmmibute 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$= Falls$S<=3-Y 4hD z5HouK ]6J te775= 8$JNu6m 910@&typ_1?Holbw1I@ Schedul 1)AOccupancy?A1deXgBiAT1)B5 t09!Temppk 1k.4y!q7CA^A6:AZmFEj.AStyH"Boldp'7sC887r6r{'2 JA0.0929'Copy/ rng.PasteSpecial 1OAll, OperatracP P10pFormat[$-409]m/d/yy h:mm AM/PM;@ } l0LEq)rmula@=YEAR(d)N X1q VLOOKUP@(MONTH,S"z,2,FALSEfA)@3DATE( ,+1,1)-(1/24/60?8u- m@yot4/?p'Ayy(p"pG&P<]W "=- e@@od0 s,yy+k 0DRC[-7]-a1]3o3}* C@` VDqHH]tIF <"",v=;)/gx/(ISERROR(MATCC [-5],zs,H0))`No`""Yes""~"K,! ifA+1]~= /2v]/E):*^8 1?.(Rng.Offset(0, 8), 11)).Value  Columns("C:T").Entire(.AutoFitXRangeT6RSelec6End WithXSet WS = NothingArng`Temps 4'Application.Scr@eenUpdn2g0TrSub  Bin (()IDim wb As Workbook0 ÀU sheej W {i'Integer}3= Activ~e6 6Dpata"TuW S."C7"À6553~@(xlUp);wbUserAB:.B#at~$T A Form5RAvail.ShowC2eFalsƙ If strhB@q"Yes" Then )Z= . + 2 -Aas(1)iTi:msKv14).:ulaR1C1A$=ROUND(RC[" & "& "],0)"NumbeRrAat0[ 5#U - 1$"]-2.5)/5@#*5+`> n. 6_"=if2<55,""under 5@5"",IF=7055 to 70""ov@a)).}IfG#en:6<@2}1DRwbkc ~ߨӨCA ddThis sub usded/ad`erature Al aft1the pointAChas b 6sÀaGfi elds ed.΃*Ap "&?"%yKT-=PPU@R44RRR_.R׍1RZEbRR= RR9`Bߥ?noQa< dQxME(SPSSS0{77F343DD-FB57-4AFE-BE4C-79C833D5B68E}{D05E92FB-FC5B-4AD1-89B1-E464C96D846C} @ % %@@I! "   (8 "@ H Xh xYes'v A@r B@Ro@@No'v A@roXAttribute VB_Name = "UserForm5TempAvail"D Bas0{77F343DD-FB57-4AFE-BE4C-79C833D5B68E}{D05E92FB-FC5BJD1-89B1-E464C96D846C} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BExppose0lateDerivCustomizDP Sub OptionButton1_Click() D str2scYes Unload Ƀ 6Cols.Show EnBd: A2ANo L xME(SPSSS0{173DE1B1-7F65-43A5-B0CC-0A4239BA8BC5}{16AA464A-1488-4EAC-ACA4-EA2969F7E9AF}@ @  % %@7L I!" (8 @.Hx "  "  p !d$(.x A@rC|@8#The selection is not a valid range.A@o@Yes'v%o`No'v%o@8ƱAttribute VB_Name = "UserForm6TempCols" " Bas0{173DE1B1-7F65-43A5-B0CC-0A4239BA8BC5}{16AA464A-1488-4EAC-ACA4-EA2969F7E9AF} dGlobalSpaco False Cr@eatablPredeclaDIdTru BExpose0lateDerivCustom4izDP Sub OKRangeButton2_Click() On Error GoTo Bad Set rngCs_ (RefEdit2.Text"Unload #ExitCP 0: MsgBox "The selection is not a valid r/.hEnd7pA C7"1K7strB/Avail0"YeA' INo $LxME(SPSSS0{B9648E3D-7823-4281-9E51-AA09E033964B}{19817B45-E627-4835-8841-87D33491091A} ph@%p %P@pI!"8D@ 6H ( H2`    !!8AG2Lists %2%((8BldgAreaAG2Lists %2%( !B@xBldgArea %(V =RC[-1]/1000AH2Lists %2%(( BldgArea1000AH2Lists %2%( !B@ BldgArea1000 %(V !!8'zVolts !!8 !B@Volts %(V !!8'| A@roAttribute VB_Name = "UserForm7BldgInfo" " Bas0{B9648E3D-7823-4281-9E51-AA09E033i_@2ttVol 62E("# } UnloadX End!g dk+ xMEmod3DefinePoints")-mod9KoranCharts Mmod8MetricsYmod4NormalizeFields(=    !"#$%&'()*+,-./0123456789;=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^`abcdefghijklmnopqrstuvwxyz{|}~P 0@I! "  (8 B@RK PB@RoPHlAttribute VB_Name = "mod3DefinePoints" @ Sub P() UserForm7BldgInfo.S(how 61pEquip(ohptLPchartDateRngA r PivotTable1 %4WeekdayDaytype7(< Day7(Day7( r!! 5(d DateRng7(DateRng7AkH 5: !<(All)GBold ! !%6$(!(j qA1$(B@HkNot rngdata Is Nothing >(o ptLPchartYrA r PivotTable1 %4 Day7(Day7( r!! 5(d Year7(Year7Ak 5: !<(All)GBold !!(j  5: !<(All)GBold ! !%6$(!(j qA1$(B@HkNot rngdata Is Nothing >(ox(ptLPchartMonthYrA r PivotTable1 %4 Day7(Day7( r!! 5(d MonthYr7(MonthYr7Ak 5: !<(All)GBold ! !%6$(!(j qA1$(B@HkNot rngdata Is Nothing >(ohptLPchartDaytypeA r PivotTable1 %4 Day7(Day7( r!! 5(d Daytype7(Daytype7Ak 5: !<(All)GBold ! !%6$(!(j qHA1$(B@HkNot rngdata Is Nothing Then >(o ptLPchartDayA rA1$(B@HkNot rngdata Is Nothing Then >(oh]H]h]] >( >!B'~ D >(Bpt1$A k !'Data$2B@ >( B@R r r!! CSelect just the headers for the points you want, not multiple rows.'Error in Point Selection'  A@ B@R r r!! .rkkkk r >( $ 2B@  ( (d(  $2(V   xyxME P<<(<<<<<< 22```x %  ( h    (i f`%``` H)%```b n++`p`r (//`pȪr`r thi f%``` H55``  11 ..  %` `````  % p44 0 % P%` HH`` (pHhH(I!| "  ( H Xx  `0 :@ B N N ,h   6  X ` x    N (8 @ X `h   "  "  0 H ` px  N ( 0 H  hx "      (0H ` h2x  N 0 8 P  p "      (  8 @ `  x   N      0 @ "H P  p              8  @ NP    $   "   0 @ $X   "              (  @  P  ` p  L      (@HP X`h  p         *  :P  v  8 @ HP X x       ( (H p (  >  8 8X  "      @ &H ,p    ( 0( 68 &p V H 8 HP J   ,8 ,h *$   (8P"h     (0 H` x ..H`x  0 B   0 H` h 6 , "  0 @ H X " `hpx    * @ Xh x"     0 HX x   N h x     *(@ `h p $    "    (  H  `  x     6  ! ! J@!! ! !N! " " @"`" h" p" " *""" # # # 8# X#`# h## $#  # #" #####  $$ (($ P$  `$ p$ $$$  $$ $  $  $(% L(% Rx% T% H(& p& & & &&&&& &&'  ' '(' 8' H' X'h' p' x' ' ' *' :' ((0( v8( ( ( ( (( ( ) ) @) P)p))) )  ) ) ) * , * ,P* * * * * "* ^ + + + @+ 4+(,, ,, -  8-H- h-4-B-.*.$@.h. p. . ... .. ./ / /0/ H/`/ @x/ N/00 (000"@0  h0 x0 0 0 "00 0 00 ^0P1 .h1 .1 >1 2 282 P2h2 Nx2 222 2 363@3X3h3 p3 x333 3 3 333 3 3 3 33 344(4  @4 P4 "X4 `4p4x4 ,44"444 4445555 5 "(5P5`5p5 5 5 55  5 5 5 555 6 66(6 0686@6 P6 X6 `6p66 6 6 666 6666 "6 :6  7(70787@7H7P7X7  `7  p7 77 77 7 777777 8  8 88 H8X8 `8 p88888 8 ,8 8"8888 9 9 989P9X9`9 h9x9 99 99 99 99 99 9:: :(:0:8:P:h:p: x:: :: :: :: :: :; ;; ;0; (8;`; "h;p; x; <;;; ^<`< .x< .< >< =0=H= `=x= N= ==> > (>0>68>p>>>>  >>>>> ? ?(? 0?8?@? P? X? `? 6h? 4?? ???@@@@ B0@ "x@@@@ @ 8@A  (A 8A "@A 4HA  AA  AAAAB(BHBhBBBBB C (CHChCCC C (C CC]@]X]p] Call CreateLoadProfile >( PivotTable1 %4' 5Bl  '  =RC[Y If rngdata.Cells.Count <> 1 Or .PivotFields("MonthYr")$2B@ $2%B@ PivotTable1 $2%4!B@ 4 Worksheets(WkshtName).Visible = xlVeryHiddenhk`!B26 $2%( PivotTable1  PivotTable1pt1 %2%4!B@ PivotTable1 %49 9"9$q PivotTable1 %4 5 !$&Status ( ! *G  (j ( '(kk  TempRng7( 1degBin7( .1degBin1degBin7B@, 5degBin7( .5degBin5degBin7B@, Holiday7( 7 .PivotFields("Occupancy").Orientation = xlPageField Daytype7( Weekday7( 2 .PivotFields("Hour").Orientation = xlPageField MonthYr7(mmm yyyyMonthYr7( Month7( Year7( 0Time7( h:mm AM/PMTime7(q  Worksheets("Data").Activate% Application.ScreenUpdating = True UserForm8LPdata.Show" If Not rngdata Is Nothing Then* Application.ScreenUpdating = False $2B@/ With ActiveSheet.PivotTables("PivotTable1") For Each cel In rngdataP .AddDataField .PivotFields(cel.Value), "Avg " & cel.Value, xlAverageB .PivotFields("Avg " & cel.Value).NumberFormat = "0.00" Next celB .PivotFields("Daytype").PivotItems("Weekday").Position = 1C .PivotFields("Daytype").PivotItems("Saturday").Position = 2 End With'''''''''''''''''' PivotTable1 %4WeekdayDaytype7%2(SaturdayDaytype7%2( f r f!87Avg f!8 6C@40.00Avg f!87( f r!! 5( Day7(Day7(WeekdayDaytype7(<dh Day7(kHq@''''''''''''''''''B:B$!( C:C$!(A8A:A< >!@!B(Dg7$(! F(g7$(!H F(H > r!! %4%!%!8' L N7J(P  L N7J!R!T(d r!! %4%!%!8'7V(X L Z7J(P  L Z7J!R!T(dk`kX ) .Axes(xlCategory).HasTitle = True < .Axes(xlCategory).AxisTitle.Characters.Text = "Time"5@!B(D5\!^ 5\(^5\!^ 5\(^q Range("A1").Select0 Worksheets(WkshtName).Visible = xlVeryHidden% Application.ScreenUpdating = Trued $2B@kif not rngdata is nothing >B@F ~ >(Bo]]0 >5d9d5\!(fkP h5\(5\!^ 5\(^5\!^ 5\(^5\!!f'b5\!(f `5V! !2!  `5\%j!lB@ ` b5\!(f h5\(qpohH]]ptScatterChartOccAt r PivotTable1 %4 Day7(Day7( r!! 5(  Occupancy7(Occ Occupancy7(< Occupancy7(d@  Occupancy7( Occupancy7Ak 5: !<(All)GBold ! !%6$(!(j 7!%!8'p7v!%!8'rq@ > x7J(P r x7J!R!T(d PivotTable1 %4!! L N7J(P p L N7J!R!T(dkqA1$(B@H ~ %z(|kNot rngdata Is Nothing Then >(o ]]ptScatterChartDateRngAt r PivotTable1 %4 Day7(Day7(Occ Occupancy7(< r!! 5( DateRng7(0 .PivotFields("DateRng").Position = 5d DateRng7(D .PivotFields("DateRng").AutoSort xlDescending, "DateRng"DateRng7AkP 5: !<(All)GBold ! !%6$(!(j 7!%!8'p7v!%!8'rq > x7J(P r x7J!R!T(d PivotTable1 %4!! L N7J(P p L N7J!R!T(dk7%V(7%V(qA1$(B@H ~ %z(|kNot rngdata Is Nothing Then >(o((]]]] !'Data$2B@!Application.ScreenUpdating = True >( >!B'~ D >(Bpt1$A kX !'Data$2B@ >( B@R r r!! r!! CSelect just the headers for the points you want, not multiple rows.'   8At least 2 headers must be selected for a scatter chart.'  ?Select the independent variable first, hold down the Ctrl key, '  4and then select the second and subsequent variables.'Error in Point Selection'  A@ B@R r r!! .rkkkk r >( $ 2B@  ( (d $2(V $2B@ $2%B@ PivotTable1 $2%4!B@ 4 Worksheets(WkshtName).Visible = xlVeryHiddenk!B26 $2%( PivotTable1  PivotTable1pt1 %2%4!B@ PivotTable1 %49 9"9$q PivotTable1 %4 5 !$&Status ( ! *G  (j ( '(kxkp  1degBin7( 5degBin7( Holiday7( Daytype7(WeekdayDaytype7%2(SaturdayDaytype7%2( Weekday7(  Occupancy7( Hour7( MonthYr7(mmm yyyyMonthYr7( 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$!( PivotTable1 %4 f r f!8 r%!8 0 r%!87( . r%!8 r%!87B@,ED  r%!87(d f!87Avg f!8 6C@40.00Avg f!87(k f r!! 5( Day7(Day7(d  Day7(kqA Call BoldChartLines >!@!B(Dg7$(! F(g7$(!H F(H: ActiveChart.ChartTitle.Characters.Text = rngdata.ValueH ActiveChart.Location Where:=xlLocationAsObject, Name:="ScatterChart"A >!@!B(Dd $2B@kif not rngdata is nothing >B@F ~ >(Boh]0 >( %B@H PivotTable1 %4X .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 5: !<(All)GBold ! !%6$(!(j Date7Aq A'` >!V! PivotTable1 %4!!! ` >%VB@ ` '` A >9d 7J999qH  L >%J9999q X5(q  %(^A1 %(B@H >(o H  >(AA% Application.ScreenUpdating = TrueoH   >%( >5@(9 99999K9 .AutoScaling = True5!(5!( 7J!!Arial9Regular99fqH  L; L7J95!B09 9q 5!Arial9 9fq q  x7J 9 95!Arial9 9fqp 95!B09 9q@ q8 q0 o( 3 This sub eliminates the lines on a contour chart]](]@]X]p]]] >( >.' !dG'jX 5!'5!^'5'5'9d5\!!f'5\!(f 5\!j  !l!B(D  5\!(f 9d 5( 5(^ 9 9qh`.% Application.ScreenUpdating = Trueo ]]8]X >( >.  !V ! $' KT !(KT !(KT !(KT !(KT !(KT !(KT !(n |F  !V ! $' KT !B(KT !B(KT !B(KT !B(KT !B(KT !B(KT !B(n .!Application.ScreenUpdating = Trueop] >(5 Worksheets("ptLPchartDay").ChartObjects(1).Select %B@H PivotTable1 %4X .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 5: !<(All)GBold ! !%6$(!(j Date7Aq Call ConvertChartTo3D'` >!V! PivotTable1 %4!!! ` >%VB@ ` '``X  >( L >, L >%J55 9q Call ColorByDayTypeAA >9d 7J999 0 .TickLabels.Orientation = xlVertical . .TickLabels.Orientation = xlUpwardq X5(9Z99Z9K9  x7J!(; .Axes(xlValue).AxisTitle.Orientation = xlHorizontal .AutoScaling = True L7JB@9dq@? %(^1 Worksheets("ptLPchartDay").Range("A1").SelectA1 %(B@H >(o>. Requires Colors from DefaultColorPalette5.xls >(h> >!\7j!l!("7j!l!(7j!l!(7j!l!($7j!l!(7j!l!(,7j!l!(7j!l!(- 7j!l!(. 7j!l!( 7j!l!(3 7j!l!( 7j!l!( 7j!l!(7j!l!(67j!l!(qP<H<!Application.ScreenUpdating = Trueo<<zAttribute VB_Name = "mod9KoranCharts" Sub CreateCalendarLP()d Dim strMsg As BSng 2TitlepfPivot%t'_lLoadProfile `1 Or c("MonthYr").Curre ntPag|(All)" Then$+  can only plot@e parter" & vbCrLf'Ĝ=E& "and must have a si ng> selected. Ě by@ Day wjA/)/pri1to ña KQ.YCHހ\TooG@A !| in`  ,`zBox,, ,$B 1GoTo Error ManyPoints"W"bjBS.OriQ on sxlC`olumnbEu vbHObj;s(1).SYpf" @Range(LPabel,..Offset(0, 1)).FSty |[BoldWA) "A@E9#sFromPT[:C zTru@! PbyeRng6CH("ptLPcxe@.Not Is h ovooc >+typa(eWeekday|E+l2a\mc62bD`/rt r oEIIIJQt1OO52);H0#")8;AA&y;1;geI;P;;;;;;!2:< y<174 '00: :ְLp:YearO:eO:A:CCp ? 1 9ϩtTϩ?{1!y_'/6)./6 /6/6 #Bg&/6q 5S5Ɠ~5Lq15555xpoo3A_ _ q1P_ /?/?/?/?/?e> /?/?т{ wN/?t5/? /?*?_?_?yyyQ?y5#쟨= x?Field .Pivots("Day").Positio n = 6 If rngdata.Cells.Count > 1` Then X.DV.Orienta]xlColumnElseN MonthYr&VICall Delete Extra)Items(/)D@End If For Each pf In .Pxage@pf.Curr <> "(All)" Range(Labe*l,,..Offset(0, 1)).F Style"Bold"=Next@2With "A1UrSIctE=0'Not Is !hing Applicy.ScreenUp@1&TruvSubA  Crea@teLPby@tpype(\jDoadProfile("ptLPchart " V&̧A= ActiveSheet~TableB@AF>K@P~%F 26x_m! 8acN(_m tf_m_m_m _m_m TmY#m mm?m'mlϡ$:!  WkshtName As0 Str`$MDim celC*strTitle1g2DNgI#ZFab#lnghcSettI!ul #@alcMapnualZ0Sb Exist8ptPOO r|S@l upFirstPTs=VQqSWor`W@taE"Y`odUser`Am8LP‰Show /ah*`Row*5Msg0"#r just the head`ers fpoints you want, nsmultip}pzr\z'Errin Pɰle`kon\Box , ,b3 q&O;0$=mGoTo Bad9i'?w9OH9;0 5G)O5S0.AdCObj/s(1).û ss(x 0Fj.T2%2.Clear'/ xlVeryHidd ,0+(Qbook.hXӘ" b Ce. _K ӳ RDese9c:=_Q("B26"),G<*:="1d",fa@Osa:=xlD1 q + !Grand/ .HasAutocat?2 `/  eA & 0kq`RightQ,$ 6!E"Sus/sbint < 10 Then If pf.Orientation = xlHi0ddent 1 B1.Q5Column ~bl/k - 1+`+ 0End PWithB'|Range("A1").Select Worksh@eets(WtName).VisibxlVeryHidden )0Key.#GNext"i17c!WWCteSuterKByOcc(UqTitZSkwGaY`Xfl Day("pti "$YNHzIs Az,Za4Ta s("5$reO@4ntbXPage"_-(K  .Cells1F> 2s"Da6tcb. Sum~nB*upancye_k## $"@"k#A$9"ebPvPeIfkEach In .E>s{1P C<> "(All)" r x@Label,G.Offset(0, p1)).@AE"BoldDp <= .&"1PI*(0Valzq>Rowge#Hgh<lmA.Axes(xlCP{goryf)1lF= /lAxisRac@Ns.TqV= K?cvoEkE== 1= ", xlPrima r@ r r , (ߡDrawObjs"Placem`2TMov s']hPdɘ!lUfBy.eRngllltr` Q lrltTl"l00'lT`Ll=&l).l{ata05pt> p5mpolppNf[c'qrmtQ%u~5+Om)zl~p tDX"AutoSortaDesc,, ro b r rr rrw1orr.rdsrtrrraSL?X^1NHyB1A]e strXTitle = .RowFields(1).LabelRang@e.CellLValuEnd With  ActiveChart .Axes(xlCategory).HasTr \.(Axi/.]acters.TexNt sIfSheet.Piv@otTablD"1").Data.Coun)1 Then (L, xlPrimahn EIf On Error Resupme NNt GroupuSeriesCollenonPlo@tOrderV3Ѭ2).1'GoTo 0("AgSe' CCuDrawi`ngObj05P@lacemeBqxlMovMb'Not rngBd~ Is h@|C Application.ScreenUp I = Sub  Cr:eS @ByDay(WkshtNadAs Str)Dim cel  1 OrbcDx< 2L$ !Q= "t just the hea1s fpoints you want, nomultiprows."% j & vbCrLf "At lea`2&mAbe sBedBa scr c! f %indepe vari! fD, hol@d downCtrl key, "andnD secoAsubsequ?&2in| P/ZT^L 0Box , ,bK(ta(uq%o(U( (/x9[=[ fBadVqU=?9 O>dP0Jc)JF WF.Add? ^`6veW.ow.DisplayGrid`lines'E"\6/xP .Visi me).GiױxDAtgrox ?Ta?A2%2.C`H$z5'/ ! xlVeryHidd4+(A#book.8"nϯ 2Cache. _/ C DeszBy:=("B26"),<:= , Defabrs:=`ּD1 Ȳ4+o@lumnGrAW= 9 Autoxa?/ E{A t' 0 E pf I|n S̋QpERight(pf.Q, 6!E"Status"~A2i< 10OnsP=xl. .Pager o = + Ņ11("1degB|ino o 5yonB_j("Holidayl@ytype").Orientation = xlPageFi@eld . Pivot`s("Daytype")XItem*Weekday*(osi1/SaturH2Hz2OccupancÁ]2 Hour{@MonthY@NumberFormat"mmm y"'!CurrAU C~1).NamehBuHYeaGb8DateTim jRow MZ[$-409]m/d/yy h:^AM/PM;@^H&Subtotals^_5Array(F e, s) End With gColum"n}B:B@9EnPtire.Width2~#ѠC:C1  Active SheetPTa8ble O1"$@` Each cel In rngdataIfA.Value.Ce0lls(ZThenojc/sM _ ).Aut oSortDescending,_(UQN uR#V?[_cWEls%.Addna~ 8F#B), "Avg " &D,`.Aver+(@̴0.00̄ !pIfk NextAX 8qunt > 2 SW.!"h>#;q @=oO0@4 a?_6? 0}Nall CrecScatterChartFromPT tCBold"LinesK .RA@.Border.Sty lG0VSeleOon.Lef|Range("g7!Top? L TiHtle acPs.T&=DF n LoWher e:=xlAsHObjp , :|="/SStandarx#Worksds(strTe?Uf3"#'i f not ishVUAppli3. culAb Bad:G3ElngSetttW!` #3d -ore`K·s(ODim iSeps AsntegerOScreenUpp`""Xf vbpC&oyxoyR;/PU _"K/;oIͼ ,zI6ב&WosW1|WW ؏KP-M rtxl'l DpFteExtraO")u jVpfA.2dP `pf.I<> "(Alhl)" CL@Label, .Offset(0, 1)).Fw BT"Y8Fspt%q9bQRContB3To3D559= 3WhiIiLc;_C$$C"6À|Body2Ds+ n(iSeries).Delet0e  =" $- 1xWend ,Call ColorByDayTypLith ActiveChart*.HasLeg^FalswW5.Axes(xl9=TickLabelSpacingD2"Mark!@DReversePlotOrder"TruDEnd> F,MhRValue)@MinimumScaleIsAuto0CMaxinorUnit&ji.@Area.Widk= 6002 =Sheet.sObjects(1).Height75I Range("A1").S@c@CApplication.ScreenUpdtCc !Sub+nnt To3D(^C'!$xl3DumnFormat3D_stacksHNoLin@esBetw#C@ontour'?l,F,++GroupBSGapb1bM,B<p=F@-@> @pthPercenj9jDeÅElev425 sp@{GAbRotE1IRDAngle{-HG7/O #v.Ws.Intor."Index Flo6B/.&s.-Name "Ar0ial"Styl"RegulDarmSiz8?GAJ!Ů Axi#`faMaGri|dlA_e .Bo.4 "W%xlHaire/.90$,9**Category&_1La != K6q !t;!Q9.!xWc]]qX!EThis sub elimins the 0on a cC` cC Dim  Entry AsCht@Booleahw^Hxgervm [US?2UO IGm mygHp(|] Set4=[ɷ= aIfsZ) Then*3On Error Resu0YNexT+ &= ~4#oD^&s'j.@80_@ Each'.In .Tc.7!"0Key Db.QeoxlNon=a%Q " p EJ$(aW `b *LA+GoTo CY4Noth@8թI1>A sS١tL _B?BFF)m~y@)R `A loVA = Weekday(bs, vbMonp(|OeC1y Case R|ri.~7,3 7 Case 4xmySeries.Int or.ColorIndex = 1 5;|6*>|22. >End Select)On Error GoTo 0 Next  Exit Sub 100: BFEach InCht.c6ionWD@aytypeWeekday(Name, vbhMon )Z o 1 Borde2oHX/3y-"3GLs ЙSeAN@othingX'Applicat@.ScreenHUpdng T`rue   ContourChart(AIDim iS AsVtegerC : Fals@ A!Worksheets("ptLPc S").BObj@ms(1)anActiveSWith PivotTable1"(e'a.Fie ld jthYr!urrentPagApItemr/ Ontb31xl b4Posi;SFIf rng=a.Cellsunt > 1 The&Data .umnE=b w) e`) @C all DteExtrC+/ 3q9ZIfG)pfu!.-sg&pf.C(><> "@(All)"' @Range(Label, .Offset(0, 1)).FC@jStyl!H"`Bold"Bzp?dTA` C ;B zverta"lTo3D%z= 3FResume Whi 5j&88 aBody"~l%d*#r(y )."W - Wendn|cwxlSu0rfacM HasAxis(xlValue) 9U8IsAxH3q.MajorU"n0= (xi@mumSca`- .Min) / 1D?WA9ByBT c T 3or0NoLinesBetwb` S LPaВ= d_q{1R.Tcd;.Tick4Spa>ck&Mark$.Re@.sePlotO_@$ sNV3slGv Upwar& {. Area.Widpk= 60X@-pthPe,rcg 4El4evc9Ysp0tr@Rof@Height7HeCa0ory)lHoriz}Na82isTitle~_ Xuto11C"W65NA.9*?1p5 _ГSzM("A?Zߕ! r3>' Requires@As from`vfault@PFtte5.xl6?/(5cx #}C.BEnt1Key2)3839 4 53 67Űior.ColorIndex =@ 44 .LegendEntries(8)@Key.IntTer7x9x4R5=10 >6>1>11  2 Z5 3 ?41J353065End WithROn Error GoTo 'Application.ScreenUpdng@TrueSub    C6 *%(% C6 *%(% *%( ! %B@ Xpt1$2(V.*o` Pivottable1 %4Aop]](]H]` >(0'( . 5 !$&Status ( j ! *G  (j ( '(kk hing ( 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.'   'Dayt 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@Holiday7Select 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. 5Tahoman(OK OuTahoman]^_`(2DLabel1t1,4OKRangeButton1g  |}~5 *G 9jqDaytype75 *G 9jqWeekday75 *G 9jq Occupancy75 *G 9jq`Hour75 *G 9jq(Day75 *G 9jqMonthYr75 *G 9jqMonth75 *G 9jqYear75 *G 9jqH .5degBin5degBin7B@, .1degBin1degBin7B@,q% Application.ScreenUpdating = True.*ox *** This Sub is Not Used *** *** This Sub is Not Used *** *** This Sub is Not Used ***] %4.. .!35( 5(fq .!Rng35( 5(f7q .!%5((All5(Bold 5(fbold5(q8 h .!%(  $ .!%!"(D..o >( >!B'~ D >(BtYrpt1$A k ptMetricsSF$2(VX ptMetricsSF$ 2B@5 ptMetricsSF (8 Worksheets("ptMetricsSF").Visible = xlVeryHiddend PivotTable1 ptMetricsSF$2%4!B@ PivotTable2 ptMetricsSF$2%4!B@ldD Worksheets("ptMetricsSF").P,7WB*xME (<,<0<<(  ` *X%  xNN).% * % @%`(`  .% &22 ( *png% f fir % * *up t% fatus % 4X66 6 *ated% f$ % 8X *0% fP % <&& > *% f % @ *p% f %x`XX I! "   0 ,@p 8 PX "` h "        @P X `  p :  F 0  P Ph L   0HP h   (0 H`h    (@H `x  ((  ,HP "X &` & &      ( 0 @ P`h      "   0  @ P h p x      > 0 68 6p J J H P  X x  .        ,8 .h      ,  "    ( 8   " B( Hp J(@ X>p *$ ( 0@ HPX "`hp x  0"Px,, D@X p> *$ @ HX `hp "x        (8 <P44 H HP       ,8 h p   &*  0  8 H ,X "  8 X"x B H J0   * $( P` hpx "  ( H"h,, DXp   * $   (0"8 @ Php x   <0484p H H8 @ X h x   ,  , @ "H P X  ` p  !"0!X! Dx!!! ! " *" $H" p"" """ """" " "H# h#"##(# D#@$X$ p$ $ *$ $$ $% %%% (%]@ >( 2B@pt1 (& Set WS = Worksheets("WeatherList")qData$2.*x #+#7#B26pt1$2%( PivotTable1 ivotTables("PivotTable1").RefreshA1$D Worksheets("ptMetricsSF").PivotTables("PivotTable2").Refresh(kA( PivotTable1 %4AA* PivotTable2 %4AB:O ptMetricsSF$2%!B@( >(,5 MetricsPerSF$2B@hYr >(, Worksheets.Add% ActiveSheet.Name = "MetricsPerSF"Bold$ MetricsPerSF %2B@ (A.A0 >B@F ~ >(Brngd% Application.ScreenUpdating = Trueo]X]x >( B26 ptMetricsSF$2%( PivotTable1  PivotTable1pt1 %2%4!B@ ptMetricsSF$2B@Dayt PivotTable1 %4mmm yyyyMonthYr7(Bold; .PivotFields("Daytype").Orientation = xlColumnFieldHB .PivotFields("Daytype").PivotItems("Weekday").Position = 1C .PivotFields("Daytype").PivotItems("Saturday").Position = 2B@H  Occupancy7(Is NPoints5( >( All Periods92Data$2.* fD6 *%( D6 *%(% *%(1 f!8$&perSF f!87Avg f!8 6C@4 >(0.00Avg f!87(k fq.*.fo]] >( I26 ptMetricsSF$2%( PivotTable2  PivotTable1pt1 %2%4!B@ ptMetricsSF$2B@ PivotTable2 %4mmm yyyyMonthYr7( Daytype7(WeekdayDaytype7%2(SaturdayDaytype7%2(= .PivotFields("Occupancy").Orientation = xlColumnFieldPoints5( All Periods92Data$2.* fD6 *%( D6 *%(% *%( f!8$&perSF f!87Avg f!8 6C@40.00Avg f!87(k fq .*.fo  >( >!B'~ D >(Bpt1$A k(   ptMetrics$2(V ptMetrics$ 2B@ ptMetrics (6 Worksheets("ptMetrics").Visible = xlVeryHiddendh PivotTable1 ptMetrics$2%4!B@ PivotTable2 ptMetrics$2%4!B@B Worksheets("ptMetrics").PivotTables("PivotTable1").RefreshB Worksheets("ptMetrics").PivotTables("PivotTable2").Refreshk` Data$2B@ >( B@R >(A6 PivotTable1 %4AA8 PivotTable2 %4AB:O ptMetrics$2%!B@ >(,Metrics$2B@ >(,P  Worksheets.Add ActiveSheet.Name = "Metrics"$Metrics %2B@ (A: >B@F ~ >(B% Application.ScreenUpdating = TrueopX]] >( B26 ptMetrics$2%( PivotTable1  PivotTable1pt1 %2%4!B@ ptMetrics$2B@ PivotTable1 %4mmm yyyyMonthYr7(; .PivotFields("Daytype").Orientation = xlColumnFieldB .PivotFields("Daytype").PivotItems("Weekday").Position = 1C .PivotFields("Daytype").PivotItems("Saturday").Position = 2  Occupancy7(Points5( All Periods92Data$2.* f r f!87Avg f!8 6C@40.00Avg f!87( fq.*.fo]]8 >( I26 ptMetrics$2%( PivotTable2  PivotTable1pt1 %2%4!B@ ptMetrics$2B@ PivotTable2 %4mmm yyyyMonthYr7( Daytype7(WeekdayDaytype7%2(SaturdayDaytype7%2(= .PivotFields("Occupancy").Orientation = xlColumnFieldPoints5( All Periods92Data$2.* f r f!87Avg f!8 6C@40.00Avg f!87( fq.*.foX >(pt1$A k ptMetrics$2(VX ptMetrics$ 2B@ ptMetrics (6 Worksheets("ptMetrics").Visible = xlVeryHiddend PivotTable1 ptMetrics$2%4!B@ PivotTable2 ptMetrics$2%4!B@B Worksheets("ptMetrics").PivotTables("PivotTable1").RefreshB Worksheets("ptMetrics").PivotTables("PivotTable2").RefreshkData$2B@ >( B@R >(A> PivotTable1 %4AA@ PivotTable2 %4AB:O ptMetrics$2%!B@AB% Application.ScreenUpdating = Trueo]] >( B26 ptMetrics$2%( PivotTable1  PivotTable1pt1 %2%4!B@ ptMetrics$2B@ PivotTable1 %4mmm yyyyMonthYr7( DateRng7(= .PivotFields("Occupancy").Orientation = xlColumnFieldPoints5( All Periods92Data$2.* f r f!87Avg f!8 6C@40.00Avg f!87( fqx.*.fo`]X]x >( I26 ptMetrics$2%( PivotTable2  PivotTable1pt1 %2%4!B@ ptMetrics$2B@ PivotTable2 %4mmm yyyyMonthYr7( 5degBin7( .5degBin5degBin7B@,= .PivotFields("Occupancy").Orientation = xlColumnFieldPoints5( All Periods92Data$2.* f r f!87Avg f!8 6C@40.00Avg f!87( fq.*.foԵAttribute VB_Name = "mod8Mecs" Sub SetupFirstPT() Dim WS As Worksheet0Application.ScreenU$pdngFa8lseps.Add=ctiveSN.pt11'y=xs("WeatherList"'Data A5Bbook.PivotCacheG(SourceType:=xlbase, := _[KWS.Range("C6").End(-own),i ToRight))).CrqeRTab le=Dest$in:=("V)B2%,h:="%1", DefaultVersO 10M"Visi!7= xl yH`iddentNothing =P PageFieldsŪCall ptGeneral(CC(tAY81")LptGDpf B,EAiCounBIntegerstrStatusMsgSABCAOn Error Resu@Nexxc = 4#WithW (F E`e @In g.If "X(pfz0, 6)C" |Th;!i-)K$ R;yv("TempRngqu 6355WwCC("1degBin 2a="51E"HolidayO M "DaytlO1ek __ "Occupanc=fth00H7MonthYrYea?'J_G_GW7W'+_&O.AutoSort@cendgG[e]= VGoToBrqhTruP!PTmat ***c`y Use$u0 DaytypdT et 7`AB:O`6Entire.AutoSS@ASs"J#S21SSO@;SISyS2SSonSduSpS  ,"MSSaNEE[4RRRʵ .PivotFields("Daytype")ItemTSaturdayXosition = 2 ' OccupancpOrientavxlCo0lumnwG.Data.Cap0"Points"+GrandTotalName"All Pe0riod(*Set WS!Wor@ksheetta")For Each cel In.Ran ge(WS"D06"), .End(xlToR`ight)(If (*.Value, 5)UperSF" ThenAAdd $D"Av`g " &Y.xlAverage* ).NumberBmat(p0.00H\A'@; IfNextCAWith ^Nothin>gG1@Sub  Gen0lMetrics(UApplic.ScreenHUpdngFalsEb9 a5YTao@ y0.w2.Clear = 2- Refrese an +K) 8NothingC 3AA9= Sub  Gen@*lMetricsPret(@K@Applic¦.ScreenUpJXFalsC8If S[Exis\pt1") Then ACa@o%upFirstPT%IfE3On ErriResu}>3 vpt.@VisiblTruD^FGoTo 0O+,"BHctive>.fxlVe@ryHidd&E- a5KTa@ K0.Range2.Clear 2- RefresY !n +K){ A8atF^gKUsCu8LP.Show*fQsBadOByoBptP"s$u(DN)$x TempBins? Z4 @$ H3B:O@,@Entire.AutoFit 9!A2 <GC*DimAs f a e9#3Abook.@P3d+!:rC0ie. _u0Cre) @DestinY:=Pb ("B26"j|vrQL:="1", DefaultIsp:=xlD1Upe26 k SZx"MonthYrs |teRng H o0dR.G 2=ooooA~oooa1 oV1oFo" ooooE7ooqAEQA,AA?.AAᒳ%B80AA1A԰)AIA=A2AAonA("AוAh cr:(Ao5degrAqn0Sortcend  FrFFF! 0.ճF@FFFcFFFF Sub J@VPoint name was found in original list of headers, so move the original name up 2 rows,and put mapped name in headers J J,6 H!8 J(8d f!8 RP %6%N.J JBPoint 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 H!8 J%6(8kkk f pt.f.H.J.opd1d2d3 ChW_TempIn ChW_TempOutPmp_ChW_Sec_gpmAXsheetsxCall CalcTons("Chlr_ChW_TempIn", "Chlr_ChW_TempOut", "Pmp_ChW_Evap_gpm", "ChW_TempIn", "ChW_TempOut", "Pmp_ChW_Sec_gpm")o8Returns TRUE if necessary Points exist in the PointsList]]]0]H]`]x] \$ ^$ `$ 'h j'ld  `$ d$ f$ 'h jG'lcG'ljkPiH]]]]](]@]X]p] >('rngOrigHeaders %!$L. C6Data$2%(%.z z%6  z%6%$(%6.| z! ' r RP %N.J J J!'~ n RP %N.J J J!' p RP %N.J J J!' ChillerTons z%6(8 z%6!(=500/12000 * RC[ ~  ] * ' (RC[   ]-' RC[   ])'  |( |!8 |(khk`kX bold x RP %N.J! J J!'~! t RP %N.J J>( J!'!B v RP %N.Jpt1 J J!' SecChWTons z%6(8 z%6!(=500/12000 * RC[ ~  ] * ' (RC[   ] - ' RC[   ])'vo  |(ptMe |!8 |(kkkkox]]] ]@]`]]]]] >(.RefreData$2.* Wo *C6 *%( C6 *%(% *%(. !!'  A   C6 *%(%6!8$&_perSF   C6 *%(%6!B@k   C6 *%(%6!8$&_perTonts.Add   C6 *%(%6!B@ldk   C6 *%(%6!8$&_perGPM0   C6 *%(%6!B@ick ng = TqComponentsNormalize %- xME (<(<,6 <h F`(( fXH% Hx>(% J% % `+Z`@ I\ `al lI^ origI` anIb Id !8If `\`^```b`d`f`h X`AAinip(irHithivix J% z% |%  Te%`~G `1d` *`x` `ww f% J *% 8We% XG % xncy% j% % *(%` *`DX%0I!$*\Rffff*1g492ed517 "  ( ,8h ,  ( ( \8 $ 0  H0 @x H  @ HP X hpx  "J ~ h B p >x2 0@H2P  "    , *PJ   ( H X h  & .& &H p         ( 8  X  h $x  . ( &  @ P `  h p x  "              : P `  @x .    B .8  h  Bp .     ( L0 H v p@`&( P 2` F XPhx 8   FZ  HZ0 F8\ H\0<2( 0 @ P X` " 8 <( ,h $ < ,( Xx    $< 8 X $`<    ( X8   ]@]`]] >(pt1rngOrigHeaders %!$L.erLi f PointsList$( f%6.H%Check to see if point has been mapped% H Point has been mapped f!8 RP VT %N.J2.*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.eliAdditional columns can create additional types of normalizations, by increasing the max value of iLooper.  .P, A2 *%(%6  A100 *%(%6% *%(. SecChWTons RP %N.s f Da + Changes to handle numbering of components *% @ Set c = rngHeaders.Find(cel.Value, LookIn:=xlValues)  6C@4   % f!8 f!8 $* f!8$&  %.JdF.Jk2 End of Changes to handle numbering of components J KT?Case 0 Measure is _kW and normalized Measure will be _kW_perSF. J!8 J!8 $_perSF  J%6%%6(8KTACase 1 Measure is _cfm and normalized Measure will be _cfm_perSF. J!8 J!8 $_perSF  J%6%%6(8KT@Case 2 Measure is _kW and normalized Measure will be _kW_perTon. G J!8 J!8 $_perTon  J%%6(8jKTBCase 3 Measure is _gpm and normalized Measure will be _gpm_perTon. G J!8 J!8 $_perTon  J%%6(8jnh  J%6  J%6%$(.  %6%%6.  B@k  f C6Data$2%( C6Data$2%(%Data$2%(. f  f!8$&kW_perSF f!8 f!8 $ Watts_perSF f(8 f%6  f%6%$(. BldgArea1000Lists$2%(B@   B@k@ f!8 $& cfm_perSF f%6  f%6%$(. BldgArea1000Lists$2%(B@   B@k  !' f!8 $& kW_perTon f%6  f%6%$(. f!'   %6B@   B@k f!8 $& gpm_perTon f%6  f%6%$(. f!'   %6B@   B@kk fC6Data$2%( C6Data$2%(%Data$2%(. !( >(.f.J.....*ogAttribute 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ŷTestItCall cTons("d1", "d23ChW_TempInOut!Pmp_Sec_gpmE' Chlr H p @HFun`onnfptGPMevap, ptT1&2%sec%2) Bo a 'Returns TRUEnecessary c excţ8& Sngcts1T1 m iptaIn teger On ErrqRes^u`]1-=#Es(f) _3Q/ +\Oq}TQPP.0lq-sTruDZ @!3 1  b!Z q| s  䎁eEq.u>/str 8Wv8E>e9BCt;wtҤQNLastPtcq9OiColKaj.sKPT% mula%@"//Xp!caO= ѴsheetcDataq("C6p)(xlToRight2=U1A,i65500).cUp))(m@@mumnH1A3UcS m0=yQ! &= c.3d(\<!Og }0/  O t/A2 Q5_f!ƛ"Chipller!'1 ?9Font.Bold3dE U<7=P)/12000 * RC[" &r-(& "] (4I,-!G" & iColTempOut "-hons"] )" rngT|.FormulaR1C1 = str bZAValue 0End If  IfuT"" Then:Set cmHeaders.Find(Pmp_ChW_Sec_gpm, LookIn:=xlIs)#3No$Is hing 4$7c.umDFDInC"EInI%?%&A 'A= L LastPtq.Offset(0, 1).k8"r@RPFont.BoldTrAG=500/12000 * RC[A%Ê& "(N0b ewE&`'%7o-~ me !Sub @vrmalize(dzDim cel As Rang䏢qelAJ0MeasuresN`b CdataSn tWSaWorksheet(i@perIntegerhCellsJApplication.ScreenUpA= Fals$'#`= Fs("D"+With WS!7!`%% S./(W"C6"),%.9(x/Right) ! i4= .B und!`T != 0 ToA  b $@d+Ď,( 6)_.SFA a Entire.DeletSe [7 @. S Wo } 9('g^RC, GPM ")X Next%&C%10G3Thi*sA3b.3ComponentwD4'A sub loops th roughpe colPs on)8 "ea'E ach v! ofv1is anoth Cd txypeQMA'AddiBal poip to be JbPd canaddeo approp0riat will automA@cally._QJ5 `f s, by insM p maxC >3UG`Me("A2{'DD, _Q?8A10"0?er)TSUp S1( olZS򰙓pWG Ab$t/z3K ' ChvI+o dl"umbera(c02 sdӼ3? (cqp19?`0U e(1, i) Li keLeftR(Y en)3)*cgK' /co E{:oe`_n_aLOS_iSoct CasneU0 u' : N_kWrGJHL #}@]cd-p@؊8ʣ!*!a!0b! 1 111cfmb will be _cfm_perSF. c.Offset(0, -1).End(xlToRight)86Value = LefPt(c.,n) - 0) (& "w"wCaPse 2' Measure is _kW and norma lizedwikWuTonIf Not ceqns Ishing Then cD33 gpm@ SelectASet rngCdata`Range1,,k655 00ůUp))-BTCopy Destination:=E BIfNext iHeaderGBCLoo Ms 'Workshee ts("D)").)"C6")<, #-Fo@r EachAl Ina8dp‹( 8)`"CxSF"q'#elj Watts!b K@DLL'L& Lists-"BldgArea1x000DkD.PasteSpecial O<$IxlDivide, ":=xl݂s mJq.9b..$t(Bbq$8c$$w$$ ao'' %XiCo=E. umn/f֑/! 00xlP Cel45{ 1 RXe2- p)py!--`,-!0}-UR 0 >E1= "WqO hf@7-_.@Og OT:GmOOOOOC MghD*OgOghsWOgjOg .Font.BolBdTrueUqA pplic"T.ScreenUpCq=  00@qcOR#W.AQJ(WS9Sub __SRP_6 |__SRP_7$' gmodzUtilities __SRP_8(:hi//////@`9a000000$!`n+^hxME(<6 < <+`@ I  x%+` I ` +`8 I .*`hPivo%@pI!$*\Rffff*1h492ed517 B 0 P X` hx B  :  B  4 X`Bh ]`'  ! !$ $X'z k >(i3Returns TRUE if sheet exists in the active workbooken map](  %.has jG'cG'ji.Returns TRUE if Point exists in the PointsList`]X  PointsList PointsList$2%( >!@%'h  jG'cG'ji( Attribute VB_Name = "modzUtilities" Function Exists(my0) As Boolean  Dim N~m,>&lFalse.For Each0In AdveWor@kbook.5s(XIf UCase(Nm)KThe/q xTruwt n4End IBfNextO   Sheebtn(sn'Returns TRUE if s e in@ the a| .w}=xObject On ErrResuׁO Set xOsL!0 L H0I< EhmAPoinAPtA^B s BsL@*@iptAAIntegerAA = A@pplica.]o.Matc$h(), s("").Range, 0)C ? QB QQrU~| arU (`/(`/(`/n__SRP_9<UserForm8LPdata @modzKoran3LumodMetricsTable )}LxME(SPSSS0{1ACB57D0-694C-4E30-80C4-371FD0508AED}{B9742C0C-B532-47F0-86CA-0B941D8898A5}8 @ riit% %@@ I!" (8 @.Hx "  p !d$(.r A@r |@8#The selection is not a valid range.A@o@ t vG.rjoXPAttribute VB_Name = "UserForm8LPdata" Bas0{1ACB57D0-694C-4E30-80C4-371FD0508AED}{B9742C0C-B53 2-47FJ6CA-0B941D8898A5} d@GlobalSpacoFals"e CreblPredeclaIdTru BExpose0Templat@eDerivCustomiza DP Sub OKRangeButton1_Click()  On Error GoTo0 Bad Set rng_ (RefEdit@1.Text!Unload ܃!ExitB .: MsgBox "The selection is not a valid rA..hEnd6_QueryClS(Cancel As Integer, aModeHD/IBfH= vbAControlMeHnu 'n BNothing H%     ( 8@`(h:6,0 F` < H 0X   , ( 0 8 @ "H P X ` h p x                0  H h 8 ,  4 h0 F  8 X0 : 4 b :h  * R @HPX `"h p         ( 0 8@HPhpx      (8HP X (p "    "0@ H`x        8HX` h ( " ( "0 8 HPX  ` p    V   @X`p x          ( ,8 h " px   B    8 .Hx              ( 08 @ P (X   ( VYxME P<,%`  33)  = T % :@ . % ` @ % <  %`>`@  0 %`B`$`D  P ` ;;) . % :  %  ! % <  %`>!`@ 0  %`Bws`ET(p`D6550`R xp 0( pP  I! "  (08@HPX  `  p       . @Xp      ((@0P6  N,X    , HPX `"h px        ( 0H P` h .x( 8 @ H PX` hpx      "  ( 0P p   "  ( 8@ X hx       ( 08 @ P`" h  p" "      8H` h xBP*pJ  PXx 8 P h x           !!! ! (! " 0! 8!@!H!P!X!`!h!p!x!  ! 0! ! !(!"0"$@" 6h"" " " " " " " "# ##(# 0#8# @#  P# `#h#p#x# # " # &# &# &# $$$ $($0$8$@$H$P$  X$ 0h$ $$ $  $ ($  % 8% $H%  6p% %% %%%%%&& & &0&8& @&  H&  X& h&p&x&& & "& & & & &&  &' '8'P'h'''''' ''']@]X]x]]]]]]]0]P >( .* .A *%45.q8  *!4 5.q  F$RangeGA1$(B@Hj  $A1$(B@H  $a F%6B@HXkP B@  >(( >!\%j!lB@ ptNumFields *%!$L'    >!VB@* *! !ptFieldName 00$'' *! '!ptField 00$'=   >%V(Co=   >%V(*  sub lH ActiveChart.SeriesCollection(1).XValues = "=Sheet1!ptField0Category"ue' *!'!ptField0Category'rmal=  >%V(s  >!\!(f be  *! >B@n >!@(at ~ %z(| (Vtional% Application.ScreenUpdating = Truealiz..*.op]]]]](]@]X]p]]] >((% .* *% . SeA *%4.s5.Daq  *!4number 5. *%q Set c F$RangeGA1$(B@Hj  $4A1$(B@H0  $a F%6B@Hk B@s for  >(ou w >!\%j!lB@Erro ptNumFields *%!$L'   >!VB@' *! '!ptFieldName 00$'r' *! '!ptField 00$'' *!'!ptField0Category' ? ActiveChart.SeriesCollection(i).Name = "=" & seriesNamevo=   >%V(=   >%V(ts=   >%V(6 ActiveChart.SeriesCollection(i).MarkerSize = 3 * ActiveChart.SeriesCollection(1).Delete  *! >B@ >!\!(f >!@( ~ %z(| (V% Application.ScreenUpdating = True..*.o] ]@]`]x]]]]]] .* *%4.0 !0. 9 9"9$q !%6. !! '  !! %. %. *!!ptFirstDataCell  !B@ *!!ptFirstDataCell %' !!' *! !ptNumFields  !B@ *! !ptNumRows-=COUNTA(OFFSET(ptFirstDataCell,0,-1,65500,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@.*...o0 >( >!@( >!5B 9 9Dq@45(q( x >%J9 95 9q5!B9 9 9Dqq x >%J999qx L >%J99 9 9 95!B9 9 9Dqq >!\(4 >!\!( >!\!Arial99fq >!@!B(D!Application.ScreenUpdating = Trueo`p] >( %B@ >!@( x >%J9 .MaximumScale = 10005(q >!@!( L >%J#,##0.05( 9 95!B(qH  >!V  9 9 99q  >!\(4 >!\!( >!\!Arial99fq 4 >!!( >!@!B(D!Application.ScreenUpdating = Trueo8 ]  >!V!   >%V!B( o ( >(]h]] >(, >( >!B'~ D >(BA PUser selects data range (not including times or headings) prior to executing sub Set myRng = Selection''''''''''''''''''' %4. !0.  9 9"9$q` !.''''''''''''''''''' .  A  AAAA..* ~ >(B% Application.ScreenUpdating = Trueo ]X >( ! !H ! !^Calendar$2!%. " $ !B@  ! 7V!B( 7V( x N;( .HasAxis(xlValue, xlPrimary) = False9d9P 5@!B(D 5@!(5R9D9^99HY9K9^ 5B(D 5(q5!B 9D 9D09 9q x7J9 " .HasMinorGridlines = Falseqx L7J9 &9 " .HasMinorGridlines = Falseq( x N; L N;  x N7J((0 L7J!( x7J 9 9 95B 9 9Dqq L7J!!9f9 !G 9j !8G 9j ,9*qqox]] >('. Calendar$2! L !%J! . L !%J!'.kh  Calendar$2! . L !%J( L !%J( o >(]0  ! ! x7J99995!B09 9 9Dq8q0 L7J995(5!B09 9 9Dqqq A0 oP !  L7J!B(D  x7J!B(DqHo@ 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 %(Vko]] >(Calendar$2B@ 2!.*Calendar *(pt1 >(,rs A1:A2 *%((2fFA3:A8 *%((2A1 *%((B1:H1 *%(( map=LOOKUP(MONTH(''  !'! %%6!'.J  ),MonthArray)'name  &  " "& Year('' move  !'! %%6!)'J E1$((!8JRange("E1").Value = GetMonth(Month(myRng.Cells(1, 1).Offset(-1, 0).Value))MondayB2$((8 in liTuesdayC2$((8d up WednesdayD2$((8viThursdayE2$((8n reFridayF2$((8on't nSaturdayG2$((8SundayH2$((8 4E1$(( E1$(!Arial9 Bold Italic99f9qXB2:H2$( 49  896q(B2:H2$(!Arial9Bold9 9f 9qo]( ]H ]h ] ] ] ] ] ] >( %%6 $'D : !  :$. %%6.< < $'> <$F'@ D @   'B B >b2:H6Calendar$2%(%.  @ $H985( J9  8969L9N5 9Bold9Arial99fqq  A :.:..<.ox  *** This Sub is Not Used *** *** This Sub is Not Used *** *** This Sub is Not Used ***] ] ] ] ] ] ]8 ]P ]h ] >( %%6 $'D R !! R$B@ : !  :$. %%6.< < $'> <$F'@ D @   'B B >b2:H6Calendar$2%(%.  @ $H985( J9  8969L9N5 9Bold9Arial99fqq  A :.:..<.op >(Calendar$2B@ ( (TA1$(B@H !V? >%Z9X? >%Z9\? >%Z9^? >%Z9`? >%Z9b? >%Z9d $B$1:$H$89f9h j9q8 (lo Attribute VB_Name = "modzKoran" Sub CreateLineChartFr@omPT()x Dim cht!~As SngD 4WS *Worksheet 0wb0bookmySeries sjpValu= X numField=Integer>iH myRpange p@vtTabl PivoApplication.ScreenU$pdngFalseSet = ActiveS BCall PT_Ks)With).%s(1@tm6= .1B2CEnd For Each "B1" Then ("A1"). NotR {rs(^C ell, F) Is @ hil2+Do Upntil'H3.Offset(0, 1/LoofpKIfE6sp.AddC{.gb' Pxl~O n Erre7+&.D8raw@ iPlacement`xlMovF#Window.Visi= ɣ7Tru&fN Q"i^Q  !H鄀tter щS 2|͋1ύ & L cu"r&Й5AB}@/, #!!"1\S# le1NSp`1Oot gechc"<lXYT?Eox)dooe!g8OsOOLO T OO3CQb@nUrak߿cGI" LogwadM/V܇(/OPAK/1gTooon orP Marker3/&shiL"ect, Nam@e:=WS.  ActiveChart.Legend.Font.Size = 8VArea.AutoScalebXFalse `Sheet.DrawingObjs(1).Placement4xlMov5 7Window.Visibl Y#'pplication.ScreenUpdngSTruQ@Set wbN8othC! WS myRang: End Sub  PT_s() !)Dim )As Works} `pvtTaePivomy& StrR)G :FieldNumIntޢrnums@rowMaxptRowS myFirstCell#strFormula1C$[_…MG=P.HACOn Error Resume Next(GoTo 0 With EC A.Col@umnGra= BHas@3, 1D/a_bookBs.Add & "!pt" ",:fersTo:=LJ= (R &bh"cWw2riorolorIndex 52C  Axes(xl %8J.Majo@rGridlp sPsTickMarkxlNS.O?I?r_"ArialX 7SN'YQS]!tterQ]tStandar@d() Dim mySeries As $lApplication.Scr@eenUpdng = False RctiveSheet.ChartObjects(1).A6atV e#)Area.AutoScaleFont \With 7Axes(xlCTgory].MinimumKG0'!.Max10.TickLabels.NumberFormaI"0"&End I ~ iIntor.ColorIndexH2!iValuegG#,##0.JljorMark6xlNonina@Gridlines.Borde08SAI EachGInJmC@Cl@%BCC,@2erBackgroun2dJSxlgic $e StyleODiamondSiz 3.NextCъLegendվ D 5ՕD ).NamA"ArialZ .dT<PlotBwI"dbJL`Le-`pb'TruY-S ub* Bold  s+oger Umyr01 ToZU`xuntC2Z( )g WeighxlMediumCib ,C@LPsFromPTo_%MR`RangWSAWorksA2,cDisplayAlert>sd"Ƃlng cSetti !ulΏtManuall AddA]MhArray'User seAs `a rA$ (not i nclud!timor heas) prito execusAQb̠~/v=銝'cpvtTab"fpPivoO n ErrResu`yI Cell.<Go/7X alumnG`dKHasXp5rH!Row} Q/e%.DataBody8,o''9WS2?0 HU!pWaru(,#wbLoopREBuild`=  bsC2Grefyfu my` Nxoth'#q0:= Vso2b25()>TGPri:vp rU"(rg;@LD, !`LocCqD`%/ 1`D= fJs("":)j.>!  .Left) .TopAWidthH3RZ$ chSWiz Source:=, gal Py:=xlLl3 0~btpbRRoPM2WC8xis8, xlma"9".Wb/?A ÅTitL@2!Oox. Aw2 b 8A6$p1%_.975[  U4<+$q. CtinuouO!b 4X.Hairw`1 q&M:`<'q.QX_Mf"5-Insidęe 6B qA/@PMrimary) = True  .HasAxis(xlValue, xlPAxeRCatePgory X.(TypexlAutomatic@j).TickLabels.NumberFor#1="0"5With . {)@.MajorPMarkNoninJPos`ition&KB`order F5W eightHairliFL 0StylEn|d 62FFont ).SizA5ColorIndex.1LIf rngPl@otLoc. umG2 Then R3 ‚.BackgrouF=Transpare9KI G Sub   SetSc alDim xMax As DoublmyCvChartObjecDW@Applic@on.ScreenHUpdng8F8als@\= 0 Each In Worksheets("C(ndar").sU imum >!7g) '!'+IfNextC_A,Axin"&1IfEv aFGreyGridzs(F? cH%ActiveS!A?g%e"f)+JI$\eff Spacia16Ka". 48/_+`.˶Cinuouq$ GK#  4 B4x{Bqc " q bc.Wdftq_Wl ??64BeBaeh\"< ]. ;?D2OpN y AddNameM.hArr\ayO}Etj")R}7,'t` Noth@@SE2q1Naobook.Qs.p :=", RefersTo:= _'~"={1,""Janu!"";2Febr3March4AprTil5ry6June7 lQ8Augustp9SepLte10O8ctoNoFv1Dec}h ).Vi|si :!x/ub ud(WS2(,{RZ`Range)!kW>S3lSt>rqOn@ Error@sume A5 ;`Delett+ ݰ =A#Sb$@'6GoToE) DisplayAlertspf("A1:AB2PRowHE2$WS.U3:Aj8\7_1 sWdidp= $BH1:Ho17s my= "=LOOKUP(MONpTH('%&2& "'!" &# .Cells(1, 1).Offset(-0)resn"),w:) " "!& Year , SDEqmulnaS')EGet (Smy2v 4HB"ce/Meq50`"?foU2sf4 !Yf5 ^!"f~yffA W0 H ` x  >     ( @ X p      <  ( 0  8 H P "X `  h  x  , , * 8 X ,p 0  "  8 X x     PX*` ~0Z828bp2xb 4 Xhpx   88P 0p0>8x> 8PXp <( hpx    "        @ *P . * , * &@ (h "LL(Lx   PX*` ~0Z8 28bp  R x 4    @8`  . 0 0 H ` x    > ! !8!P!h!>p!!!!!""0"H"`"h""""<" "## ## " #(# 0# @#  `#p#x#V#"#$$ $0$P$(h$*$$ $$*$%, %P%0h%%% % %%% %%% % %%& & &  & (&8&@&P& h& p& x&&&&&&&' '  ' (' 8'H'P' 2`' .' '  ' ''( (( 8( H(X( 0`((  (( "( ((()0)P)p)) )))*0* H*X*p****** ,* + "(+0+8+@+H+P+  X+ h+p+ ++ ++  ++, , @,H,`,,,,,,-0-P-p--- -- *- .(.0.H. *`. .... *. / /(/@/ *X/ //// */ 00080 *P0 0000 *0 11181 *P1 1111 *1 22 282 *P2 2222 *2 33 3^03X3F3 04 @4.`444*444.5H5`5*x55  55 (55 "566@ 6`6h66@6666B687@7X7>`7777@788(8B08x888B8889D9X9`9x9B9999B98:@:X:B`::: *: "; $(; P; p; ; ; ; ; <(< 8<]@ >( >(p On Error Resume Next% Application.DisplayAlerts = Falseq%  z7"(D  |7"(D  ~7"(D  ~7"(qD26$( C26$(%%6$(  x7"(D  x7"(  ~7"(D  ~7"(qhH26$( C26$(%%6$(  x7"(D  x7"(qD26$(  x7"(D  ~7"(D x7"( ~7"(qpH26$(  x7"(D x7"(q 4C27:I27$( C26$(%$(!(AAA >(p.*o`] >( >(p On Error Resume Next% Application.DisplayAlerts = False% Worksheets("MetricsPerSF").Delete$ Application.DisplayAlerts = True On Error GoTo 0 Worksheets.Add% ActiveSheet.Name = "MetricsPerSF") ActiveWindow.DisplayGridlines = FalsePointsC26$(( All PeriodsD26$((WeekdayE26$((SaturdayF26$((SundayG26$((OccH26$((UnoccI26$(( ptMetrics$2.* r *(VB28 *%(TotalC27$(B28 *%( B27 *%(% *%(B@dC27$(B26 *%(B@khC:I$!B@_=IF(ISERROR(GETPIVOTDATA(T(RC3),ptMetrics!R24C9)),"N.A.", GETPIVOTDATA(T(RC3),ptMetrics!R24C9))D27$((D27$( C26$(%%6$( vlD27$(B@t}=IF(ISERROR(GETPIVOTDATA(T(RC3),ptMetrics!R24C9,"Daytype",R26C)),"N.A.", GETPIVOTDATA(T(RC3),ptMetrics!R24C9,"Daytype",R26C))E27$((E27:G27$( vlE27$(B@tE27:G27$( C26$(%%6$( vlE27:G27$(B@t=IF(ISERROR(GETPIVOTDATA(T(RC3),ptMetrics!R20C2,"Occupancy",R26C)),"N.A.",GETPIVOTDATA(T(RC3),ptMetrics!R20C2,"Occupancy",R26C))H27$((H27:I27$( vlH27$(B@tH27:I27$( C26$(%%6$( vlH27:I27$(B@t I26$( C26$(%$(!Arial9 9f 9q C26:I26$(!Bold99q@ C26:I26$(!( hD26:I26$(( 0.00I27$( C26$(%$((C:C$!B@Gz(@D:I$(I26$( C26$(%$(  x7"(D  x7"(  z7"(D  |7"(D  ~7"(D  ~7"(q D26$( C26$(%%6$(  x7"(D  x7"(  ~7"(D  ~7"(q H26$( C26$(%%6$(  x7"(D  x7"(q D26$(  x7"(D  ~7"(D x7"( ~7"(q( H26$(  x7"(D x7"(q 4C27:I27$( C26$(%$(!(AAA >(p.*o` ] >(8 >(,MetricsPrePost$2B@ >(, 2B@MetricsPrePost ( (# Range("C26").Formula = "Points"( Range("D26").Formula = "All Periods"$ Range("E26").Formula = "Weekday"% Range("F26").Formula = "Saturday"# Range("G26").Formula = "Sunday" Range("H26").Formula = "Occ"" Range("I26").Formula = "Unocc"PointsC26$(( All PeriodsD26$((DateRng ptMetrics$2%4%%2E26$((DateRng ptMetrics$2%4%%2F26$((DateRng ptMetrics$2%4%%2G26$(( ptMetrics$2.*B28 *%(TotalC27$(B28 *%( B27 *%(% *%(B@dC27$(B26 *%(B@khC:I$!B@_=IF(ISERROR(GETPIVOTDATA(T(RC3),ptMetrics!R24C9)),"N.A.", GETPIVOTDATA(T(RC3),ptMetrics!R24C9))D27$((D27$( C26$(%%6$( vlD27$(B@t}=IF(ISERROR(GETPIVOTDATA(T(RC3),ptMetrics!R20C2,"DateRng",R26C)),"N.A.", GETPIVOTDATA(T(RC3),ptMetrics!R20C2,"DateRng",R26C))E27$((E27:G27$( vlE27$(B@tE27:G27$( C26$(%%6$( vlE27:G27$(B@t Range("H27").FormulaR1C1 = ' "=IF(ISERROR(GETPIVOTDATA(T(RC3),ptMetrics!R14C9,""DateRng"",R26C)),""N.A."",GETPIVOTDATA(T(RC3),ptMetrics!R14C9,""DateRng"",R26C))"L Range("H27").AutoFill Destination:=Range("H27:I27"), Type:=xlFillDefault~ Range("H27:I27").AutoFill Destination:=Range(Range("H27:I27"), Range("C26").End(xlDown).Offset(0, 5)), Type:=xlFillDefaultg26$( C26$(%$(!Arial9 9f 9q C26:g26$(!Bold99qC26:g26$(!( hD26:g26$(( 0.00g27$( C26$(%$((C:C$!B@Gz(@D:I$(' Columns("D:I").EntireColumn.AutoFitg26$( C26$(%$(  x7"(D  x7"(  z7"(D  |7"(D  ~7"(D  ~7"(q8D26$( C26$(%%6$(  x7"(D  x7"(  ~7"(D  ~7"(qH26$( C26$(%%6$(  x7"(D  x7"(qD26$(  x7"(D  ~7"(D x7"( ~7"(qH26$(  x7"(D x7"(qH4C27:g27$( C26$(%$(!(AAA.*o ] >( MetricsPerSF$2.* B@ > 9C26:I26 *%( C26 *%(% *%(" C@  MetricsPerSFC@q >!@( %C1$(! 9C1$(!H9HC25$(!HC1$(!H 9^J25$(!C25$(! 9q8 >9PAverage Electrical Demand5!T(d x N7J(P Time Category x N7J!R!T(d L N7J(PWatts per Sq. Foot L N7J!R!T(d9d5\ J95Arial99fq(q 59H9^q L7J 9 9 90.05(q45!( L7J!!B9 9 9Dqx45\!( L7J!R!(f L7J!( L7J!!(f x7J!R!(f599H 5(fBold5(q5@!B(D+ .ChartArea.Interior.ColorIndex = -1' .ChartArea.Border.LineStyle = 05@(5(H/5(P x7J!R(Z L7J!R(H5(^5(^5(q) ActiveWindow.DisplayGridlines = FalseA1$(B@H >(o@ >(YearA9$((MonthA10$((MonthYrA11$((DayA12$((HourA13$((DaytypeA14$((WeekdayA15$(( OccupancyA16$((HolidayA17$((5degBinA18$((1degBinA19$((A9:B19$(45(  x7"(D  z7"(D  |7"(D  ~7"(D  7"(Dq(A:A$!B@% Application.ScreenUpdating = Trueo]8]X]p]] >( shPageFields$2(V >(, shPageFields$2B@ >(,( 2B@ shPageFields ( shPageFields$2.*pt1$2%4.. *YearA17((MonthB17((MonthYrC17((DayD17((HourE17((DaytypeF17((WeekdayG17(( OccupancyH17((HolidayI17((5degBinJ17((1degBinK17(((All)A2:K27((8qHYear .% 52! 72  A1 *%(,6 qMonth .% 52! 72  B1 *%(,6 qXMonthYr .% 52! 72  C1 *%(,6 qDay .% 52! 72  D1 *%(,6 q`Hour .% 52! 72  E1 *%(,6 qDaytype .% 52! 72  F1 *%(,6 qhWeekday .% 52! 72  G1 *%(,6 q Occupancy .% 52! 72  H1 *%(,6 qhHoliday .% 52! 72  I1 *%(,6 q 5degBin .% 52! 72  J1 *%(,6 qh 1degBin .% 52! 72  K1 *%(,6 q    A2$(%6   A1$(%6%$(.~! ListPivItems  A1$(%6!8 ~ !B@ ListPivItems  A1$(%6!8 %(V J3$((blank)J3$( J1$(%$(.~AA1$(B@  ~B@J3$( .  ~B@k K3$((blank)K3$( K1$(%$(.~AA1$(B@  ~B@K3$( .  ~B@kP X *(V.~!Application.ScreenUpdating = trueo B9$(!C@ l  =ListPivItemsYearC@q B10$(!C@ l  =ListPivItemsMonthC@q0 B11$(!C@ l  =ListPivItemsMonthYrC@qB12$(!C@ l  =ListPivItemsDayC@qXB13$(!C@ l  =ListPivItemsHourC@qB14$(!C@ l  =ListPivItemsDaytypeC@qB15$(!C@ l  =ListPivItemsWeekdayC@qB16$(!C@ l  =ListPivItemsOccupancyC@qB17$(!C@ l  =ListPivItemsHolidayC@q0B18$(!C@ l  =ListPivItems5degBinC@qB19$(!C@ l  =ListPivItems1degBinC@qP(All)B9:B19$((8# With Range("B9:B18").Validation .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End WithoAttribute VB_Name = "modMecsTable" Sub PSF() Dim WS As Worksheet`4Application.Scr@eenUpdngFalse 'EnsEven,ts%''TOn Error ResuNexp KDisplayAler L+s("nPerSF").DeletO+Tru PGoTo 0]!8.Add ActiveS.HWindow.qGridlineRange ("C26jFo rmula"PoiC D All Diod sK EM Week(dayK FM Sa(tur G unE H OccKI1MUnoNSet=G}ptY| WS.Vis&iIxldVeryHidden)EIf.MB28") <> "Total" T~hA AV@ "B ,7gEnd(xlDown)).Copy D estinB:=لC2 +E {bnd If Column"C:Itire.AutoFi+&{DDA.JR1C1`&_ "=IF(ISERROR(GETPIVOTDATA(T@(RC3),h/!R24C9)),""N.A."", ?"@@ JZ+ , g3.Offset (0, 1  Type:=xlFillDefau6lE_$_$SFC$$Dayt@`$R26C&'\VhK%"@:G,27C$HZ/ / 2/("H//1/0C2/upancy0Vu+0c:0@:I?0AF?0uI050np:With5$[7PFonD5aNrAriVSSiz128KorIndex\QmTc#=  u] 1sssStyl’Bold2W!Interior _l 25E yAHoriz0alAlignm RighG".M).Numb$erq\at"0.00D EaCOa7Daa DcWid= 12.29O( `  BordersEdgeLeft).LxlCinuousogj !ti!1 .Topnz8 BottomhP o/h3x/$ /kpo0xl;e ut `SF  t0   ("/ / / ?69 +#= \9D KW]H"4# ]#al5@3 Ca@Sy0onpdt ListPageF0ieldϊricsTableDataVal Application.EnEvents = TrueSet WS(Nothing End S ub@ Met()DimhAs Works0heetO vScreenUpdngcFalsy%j',On Error Resume Nexp9DisplayAleruG9Xs("mPerSF").DeletO+APGoTo 0]!8.Add Ac tiveS.N2aj= HWi ndow.qGridlineAtLRange("C265Formula_"Poi" D AllB DiodsK EM WeekdayK FM Satur G un H (OccKIMUno8ƶ }pt}"WS.Vis&i@IxldVeryHidden)ŵIf@.DMB28") <> "Total" T~hA A@ "5B ,7@g(xlDown)).Copy DesHtin:=C2 4E  =I? {If C olumn aC:BItire.AutoFizD DA.JR1C1`&_ "=IF(ISERROR(GETPIVOTDATA(T(RC3),&/!R24C9)),""N.A."", ?YP*9 , fH2.Offset(0, 1 Type:=xlFillDefaulE###@#Dayt#R26C%_Zkg$"@:Ga,_27CF'. _/ 2_/("H_/_/ '0C2@/upancy/?=U5//@:I/AuDxH/5/no@WithT5$Z6qOFon4MqAriUSSiz2e0G128Kor IndexxlQmTc#O \? 1r0srStyl"Bold2W!Interior@^l 25E xAHoriz0alAlignm RighZG"L).Numb$er[at"0.00D e`Co`7d`a DbWid= 12.29O( `  BordersEdgeLeft).LxlCinuousogj !ti!1 .Topn y8 BottomhP o/h3x/$Ÿ/oo0;e ut `SF  t0   ("/ / / ?69 +#= \9Da-s .FH"4# ]#al5@3 CaS0ondt Call ListPageFields MetricsTableData Val |Application.En@Events = TrueLSet WS(Nothing End S,ub@ bPrePost()bDim;As WorksheetV }ScreenHUpdngjFalsOn Error Resume NexE CDisplayAlera!1=s("VS").Delet5'GGoTo 0t1.Add ActiveSz.Na\= ? Window.dGridline  'ARang@e("C26aF@ormulaM"hPoi@p"I DM A@Periods E WeePkday F SPatur G unS HM OccI Uno C@I `HD GɗptDAePivotBs0(1).("!eRngE Item -MVt ~2s2 3 #t If.B28") <> "Total" Then Ya`WS"", J7@,(xlDown)).Copy Destinb:= C2` E m?$ aIf ColumnC:I!tire.A`utoFiDDA.zR1C1`{_ "=IF(ISERROR(GETPIVOTDATA(T(RC3),&P!R24C9)),""N.A."", l׮P* , cH2.Offset(0, 1 Type:=xlFillDefaul#E#c##0C2#Eq",R26C%%|/($"@:Ga,P C$G/x2dH * **!R1*++. on@ :I(!,Oe$OCJ15ODA3BWith6$gqr/8WQFonP611qAriWSSizeH128LorIndexxlmUc#P %^ : N!Styl"Bold2WG!Intr_l 25E 0AHoriz0alAlignm Righ3g"n6).Number!]at"0.00@ 3 bCbb DdWid= 1p2.29)EngO( n##s1 .BordersEdgeLeft).LxlCinuo>uod $tiä$oeTop9 Bottom hP o2hx2$/%{t6= >oes` Ed~ aB `V-{0:t"/ / t2yle = xlContinuo us .Borders(xlEdgeRight).LineDSt(LeflColorIndex2-End` With; Range("H26")RH DADC27:g2P7"),MCM.Down)).Interio4r.r5aCall SelectionFil ListPageField MetricsTableData Val )Set WSNot@hing bS ub Chart(SAtbuteJ.VB_Descrip&"Macro recd 1/3/2007 by Bi2Ko@ran" Proc+Invoke_Func \n14ADim0As Worksheet6Applica$.ScreenHUpdngF0alseNAFs("=PerSFCs.Add›A@dveC%".TypElumnStackeB @`SourcBf :=WS.K"@:IA,';D"), _ APlotBy:=xlRoFwD.LoI `Where%AsObj N, Nam "# AF !C Area.AutoScaleF /(S7xs(1ixvj1cB+ 1Top HeH25 -tA AWidthJf G#(EHasTitTru`S!Ia #ac.Text"Aver~ E|al D`emandcBAxeCategory,@Primary).AxiqTim  ueIO:Watts per Sq. 0Foot@Ledge = -4.C6Posixl>#[bg5rial(Siz8k+k/A{m.qAZ= 2hc _257'u d 8MajorTic kMarkxlNon+CinOMALabelzNP.To 0s.Number Forma10.0(_ ./wb!w/q 1.2Gridl0s :| \.WGxlHairao]o T+O N . 4+.(1 U p]qu3J)F?3CgR)27913\Z;(.A"BolVRtRp0' O-_a$)oyhiD4 rp= 30&36)ݙ97U}433Window.Display@%ԤAúUShȷ;o19Qula "YearR 0+MPh=W! h2Y2Day}3H-z4Nt]A Wpeekd@`;rmOccupancn yHoli18 5deXgBi 11ZJ9:BH0/?!?Ii=s4lO_T,s .Borders(xlEdgeBottom).LineStyle = xlContinuouRight,nInsideVertical䇡CB $= 1 [I`s.Count aWS JOffset(D+ 1)`KH$(!D CPt"\%-`b(""n?JAt("O xtO"vO cC_ Ap-- PS-H_ -- 9L ?9@379Q  ?9?9("T DD Z ""D] ?:c """f ??7l ?2#99o ?:u ??=x ??7~  ?8s|cN161 = Ӡ50,-`|, _!9_0dPDown)AAPbooks :="ivb|" & "Az V - RefTo:= O e+d?).gɤ'IfJ3") <> "(blank)" Then' a,6AoArCopy.PasteSpecial Operon:=xl2ng.Sort 0Key1(" O@xlDescending`, Hea0NoqM End If If Range("K3") <> "(blank)" 0ThenSet Rng =`l,1").(xlDown)&)|\AADCopyng.PasteSpecial Operation:=xl# Add ?Sort Key1:= Orderescending, Hea 9.No#WS.VisiblewxlVeryHiddNoth('Applic\.Scre`enUpdt rue 3Su b  MetricsTa5DataValB(WithBV9 i&o.Delet+Ё. TypeneList, AlertStyFlop,\o`r:= _3 @xlBetw@3, Formula T"=APivItemsYear>" A8.CJ110 11n1Mont~h1ccc1Yad2?2@KKKKDay11@.1Houq1B1411|t7||1t@215????Weekd_K"B16????4OccupancdB17 l5_dy_d_d _d_dHoln A d8 ppt pBp?5degBin2 }2 V???}s1 }B9:B1t u"(Allz)' :  .IgnoreBqTnCellDr8opdOcnputTitb"Error 0.IMess|agB G ShowR A.BWmodzFileSize_ mod7DatesPrePost".jmod5StatusPoints"cUserForm1DefineEquip*#0F,xME `p``xhI!" J@VDB0^x2 ( 8`H ]@]X]p Minimize File Size'pAThis will delete the data from the Data worksheet. All the data '  Band existing functionality will remain with the workbook and will '  0be saved, but it won't be in the Data worksheet.'   (This will shrink file size by up to 75%.' 1/3/2   DHowever, you won't be able to modify schedules or point definitions.'   Do you wish to continue?'%   p$'   >(,! C6$(%%6 C65536$(%Data$2%(B@ >(,k@o80aAttribute 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 "El ecMtrNMa$ke yre# wasn't al{dy put in the{*Ob-!A+n= Len;) - & ; cF}=Ke50, 2).F~im`! KfIs Nothin&gI'AIcompon@u_@2(K"PqKKKc?iL!Nq" qAmpsNeq5NIntIIItI@I!IIIb@eb{+b7bbr 11E1#1"%I?2r?X?X }2=ZAgTB?az"^K `qb` FSEc msWC (f8romrrcd by !+'qA!\Data q, ify a_no_`re.Sq ֑ ZHeaderϜ2 Measure/D$ 8SD dblMax6Doubl(1OnvlPdctOnqiXColI g4eriPq !Ptr3Application.SenUpdl= Falsp P v= 0.03+"*_P!./6;;C,@, waG57#EԊp1 ) UpD*%;8lu8в1B> iColOffset = rngStatusHeader.l umn -`Me asure d  Value1strrdFont.Bold6True1S% .(0, )s.FormulaR1C1$"=if(RC@[" & -& "]> dblOnvj ,""On""ff"")"4W. End If Next cel Application.ScreenUpdng2WS Nothi|ngG@TksT0TC  LSubAI( 488p     " R 8X   ] (8 PEquipID %!8$L (8 Data %2C6$( C6$(%$(.q PointsList %2B Set rng = .Range(.Range("A6"), .Range("A65536").End(xlUp))A77( A655367(%7(.~ ~ ~%67(.q !rngOrigHeaders$(! rngOrigHeaders$(! % !! %$(!B@kp PointsList ~ !B@ PointsMap  !B@ PointsList %(V PointsMap %(V PointsMap % ( subsystems %2A27( A37(%7(.~qh ~% (H PointIndex %!8$L (SubsystemIndex %!8$L (ComponentIndex %!8$L ( MeasureIndex %!8$L ( !yxME( <(<,< < == t} mxME(<,<(< <8 >> *X% ~x%` `unct` wit`ill `` be `t.(I!? " (08@H $P  x   B D X p> $ <80Bh2   @ BX@@  :8 x && <B4`  , .( 0 @P]@]`]]]]]]] Dim lngCalcSetting As Long >!B'~x D >(B  >(On Error Resume Next wit; dtPre = Evaluate(ActiveWorkbook.Names("DatePre").Value)= dtPost = Evaluate(ActiveWorkbook.Names("DatePost").Value)On Error GoTo 0Data$2.*C7 *%( C65536 *%(% *%(.~> UserForm9DatesPrePost.ShowlB@3Enter the date your energy project started, if any.'   Use a format like mm/dd/yyyy.'9Enter the date your energy project was completed, if any.'  Use a format like mm/dd/yyyy.'  Enter a date$'  '  Enter a date$' G 'j9The date the project was completed must be later than or ' &equal to the date the project started.  ' 2The completion date will be set to the start date.'   )The finish date is before the start date.A@]) 'kxDatePre  !B@D(DatePost  !B@4=IF(RC9=DatePre,RC9<=DatePost),"During Changes",'bq %"After " & Text(DatePost, "m-d-yy")))'  ~%6( >B@F ~%6!8 ~%6(qDateRngC6 *%(%6(8k ~ >(BoSAttribute VB_Name = "mod7DatesPrePost" Sub CreXT()  Dim WS As Work sheet0Rng2Range*dt.H rstrFormulaSng5PrompS_\ H '}lngCalcSettivLoOP= Application.jxlManualB ScreenU pd0F= Fa ls/'On Error ResuNexj3CA= Evalu@{(ActiveAubook.s ("mo").V eEJ@ (GoTo 08W=G!a"'@S.(W"C7"),"C65536End(xlUp)@DHTUse ›9:.Show#@Ente@r the ^e your energy project started, if any.L& vbCrLf "' a fat like mm/dd/.yc"'was chle ,eMInputBox(g re, Da*) "" ThenC )e '#0T  !=`C@Ē}"`CDB. must be loIan uDE & "eq 8 toQ P."IJLj% n DE!cwill!set R!)&-(re < 08MsgBA+ , 4finidsh#isaeB 5rd1 If)7.Add :=",fersTo:= _tloHߠ=IF(RC9<,""Bea& T`(E`cm-d-yy"@G #AND>=eE )DurAnCh|s"",Qz"1""AfR @" ))\.Off%(0, 17).R1C1q utOU = m8ec  ! %&}@{1qSub X% x% * % or R%` >> *0d0Ca% fP% pfor % $&% ad% % %```for `!8` `ecMt`I!| " 08@HPX `2B"0H P `" " 8    0@P B 0 " 0 2@8x      B  0h " ," ( 488p     " R 8X    :0 p> "  (,8h *,08 X  p   <         ( 0 8 @ H P X ` h x ) This sub creates a list of Status Points]@]`]]] PointsList %2.* *D57( D655367(%7(B@j B17(%  B17(%%7(.$ Status PointsD57((8eld0CaD57(!( q  esCheck for status pointsie !8$&_Status( add to list of Status points !8 D65536 *%(%%6(8k   Check for kW points !8$&_kW !8$ElecMtr <Make sure point wasn't already put in the Status points list !8 !8 $_Status'  %6%N. +Add component_kW to list of "Status" points !8 D65536 *%(%%6(8kHk@   Check for Amps points !8$&_Amps <Make sure point wasn't already put in the Status points list !8 !8 $_Status'  %6%N.  !8 !8 $_kW'  %6%N. -Add component_Amps to list of "Status" points !8 D65536 *%(%%6(8kPkHk@ ...*.oL This sub adds the Status Points (from the list created by Sub StatusPoints)1 to the Data List, if they are not already there.]]8]X]x]]]]]](]@]X]p >(Q?'Data %2.*C6 *%( C6 *%(% *%(. PointsList %2.*D6 *%( D65536 *%(% *%(. f  f!8$&_Status f!8 RP %N.  %6  %$(.  >!@%'  ' f!8$&_kWG'j f!8$&_AmpsG'j f!8 f!8  $_Status' C6Data$2%(%%6. ! ! '  (8 !(  %6.=if(RC[ ]>  ,"On","Off") ( !8 (kk f >(.*.f......oAttribute VB_Name = "mod5StatusPoints" @ Sub P() ' This s4creates a list ofX  Dim rng$ As Ranges ! ( (k0 ! (k.~.o ! ( (|k PointIndex ! !B@SubsystemIndex ! !B@L ActiveWorkbook.Names.Add Name:="Subsystem", RefersTo:=ListBox2.ListIndex PointIndex %(VSubsystemIndex %(V subsystems %2 !C17(%6  !C17(%6%7(.~q ~% (o]  ! (|k Component !8 !B@ComponentIndex ! !B@ Component %(VComponentIndex %(V Components %2' !8A1:Z17( >!@%'  (t0!xMEPSPSSS<(<<<0{5CE4BF88-EFCC-4B82-80C4-C5782BD21E91}{290CE795-5B9A-4743-AAD4-30B6D78A6C1E}( == ~X% x% onal%  8`nts  .`% ~P%  ` ` ` ` ` ` H  % %H8 HI!" n <x f `    ( .( 0 HP2" (Z( ((  @.` *..,Hx $     "  8 HX`,h0 R "@ h\ "   8HP X,`0"  0 8 .@ p `x    "    .  P tp F ,0 ` x    " @ * ( H X "` h p x  .  , 8 @ BX    "     .  ( ,H8x B  0,8h $ t@HPX "` $h  "  "" 0 @hAdditional Subsystems be added by adding Subsystems to the List in Column A in Worksheets("Subsystems"),5 and adding the additional subsystems in new columns.or R_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").]@]`A17(%6   A17(%6%7(.~q  ~% (o8]x] MeasureIndex ! !B@ MeasureIndex %(Ve Worksheets("PointsList").Range("A6").Offset(ListBox1.ListIndex, 1).Value = ListBox4.Value !8 !A7 PointsList$2%(%6(8& For Each pt In Range("PointsList") if pt.value PointsMap % (XoP9ActiveWorkbook.Names("EquipID").Value = SpinButton1.ValueEquipID !8 !B@EquipID %(V !8 (8o]8]P]hx MeasureIndex ! !B@ MeasureIndex %(V !8 !8_$ $'  !8 !8 !8_$ $&'   !8 '  !A7 PointsList$2%(%6(8 PointsMap % (8o0]]] MeasureIndex ! !B@ MeasureIndex %(V !8 !8_$ $'  !8 !8 !8_$ $&'   !8 '  !A7 PointsList$2%(%6(8 PointsMap % ( PointIndex ! !B@ PointIndex %(V UserForm1DefineEquip.Hide PA@rAFChlr_ChW_TempInChlr_ChW_TempOutPmp_ChW_Evap_gpm ChW_TempIn ChW_TempOutPmp_ChW_Sec_gpmAXAAAo UserForm1DefineEquip.Hide PA@roXH >( PB@lSystem Diagram %2(VSystem Diagram %2B@ >(oAttribute VB_Name = "UserForm1DefineEquip" Bas0{5CE4BF88-EFCC-4B82-80C4-C5782BD21E91}{290CE795-5B9A-4743-AAD4-30B6D78@A6C1E} 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 RangErng2 HeadersSpinButton1.Valu1On Error Resu@Next Ev@@(Act@nbook.AoRID@1B,GoTo 0With ɂD" SetV @e="(#(8"C6 FD.End(xlToR`ight)  R7VI'ht."A1553 dUpge== 7{A6|B ,G.Offset`(0, 1 c=IBfH+.Coue>å) Orig/;Theno@A|s3+, _a 'O ))*tirec.Delefte=Ife=qV.ŀ W:="h=@'ef iTo:= )Map"2().Visibi! VBox1.RowSourB~ cThisf|is-t%a2*Y3`H@3sDownR2ress(Exter0h:=!r=CLLIndex M~k M"! 9M2.teQmem q3VVwvc4M@easure ^ O\RjC1-1 OrE [Cu3"q 45>{/ ~Q%agC-Noth`g=0$v!4 2_Ch|Q U@x a1Exi>tј @es>Q IM$ 8/$#vrW/_ Nj>X ͊D< X0U?U1'dՀC1I}1,6x)_u5t(5exvw!$ct (new) t4^that repl]#]. Dim WS As Worksheet CurShtnumRowsA@uegerCkRegw AsDiffRngRangeGi iT>#1 Userm3zIn@putTbl.ShowIf 5 cn GoTo TerminAApßScreenUpoi@*= Fals*Set 0= rngaaCopyCFds.AddOn Err@Resu @NCActi(veSAp.Data@z/0 O("A1").PasteSpecial4)6kH<=A.+tsYundH`R@DM ax.D(655@36 / (+ 0)) '+ 3A`!! 2> $! 3kG Cells(1, 1).Offsetaa,,#z.En d(xlD))!tire.D@t$S@ If*Rng.9ize?aj)@#((2).InW$-B|3)%H- -@>`[ h= 3^ `](('T a" Header fScurr$(A ) i naf-U LoopG A)9,E56'9`{beK1 - G&0BH@%%b+ %_C)'W@???0,2 $h, Nk-0)Qe.'Q64 6x0, p46_(9).SHC 1)9w0CaF@Blanks ), 7>PVAM"!iYb$ Yp\`IToRightJJPHSЖ Key1:="A2r"Orp=@Nesdl, _22B@sB:=xlYepssTrus@= NothO #f z:% p ©W! Ww.ProctInvoke _FuncQ \n14@.This subrout f %s bA% cYaPat逫th"vA!from2ne!non-7 aboveѡIamulti ;No. 'Ycashe `qany #Wi 3€@M".txlqTHype#).qu@laR1C1Q=R[-1]Cpw! RGQ#"0#b*)=A S %CutMod1T"!"     " H 0( 0X .   ( 0 @ &Need to select just the table portion. OThe column adjacent to the left will be duplicated next tPSPSSS<(<<<0{29D2B4F6-AA96-45B4-B3B9-71A26D0C704F}{FF974867-DBBA-40CD-B8D1-B128278BE194}X ` fX% riit%8 %``@I!"  R0  Microsoft Forms 2.0 FormEmbedded Object9q" VERSION 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 (H  @ }oR KQ)xME(<,<(< <x OO *X% x%`` `"`$ ~%`&h .X 14`I!`" , V8 d J bH        0 @ P`hx   $ Zh  p (  FH.h ," <LP4  ^@H ,. 8 JX     " H 0( 0X .   ( 0 @ &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.n]@]`]]]]]]'t (B@R tGj  >(A17( r.~7 ~B@  2B@%Data (A1$(B@ Meas F.~  ~!!'   '*1+ 1(V ~!!'  * ("Po *'  ~%%6   ~%%6%$(!,B@!8k  ~!! ~%.~ ~%B@&  ~%B@ ~%%6B@ & Map @Copy and Paste Header for current column (iCol) in For-Next Loopui & ~%B@e  ~%%6B@4(1,-1)Copy and Paste Date Column   ~%%6B@P  ~%%6B@ 5Copy and Paste current column (iCol) in For-Next Loop!8   & ~%%%6B@J '''What???_$    ~%%6B@=(1,0)  &A7X Range(Rng.Columns(1).Offset(0, -1), Rng.Columns(1).End(xlDown).Offset(0, -1)).Select ~%  ~%%$(%6B@HA. ~%B@H ~%6B@Time ~%%6(8!8Value ~%%6(8 A1$(  A1$(%%$(.~ A2$( .B2$(0 .2 4 ~B@ >(ndex.*.~0o(B 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.6$in case there aren't any blank cells F=R[-1]C :78(C@ RC@A17(B@Hq >(<6orAttribute VB_Name = "mod9zCreateList" S@ ^ HP X  hx . 6  "  8 H]@h !d$(.rport r!! r!!  r!! tGjx f r%!they f!8$ f >% f >%Header in cell f! is not text or a number.Error in Input RangeA@k fC6 (A@r |x#The selection is not a valid range.A@2|@80 MsgBox "The selection is not a valid range." A@ro` t vG'tjo$Attribute VB_Name = "UserForm3zInputTblR ng" Bas0{29D2B4F6-AA96-45B4-B3B9-71A26D0C704F}{FF974867-DBBA-40CD-B8D1-B128278BE194} 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).CellsG& "`Portl<Ponservation Inc. (PECI)OFJanuary 02008=AWith funddfromtUf)"The N`@hwest `Efficiency Alliance'" 6California7Commiss, PublicMterH$Research'5F:"Developed by Bill KoranBaCK@ D BoxD, ,A E@ 0* pHd PECI_ECAM 8 @EC0I AM.= V @I! %<MSForms> SFor@ms3 *\G{0D452EE1-E08F-101A-8-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Micr@osoft :  Object Libraryh/;D1<0-  00}t#0<#k0409F9C489A-AFC6-48E6-9410-08B46D2E6AADmDOCUME~1\RFED I.\_VBA_PROJECTOdir __SRP_0G__SRP_16Wedded Object9qlVERSION 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 KQDBTahoma8KEFҋB `Eints1S492ed4a7 mod3DefinePoints (1mod9KoranCharts1T492ed4a7mod9KoranChartsy@ymod8Metrics1U492ed4a7mod8Metrics*X]B&mod4NormalizeFields1g492ed517D&mod4NormalizeFields p-modzUtilities1h492ed517modzUtilities^hUserForm8LPdata1X492ed4a7 UserForm8LPdatamodzKoran1Y492ed4a7modzKoranYVmodMetricsTable1Z492ed4a7nmodMetricsTable]modzFileSize1[492ed4a7modzFileSize mod7DatesPrePost1]492ed4a7 mod7DatesPrePostm  mod5StatusPoints1^492ed4a7 mod5StatusPoints(UserForm1DefineEquip1_492ed4a7Q(UserForm1DefineEquip0!(UserForm9ScatterData1`492ed4a7(UserForm9ScatterDataġHmod9zCreateList1a492ed4a7mod9zCreateList)`*UserForm3zInputTblRng1b492ed4a7)*UserForm3zInputTblRngOxbmodAboutECAM1c492ed4a7>modAboutECAM$h`X(0H@x 0HpP8`x9QaGX!,HQҡ10K?F[Qe*67jC3(/GG$S|ClO(#:IA+-HV! My4ORpnflB 4tihr@j##vVFvP.6QKZUy 5$]?C$-a3qN*4p*m+??eC^CXXJmAL#gOAZisAUyہâIf}#Yܫ[AEnqNP BI*?TcKIeWz>O_֑RS肳͌@Jx xiMf\lBuECS}=kG8BY Op :)|DžL L# +D_yEi;iB_:A8I,CߘKd{A{M$1Ah$,N I<NA,!9̻LZJ>5;Gay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{9F9C489A-AFC6-48E6-9410-08B46D2E6AAD}#2.0#0#C:\DOCUME~1\RFEDIE~1.PEC\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M (*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation'  PECI ECAMI! %&!"#$ 'ThisWorkbook1e492ed4a7ThisWorkbookcP Sheet31=492ed4a7# Sheet3H(Sheet201>492ed4a7ISheet200-Sheet161?492ed4a7KSheet16IH-Sheet191d492ed4a7MSheet19`  Sheet81A492ed4a7[ Sheet8x- Sheet61B492ed4a7] Sheet6-MenuSheet1C492ed4a7_MenuSheeteiSheet151D492ed4a7aSheet15Z-Sheet181E492ed4a7cSheet18- Sheet21F492ed4a7e Sheet2(Sheet171G492ed4a7gSheet17/E- Sheet11H492ed4a7i Sheet1' -mod1DataSelect1I492ed4a7jmod1DataSelect8modzMenu1f492ed4a7modzMenuP- UserForm2Scheds1K492ed4a7 UserForm2Schedsh7mod6Schedules1L492ed4a7zmod6Schedules #*UserForm3InputDataRng1M492ed4a7*UserForm3InputDataRngb,UserForm4TimeStampCols1N492ed4a7,UserForm4TimeStampColsemod2AddFields1O492ed4a7mod2AddFields$UserForm5TempAvail1P492ed4a7$UserForm5TempAvail%"UserForm6TempCols1Q492ed4a7"UserForm6TempCols"UserForm7BldgInfo1R492ed4a7"UserForm7BldgInfo mod3DefinePo*qHf|BH:g<$ "?#G0ʁw_aJg=- ]5GT(`2DGrh<-H4,P̐CEachTForbIn Excel+ VBAWin16~Win32MacVBA6# PECI_ECAMqMSFormsCOfficeustdole` ThisWorkbook| _Evaluate Workbook_Open (CreateMenuFWorkbook_BeforeCloseCancel (DeleteMenu Sheet3Worksheet_ChangeSTargetFRange WS_ Worksheetpt^ PivotTable Worksheets PivotTableswOffsetValueK PageFields' CurrentPage@ Application*WorksheetFunction& CalculationhxlCalculationManual Calculate Sheet20EP Sheet16&P Sheet19)POKButton1_Click UserForm1DefineEquip&ShowWorksheet_DeactivateVisible xlVeryHidden Sheet8 Sheet6 MenuSheet Sheet15%P Sheet18(P Sheet2 Sheet17'P Sheet1 mod1DataSelect( wbUserDataBookoWorkbookk ( wbNewBook ( rngdata ( iTimeCols ( strTempsAvail͕( rngTempsK ( iBldgArea&( iVolts( lngCalcSetting ( SelectData rngHeadersstrDateConvert*TypeName ActiveSheet%NMsgBoxRActiveWorkbook UserForm4TimeStampCols5CFormTerminated< UserForm3InputDataRng<RowsUCopyƿScreenUpdating!  WorkbooksBAddrTemplateColorsHJSheets  PasteSpecialKPaste xlPasteValues" TransposeColumnsp9 ColumnWidthxlPasteFormatsIsDate2 EntireColumnInsertrShift xlToRight|Resize@4Count0v FormulaR1C1SxlUpFormulaqYDeletexUnionxlDown0D NumberFormatRClear DestinationлNamesοRefersToAutoFit& beforeActivate| (AddFields&#(BinTemps_ modzMenu  MenuObjectCommandBarPopup MenuItemj SubMenuItem0VCommandBarButton9Row MenuLevel, NextLevel]PositionOrMacroCaptionxDividerp6FaceIdiIsEmpty Cells CommandBars ControlsKmsoControlPopupl) TemporarymsoControlButtonnOnAction BeginGroup UserForm2Schedsf_boolNextWeekCaller/MultiPage1_ChangeJ ComboBox122h RowSource2UserForm_ActivateZs MultiPage14?ComboBox11_ChangeP ComboBox11 ListIndexQ ComboBox16 TextBox12 DateValue/Month ComboBox12ComboBox12_ChangeP ListCount6 ComboBox17 TextBox13 ComboBox13ComboBox13_ChangeA ComboBox18 TextBox14 ComboBox14ComboBox14_ChangeB ComboBox19 TextBox15 ComboBox15ComboBox15_Change0C Box5Index' Box5MonthDays@ ComboBox20 ComboBox16_ChangeCComboBox17_ChangeDComboBox18_Change(EComboBox19_ChangeEComboBox20_Change)DoneDaysButton_Click iBoxNextWeekSchButton_ClickiSch/uDoneWeeksButton_Click(ComboBox122_Change~,iDay$ rngSchedsfcel} ComboBox121h ClearContents{Hide9zUserForm_DeactivateUserForm_TerminatelDUserForm_QueryClose CloseMode؟vbFormControlMenu~(iSkipSchedCalcs mod6Schedulesۯ(CreateSchedulesBRngU strFormula strStartTime؅ strStopTimeZ (AddMoreFields!` (TonsFields(kWfieldsstrPoint  (PointExistschTestItOKRangeButton1_ClickBadRangeiRefEdit1Trim@ IsLogical|IsErrzAddress BadRange2bdOKTimeStampsButton1_ClickjOptionButton1_ClickcOptionButton2_Click/ mod2AddFields iColOffset RefersToR1C1cFontU FontStylewb_ UserForm5TempAvail9Columni (AddBinTempsà (DefinePointsP UserForm6TempCols~jOKRangeButton2_ClickF@RefEdit2 UserForm7BldgInfoOKButtonBldgArea_ClickTextBox1STextBox2S mod3DefinePoints%  mod9KoranChartsZ(CreateCalendarLPrstrMsgG& strMsgTitle7m iDataFieldsv$pf^ PivotField] DataFields~ PivotFieldsvbCrLfErrorTooManyPoints ChartObjectsH Orientationw xlPageField"Position xlColumnFieldW(DeleteExtraPivotItems"c LabelRangeN(CalendarLPsFromPT(CreateLPbyDateRng՞(CreateLoadProfile`DataPivotField(CreateLPbyYear7(CreateLPbyMonthYr`(CreateLPbyDaytype4 (CreateLPbyDay WkshtName strTitle1 strTitle2strCurrentSheet (SheetExists4 (SetupFirstPTe UserForm8LPdatan ActiveWindow+DisplayGridlines TableRange2zd PivotCacheCreatePivotTable TableDestinationi TableName` DefaultVersion^ xlPivotTableVersion10u ColumnGrand4 HasAutoFormatu~RowGrand@HRight iCountlxlHiddenʪAutoSort> xlDescending> xlRowFieldr PivotItems  AddDataFieldY xlAverage /(CreateLineChartFromPT(FormatChartStandard(BoldChartLinesO ActiveChart  ChartAreaBorder LineStylew SelectionZTop5AxesbxlValue@iCel UserForm9ScatterDataȠ Subtotals+(CreateScatterChartFromPT@(FormatScatterChartStandardё(Chart3dColoredDaytypes(ConvertChartTo3D DataBodyRange(ColorByDayTypeέxlSeriesFTickLabelSpacingTickMarkSpacingReversePlotOrderTMinimumScaleIsAutoAMaximumScaleIsAuto MinorUnitIsAutokMajorUnitIsAuto;[PlotArea ChartType? xl3DColumn(Format3D_stacks?(NoLinesBetweenContoursGapWidth AutoScaleFont DepthPercentGapDepth Elevation, PerspectiveRotationeRightAngleAxesLX HeightPercentWallsJInterior; ColorIndexFloor  TickLabelsHasAxis5HasMajorGridlinesMajorGridlinesWWeight1 xlHairline4LegEntry LegendEntry ChtHasLegend_ ChtPlotWidthP ChtPlotHeightyChtDepthPercent/ ChtHeightPercent LegFontSize8myChtJjChart?xlNonemySeries)Series]DaytypeWeekdayvbMonday100o (ContourChartJ xlSurface MajorUnitM MaximumScale= MinimumScale(SurfaceChartColorsW xlHorizontal mod8Metrics80 PivotCachesJ SourceType xlDatabasem SourceData (AddPageFieldsE(ptPageFieldsGeneral) strStatusMsg (PTformatsiDataLabelRange TableRange1yd ColumnRange HorizontalAlignmentS@BordersC"xlLineStyleNone?o (PerSFmetricsY(PerSFmetricsByOcc(PerSFmetricsByDaytypely DisplayAlerts(MetricsTableSFǐ (ChartMetrics.GrandTotalName7o(GeneralMetricsw (MetricsByOcck(MetricsByDaytypeY (MetricsTable(GeneralMetricsPrePost>(MetricsByPrePostС(MetricsByTempBins(MetricsTablePrePost֍ mod4NormalizeFields (ReplaceNamescel2cZEvaluateTFindnLookInPxlValuesoLookAtOxlWhole(CalcTons (CanCalcTons ptGPMevap/.ptT1evap"+ptT2evap/ptGPMsecqptT1secLptT2secwiptErroPointTonsExistsstrChlr_ChW_TempInstrChlr_ChW_TempOut;strPmp_ChW_Evap_gpm strChW_TempIn`strChW_TempOutIstrPmp_ChW_Sec_gpmrngLastPtHeader}rngTonsD3iColgpmJ iColTempInz iColTempOut^iColTonsCuBold iColTempInOutIA (Normalize.'celTonsrngMeasuresNormalizeJrngCdataG rngCnormdataIiLoopereiCellsiHeaderx OperationyxlDividePiColCel3 modzUtilities5 (NameExistsmyNameNmh^UCase5 snamedxoPtNameMatchR modzKorann7chtName seriesNameg seriesValuesX seriesXValues numFields׉i`myRange-pvtTable (PT_RangeNames Intersect1 ActiveCellChartsxlLineWP NewSeriesValuesXValuesbLocation-Where֍xlLocationAsObject xlXYScatter)FieldNumگrowMax;JptRows myFirstCellvxlThinw xlAutomatic@ MajorTickMarkwxlUpward  xlContinuous[AxisBetweenCategoriesaHasMinorGridlines) MinorTickMarkTickLabelPosition~ xlNextToAxis>MarkerBackgroundColorIndexMarkerForegroundColorIndex MarkerStyle xlDiamond MarkerSize&~myIndexxlMediummyRngRWS2]AddNameMonthArrayhAddCalendarSheet#LoopChartBuild (SetScales==FormatCalendarl GreyGridlinesZ BuildChartrngCht rngPlotLocch\ ChartObjectƹ ChartWizardsSourceGgalleryxlInsideJ CategoryType Background. xlTransparentO xScaleMax GreyScalelines\ RowHeightxlCenterVerticalAlignmentʡxlBottom?ColHrngDateintWkDayintDay0intWeekK intWkDay1~yDayChrK~xlLeft9 AddIndent2W IndentLevelLoopChartUpdate iChartDisplayHeadings/~ PageSetup LeftMargin]InchesToPointsI RightMargin[ TopMargini BottomMarginu HeaderMargin8 FooterMargin PrintAreaPCenterHorizontally xlLandscape&DisplayAutomaticPageBreaksX[ modMetricsTable] EnableEventsxlSheetVeryHiddenAutoFill_ xlFillDefault]j xlEdgeLeftL xlEdgeToph xlEdgeBottom xlEdgeRight%v(SelectionFiltersq(ListPageFieldsI(MetricsTableDataValRHxlColumnStackedmp SetSourceDataaPlotBy$xlRows ChartTitle_xlInsideVerticaljMipitem,ipfield2xlPasteSpecialOperationAddSortKey1OOrder1oHeaderMxlNo Validation xlValidateListĤ AlertStyle7xlValidAlertStopOperatork xlBetweenkFormula1 modzFileSizet(DeleteDataSheet.ResponsevbYesNovbYesa? mod7DatesPrePost˴( CreatePrePostDatesdtPreZdtPost_Q strPromptPreH strPromptPostxstrdtPreK strdtPost~InputBox  mod5StatusPoints (!StatusPointsrngPoint| rngPointscelFound strCelValueG(!AddStatusPoints' rngStatusrngStatusHeader5QrngMeasureHeader* rngMeasureP strHeader dblMaxValue# dblOnvalue dblPctForOn  iLenEndPtName<MaxȲUserForm_Initialize5crng2M SpinButton18ListBox1ListBox2ExternalwListBox3ListBox4ListBox2_Change ListBox3_Changen  intComponentNextPtButton1_ClickBAKHSpinButton1_changeNextPtButton1_Clickq5strLeftstrRighttstrInStrRevĈDoneButton1_ClickCancelButton1_ClickTHelpButton1_Clickw mod9zCreateList/($CombineTableIntoList CurShtknumRows numColumns}numRegionColumns5H numColsDiff_iCol_! UserForm3zInputTblRngB numRowsMaxg EntireRow ($FillBlanksbKey2POrder2pxlYesNoBlanks~ SpecialCellsxlCellTypeBlanksx CutCopyMode modAboutECAM9 (&AboutECAM8@ OKButton1n BeforeClose~;_DefaultjItemz#W$ o )%*I KMQ"?&<' %[ ]_ a!c "e #g $i k &()#E+9 ;,.!D 3 V{VZ0H ` @ D Q@A@@@B@ @D@LOCALS Temp\Excel8.0\.exd`>$.E .`M( xOf fice>pOf@iceh 32DF8D04C-5BFAjB-BDE5NAA004423Program Files\CommonjShared\OFFICE4115OLs& 1x1.0s%C0stdolD0stTdlB0h^A0u2043`;@|CE46H0C2.tlb#OLE AutomationE'BTThisWorkbookG ThiW@)rkbUo 2 QH1bq-o",c*""+">Sheet3G Se`%tr2 (@ H a1 20Gb202-մD161616gI*9999ɯ o0(8-:8@-:8 q+ @+:+ *** Menub(GYMVnuh e@~-2/iIeS+fX15:5:5:5,"uZ;-1A;8_ ˫[2$2$2$ 2_AS_1777_7__#/E_S]1Y1]13'mod1DataSe*lpGm_d1Da@,a-ekc"-_S_W.?D!iP Ua z4G zpe692?8-BUser2SchedsG^hU@re02cjd9zCr2e.Li.}zVC".epUi`$tϠ TBYB92 p])  'a     ) A Y q       !9a i)Ia Ai 9a i  i )Ii!Iq AiYy i  PECI_ECAM ThisWorkbookSheet3Sheet20Sheet16Sheet19Sheet8Sheet6 MenuSheetSheet15Sheet18Sheet2Sheet17Sheet1mod1DataSelectmodzMenuUserForm2Scheds mod6SchedulesUserForm3InputDataRngUserForm4TimeStampCols mod2AddFieldsUserForm5TempAvailUserForm6TempColsUserForm7BldgInfoVBAmod3DefinePointsmod9KoranCharts mod8Metricsmod4NormalizeFields modzUtilitiesUserForm8LPdata modzKoranmodMetricsTable modzFileSizemod7DatesPrePostmod5StatusPointsUserForm1DefineEquipUserForm9ScatterDatamod9zCreateListUserForm3zInputTblRng modAboutECAMF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL  0F0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel  @.E .`M C:\WINDOWS\system32\FM20.DLLMSForms  a PHƯHm.j;C:\DOCUME~1\RFEDIE~1.PEC\LOCALS~1\Temp\Excel8.0\MSForms.exd  a `L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice  pC:\WINDOWS\system32\stdole2.tlbstdole  Q F#^/DJrc%F7A6DFWorkbook Workbook_OpenWorkbook_BeforeClose @ CreateMenu DeleteMenu  MenuSheetFFFF9F F F F  F FOnActionCaption  FaceIdBeginGroupControlsTypeAdd f3o<?/i04BJi*WJOimimi05>@Gi*WJOimimi42ADi*WJOimimCompObj-sx,<fZ      !"#$%&()*+.0124568:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY[\]^_`abcdefghijklmnopqrstuwyz{|}~     * !"#$%&'()+,-./01234567?:;<=>@ABCEGQHIJKVMNOPQRSTUDWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8F9 $ #Frame1t2{  Microsoft Forms 2.0 FormEmbedded Object9q*+,-./0VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm6TempCols Caption = " Ambient Temperature" ClientHeight = 2400 ClientLeft = 45 ClientTop = 330 ClientWidth = 3510 StartUpPosition = 1 'CenterOwner TypeInfoVer = 15 End f8o`b5CompObj3pCompObj_d?aCompObjhmYaVBFrame[8UserForm7BldgInfo$8Nppmpmf`DBTahomaH{@C +'d/$-'d/$,'d/$H{@@  ćuM ćuM ćuMH{@T jE.#ÇuMiE.#ÇuMeE.#ÇuM0 *  pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qmpAvail1<   Mp2Annual SchedoCE9 CompObj7nfDoFHx CompObjvnf8oIKCompObjnuleeWeek Schedulesee Day SchedulesseeTab6Tab4Tab55Tahomab5$H 7}Mp2$!Page2a5,$#Page3a5,$*!Page1a5,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qAH,,5Tahoma19( Ending MonthN @Tahoma19AAH,,5Tahoma19AAH,  ,5Tahoma19AH,,5Tahoma19AAH,,5Tahoma19AAH,  ,5Tahoma19AH,,5Tahoma19AAH,,5Tahoma19AAH,  ,5Tahoma19(1z @TahomaAH,,5TahomaAAH,,5TahomaAAH,  ,5TahomaAH,,5TahomaAAH,,5TahomaAAH,  ,5Tahoma ( Week Schedulen; z @Tahoma( Ending DayulN @Tahoma(2z @Tahoma(3z @Tahoma(4z @Tahoma(5z @Tahoma ( Starting DatenN @Tahoma$@H,  ,January 1Dat7 @TahomaH, ,7 @TahomaH, ,7 @TahomaH, ,7 @TahomaH, ,7 @Tahoma(OK OuTahoma( Tab 3 of 3atuTahoma(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 -8ComboBox21at* ListWeekSchedules (.2DLabel9I <A /< ComboBox16ata$ Box1MonthDaysn4A 0<ComboBox11ayug Monthsox@A 18ComboBox22ay*ListWeekSchedules <A 3< ComboBox17aya$Box2MonthDaysn8A 4< ComboBox12ayuMonthsBox2ay@A 58ComboBox23ay*'ListWeekSchedules <A 7< ComboBox18aya$'Box3MonthDaysn8A 8< ComboBox13ayu'MonthsBox3ay(92<Label12Eg @A :8 ComboBox24ay*SListWeekSchedules <A ;<  ComboBox19aya$vBox4MonthDaysn8A <<  ComboBox14ayuSMonthsBox4ay@A =8ComboBox25ay*ListWeekSchedules <A ?<  ComboBox20aya$Box5MonthDaysn8A @<  ComboBox15ayuMonthsBox5ay(A2HLabel11o2 (B2DLabel10# (F2<Label13E(G2<Label14E(H2<Label15ES(I2<Label16E(2HLabel23] ( HTextBox115ayg ( 8TextBox125ay( 8TextBox135ay( 8TextBox145ayS( 8TextBox155ay( 4OKButton15ay>+*( 2<Label30(2Label33{*  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$Main OccupancyesK{ @Tahoma2$(Typical Major HVAC`K{ @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, {DaySchedule105Tahoma2(AAEH,E{12:00 AM5TahomaAM (Week Schedules 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 Names{ @TahomaPM( Tab 1 of 3amuTahomaPM(On this, the first scheduling tab, you can create Day Schedules for up to 10 different daytypes. There is a blank section to the right for the future possibility of 2 different types of schedules. You can name the schedules whatever you like.05TahomaPM$H 1}OM0((J2LLabel17MO(K2LLabel18M5O(L2@ Label19Ml(M2<!Label20MX)(N2<"Label21M~@(O2@#Label22M6$PDTextBox1E$QDTextBox2 $RDTextBox3$SD TextBox41$TD TextBox5$UDTextBox6$VDTextBox7$WDTextBox8k$XDTextBox9"( YHTextBox103am &8A \H ComboBox101mlELists!I2:I50,@$DoneDaysButton>+*8A H ComboBox102tk Lists!I2:I508A H ComboBox1030kLists!I2:I508A H  ComboBox1040k1Lists!I2:I508A H ComboBox1050kLists!I2:I508A H ComboBox1060kLists!I2:I508A H ComboBox1070kLists!I2:I508A H ComboBox1080kkLists!I2:I508A H ComboBox1090k"Lists!I2:I508A H ComboBox1100k &Lists!I2:I508A H ComboBox1110,*ELists!I2:I508A H ComboBox1120+* Lists!I2:I508A H  ComboBox1130+*Lists!I2:I508A H  ComboBox1140+*1Lists!I2:I508A H ComboBox1150+*Lists!I2:I508A H ComboBox1160+*Lists!I2:I508A H ComboBox1170+*Lists!I2:I508A H ComboBox1180+*kLists!I2:I508A H ComboBox1190+*"Lists!I2:I508A H ComboBox1200+* &Lists!I2:I50(2H%Label259q( 2<&Label289( 2$'Label319{+*  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Monday:5a5Tahoma:5AAH, ,5Tahoma:5(Tuesday:a5Tahomay:AAH, ,5Tahomay:( Wednesday:ia5Tahomay:AAH, ,5Tahomay:( Thursday::ia5Tahomay:AAH, ,5Tahomay:(Friday::a5Tahoma::AAH, ,5Tahoma::( Saturday::ia5Tahoma::AAH, ,5Tahoma::(Sunday::a5Tahoma::AAH, ,5Tahoma::(Holiday:a5Tahomay: (Annual Schedule OuTahomay:AAH, ,5Tahomay: ( Schedule Namele{ @Tahomay:$AAEH,,15Tahoma(Sch. # { @Tahoma (Next Week Sched. OuTahomaAAH,,5Tahoma( Tab 2 of 3ScuTahoma (On this tab you can create up to 5 different week schedules. You can name the schedules whatever you like. Create one Week Schedule, then click "Next Week Sched" to create another, if necessary. After creating the Week Schedules, click the button for "Annual Schedule."9"5Tahoma$H O}OM0(28Label1; <A <ComboBox23Sc: ListDaySchedules( 28Label2<A <ComboBox3hed: ListDaySchedules( 2<Label3<A <ComboBox4hed: 'ListDaySchedules(2<Label4m<A <ComboBox5hed: uListDaySchedules(28Label5<A < ComboBox6hed; ListDaySchedules(2< Label6 <A < ComboBox7hed; !ListDaySchedules(28 Label7Y!<A < ComboBox8hed: a$ListDaySchedules(28Label8$,@DoneWeeksButtons>+*<A <ComboBox1But: ; ListDaySchedules(2HLabel261O8A D ComboBox121dz-Lists!c2:c6d(2@Label27*O0@NextWeekSchButton:>a$@A <ComboBox122d; ListWeekSchedules:( 2<Label29 ( 2@Label32{+* ( #9MultiPage1{  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserF(H  @ }vR KQDBTahoma4(2LLabel10t,(What is the building area?{5Tahomat2(sq. feet{5Tahomaet @H,D{100,000tuTahoma0t(OK OuTahoma0t(Voltsa0t{5Tahoma0t<(*What is the Voltage for 3-phase equipment?N5*     ' !"#$%&()Sn,-./01?3456789:;<=>+@ABCDEFGHIJKLMOPQRcUVWXYZ[\]^_`abNdefgijklmpqrst~vwxyz{|}oDoWYCompObjpCompObjV['aVBFrame)?ooqbCompObjroaVBFrameq9UserForm8LPdata upmpmi11j n``мmmмmmfSoikPCompObjNp{    <E" !#$%&'()*+,-./0123456789:;=>?@BWywOUHIJKLMNAPXcuCxZY[\]^_`abdefghijklmnopqrst}FV|DBTahoma(2Label1(Are the Time Stamps in 1 column or 2 columns? (If 2 columns, it is assumed that the Date is in the first column and the time is in the second column)5Tahoman(OK OuTahoma n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4F 3 {0Two Columns5Tahoma4F 3 {1One Columnto5Tahoma(H  }d, TOptionButton21, TOptionButton11 $#Frame104OKTimeStampsButton1g   Microsoft Forms 2.0 FormEmbTahoma0t@H,"{480uTahoma0tC(28Label20t `$@TextBox1,4OKButtonBldgArea(28Label3x1 L(2\Label4x1 $<TextBox2  Microsoft Forms 2.0 FormEmbF(2XLabel18(%Is Ambient Temperature data included?5Tahomah(VYou can select any cell in t n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,F3 {0No5Tahoma,F3 {0Yes5Tahomafmfm~  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvwxyz{|}~edded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm7BldgInfo Caption = " Building Information" ClientHeight = 3405 ClientLeft = 45 ClientTop = 330 ClientWidth = 2625 StartUpPosition = 1 'CenterOwner TypeInfoVer = 10 End (H  @}_R KQDBTahoma8KEFҋB `E(H  }d, LOptionButton2g , LOptionButton1 he column of temperatures to indicate the relevant column.)"5Tahoma$#Frame1 ( 2Label2O  Microsoft Forms 2.0 FormEmb     % !#$&(*+,-/0=2;4679:<>@BCDEGHVJKLMOQRTUWXZ\]^_ajcdefghiklmnprstuwx}z{|~TRoot Entry FtmCNWorkbook#_VBA_PROJECT_CUR"npX-mtmCtls DF(2XLabel18(%Is Ambient Temperature data included?5TahomaH$ ,5Tahoma(OK OuTahoma<(*Which column has the Ambient Temperatures?&5TahomaY[\]^_` n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,F3 {0No5Tahoma,F3 {1Yes5Tahoma(H  }d, LOptionButton2g , LOptionButton1 $8RefEdit2g , 4OKRangeButton2 ; g ( 2\Label2t2fv+otvyCompObjwaVBFrame1F(2Label1`(PSelect the name(s) of the point(s) you want to include in the Metrics or Chart. IN5Tahomax2H$],5Tahomax2(OK OuTahomax2$8RefEdit1,4OKRangeButton1"  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm8LPdata Caption = " Point Selection" ClientHeight = 1215 ClientLeft = 45 ClientTop = 330 ClientWidth = 4320 StartUpPosition = 1 'CenterOwner TypeInfoVer = 3 End (H  @}VR KQDBTahomaD(2TLabel1x2UserForm1DefineEquip*\}zpmpmfoy{CompObj|a,( Points List O @Tahomax2(Done >x2 OuTahomax2 , Map Pointtto OuTahomax2(Cancelx2 OuTahomax2$( Subsystemsn O @Tahomax2$(Subsystem Components N @Tahomax2((Component MeasurementsN @Tahomax2,Help OuTahomax2,( Mapped Points O @Tahomax2( Comp. ID:p @Tahomax2OH({, @Tahomax2`)25Tahomax2`!25Tahomax2` 25Tahomax2` 5Tahomax2( 8DoneButton1>K, @NextPtButton1>K, 8CancelButton1>K l 2L>Label2x2kSelect a Subsystem to List the Associated Subsystem Componentsl 2L@Label3x2,Select a Component to List the Associated Component Measurementsl 2P>Label4x29Select a Component Measurement and then "Next Point" or "Done"ts( 8HelpButton1n>K 2T [Label5x2This list will populate as Points are mapped to point names recognized by this application.(2D Label6x2+L SpinButton1n2(Set Subsystem Component Number\ <4TextBox1 5Enter the number of the component, for example, AHU3tI 4>ListBox49"Select a Component Measurement and then "Next Point" or "Done"tsMeasures0A 8 ListBox1"Z1:Z20x1xI 4 > ListBox2k"Select a Subsystem to List the Associated Subsystem ComponentstsSubsystemsubxI 4 @ ListBox3,"Select a Component to List the Associated Component MeasurementsComponentsom  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserFVBFrame]UserForm9ScatterData*pmwrmfCo~orm1DefineEquip Caption = " Define Data by System, Equipment, and Measurement" ClientHeight = 3060 ClientLeft = 45 ClientTop = 330 ClientWidth = 12585 StartUpPosition = 1 'CenterOwner TypeInfoVer = 22 End $  }CR KQDBTahoma8KEFҋB `EF$8RefEdit1 ,H$],5Tahomax3(OK OuTahomax3(sSelect the independent variable first, hold down the Ctrl key, and then select the second and subsequent variables.C"5Tahomax3\(JSelect the names of the point(s) you want to include in the Scatter Chart.}uN5Tahomax34OKRangeButton1 (2Label2t1(2|Label1t1 Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm9ScatterData Caption = " Point Selection" ClientHeight = 2070 ClientLeft = 45 ClientTop = 330 ClientWidth = 4320 StartUpPositioCompObjaVBFrame6UserForm3zInputTblRng,wrmwrmf+n = 1 'CenterOwner TypeInfoVer = 6 End (H  @}R KQDBTahoma8KEFҋB `EF$8RefEdit1; H$],5Tahomax38(%Select the range of cells with your data. You should select the full range (both rows and columns), including the headers (Times), and all the records (Dates) you want to include. ToCompObjaVBFrame<PROJECTwmGhe Times will be assumed to be in the first row of the selected range, and the Dates in the first column. 5Tahomax3(OK OuTahomax3(2XLabel1t1,4OKRangeButton1g   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm3zInputTblRng Caption = " Input the Data Range" ClientHeight = 2400 ClientLeft = 45 ClientTop = 330 ClientWidth = 4335 StartUpPosition = 1 'CenterOwner TypeInfoVer = 8 End ThisWorkbookThisWorkbookSheet6Sheet6Sheet15Sheet15Sheet16Sheet16Sheet19Sheet19MenuSheetMenuSheetSheet8Sheet8Sheet17Sheet17Sheet1Sheet1Sheet18Sheet18Sheet20Sheet20Sheet3Sheet3Sheet2Sheet2mod1DataSelectmod1DataSelectmodzMenumodzMenuUserForm2SchedsUserForm2Schedsmod6Schedulesmod6SchedulesUserForm3InputDataRngUserForm3InputDataRngUserForm4TimeStampColsUserForm4TimeStampColsmod2AddFieldsmod2AddFieldsUserForm5TempAvailUserForm5TempAvailUserForm6TempColsUserForm6TempColsUserForm7BldgInfoUserForm7BldgInfomod3DefinePointsmod3DefinePointsmod9KoranChartsmod9KoranChartsmod8Metricsmod8Metricsmod4NormalizeFieldsmod4NormalizeFieldsmodzUtilitiesmodzUtilitiesUserForm8LPdataUserForm8LPdatamodzKoranmodzKoranmodMetricsTablemodMetricsTablemodzFileSizemodzFileSizemod7DatesPrePostmod7DatesPrePostmod5StatusPointsmod5StatusPointsUserForm1DefineEquipUserForm1DefineEquipUserForm9ScatterDataUserForm9ScatterDatamod9zCreateListmod9zCreateListUserForm3zInputTblRngUserForm3zInputTblRngmodAboutECAMmodAboutECAMID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkboPROJECT PROJECTlk&SummaryInformation(*DocumentSummaryInformation81ok/&H00000000 Document=Sheet6/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Document=Sheet15/&H00000000 Document=Sheet16/&H00000000 Document=Sheet19/&H00000000 Document=MenuSheet/&H00000000 Document=Sheet8/&H00000000 Document=Sheet17/&H00000000 Document=Sheet1/&H00000000 Document=Sheet18/&H00000000 Document=Sheet20/&H00000000 Document=Sheet3/&H00000000 Document=Sheet2/&H00000000 Module=mod1DataSelect Module=modzMenu BaseClass=UserForm2Scheds Module=mod6Schedules BaseClass=UserF      !"#$%'()+,-./02345679orm3InputDataRng BaseClass=UserForm4TimeStampCols Module=mod2AddFields BaseClass=UserForm5TempAvail BaseClass=UserForm6TempCols BaseClass=UserForm7BldgInfo Module=mod3DefinePoints Module=mod9KoranCharts Module=mod8Metrics Module=mod4NormalizeFields Module=modzUtilities BaseClass=UserForm8LPdata Module=modzKoran Module=modMetricsTable Module=modzFileSize Module=mod7DatesPrePost Module=mod5StatusPoints BaseClass=UserForm1DefineEquip BaseClass=UserForm9ScatterData Module=mod9zCreateList BaseClass=UserForm3zInputTblRng Module=modAboutECAM HelpFile="" Name="PECI_ECAM" HelpContextID="0" Description="PECI ECAM" VersionCompatible32="393222000" CMG="9B9937DED6E2D6E2D2E6D2E6" DPB="36349A7BAE8D54AA54AAAB5655AA5C0B38626C172C1B1BCA6AB3FC6DCE955D09D1556155BB894D" GC="D1D37D7E7E7E7E7E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=242, 242, 953, 763, Sheet6=0, 0, 0, 0, C Sheet15=0, 0, 0, 0, C Sheet16=0, 0, 0, 0, C Sheet19=0, 0, 0, 0, C MenuSheet=176, 176, 887, 697, Sheet8=0, 0, 0, 0, C Sheet17=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet18=0, 0, 0, 0, C Sheet20=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C mod1DataSelect=0, 0, 0, 0, C modzMenu=0, 0, 862, 616, UserForm2Scheds=0, 0, 0, 0, C, 22, 29, 1070, 695, C mod6Schedules=0, 0, 0, 0, C UserForm3InputDataRng=0, 0, 0, 0, C, 44, 58, 1092, 724, C UserForm4TimeStampCols=0, 0, 0, 0, C, 66, 87, 1114, 753, C mod2AddFields=0, 0, 0, 0, C UserForm5TempAvail=0, 0, 0, 0, C, 88, 116, 1136, 782, C UserForm6TempCols=0, 0, 0, 0, C, 110, 145, 1158, 811, C UserForm7BldgInfo=0, 0, 0, 0, C, 132, 174, 1180, 840, C mod3DefinePoints=0, 0, 0, 0, C mod9KoranCharts=0, 0, 0, 0, C mod8Metrics=0, 0, 0, 0, C mod4NormalizeFields=0, 0, 0, 0, C modzUtilities=220, 220, 931, 741, UserForm8LPdata=0, 0, 0, 0, C, 154, 203, 1202, 869, C modzKoran=0, 0, 0, 0, C modMetricsTable=0, 0, 0, 0, C modzFileSize=0, 0, 0, 0, C mod7DatesPrePost=0, 0, 0, 0, C mod5StatusPoints=0, 0, 0, 0, C UserForm1DefineEquip=0, 0, 0, 0, C, 176, 232, 1224, 898, C UserForm9ScatterData=0, 0, 0, 0, C, 198, 261, 1246, 927, C mod9zCreateList=0, 0, 0, 0, C UserForm3zInputTblRng=0, 0, 0, 0, C, 220, 290, 1268, 956, C modAboutECAM=0, 0, 711, 521, Z "EFEF ćuMH651A8940-87C5-11d1-8BE3-0000F8754DA1+'d/$Zm?t8Oh+'0 `h|0@ X d p| PECI ECAM PECI ECAM Bill KoranPECI add-in for creation of building meter and HVAC metrics, and supporting analysis of building EMS trend and data logger data.rfedieMicrosoft Excel@ @h6@m՜.+,0p PXh px LPECI'  Metrics MetricsPerSFBldg1 Subsystems ComponentsComponentsNormalizeComponents_kWCalcComponents_tonsWCalc MenuSheet HolidayListLists  Worksheets CompObj8m F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q