ࡱ> _[CompObj)aVBFrame$PROJECTwmtPROJECTVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 2610 ClientLeft = 45 ClientTop = 330 ClientWidth = 4620 StartUpPosition = 1 'CenterOwner TypeInfoVer = 39 End Sheet1Sheet1ThisWorkbookThisWorkbookModule1Module1UserForm1UserForm1ID="{00000000-0000-0000-0000-000000000000}" Document=Sheet1/&H0  !"#$%&'(*+,-./0123456789:;=>?ACDEFGHIJKLMNOPQRSTVWXY[]^_`abcdefghijklmnopqrstuvxyz{|}~ \pJohn Walkenbach Ba= ThisWorkbook=,L;"<X@"1hArial1hArial1hArial1hArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)#,##0\ "kr";\-#,##0\ "kr"##,##0\ "kr";[Red]\-#,##0\ "kr"$#,##0.00\ "kr";\-#,##0.00\ "kr")$#,##0.00\ "kr";[Red]\-#,##0.00\ "kr">9_-* #,##0\ "kr"_-;\-* #,##0\ "kr"_-;_-* "-"\ "kr"_-;_-@_->9_-* #,##0\ _k_r_-;\-* #,##0\ _k_r_-;_-* "-"\ _k_r_-;_-@_-FA_-* #,##0.00\ "kr"_-;\-* #,##0.00\ "kr"_-;_-* "-"??\ "kr"_-;_-@_-FA_-* #,##0.00\ _k_r_-;\-* #,##0.00\ _k_r_-;_-* "-"??\ _k_r_-;_-@_-                + ) , *  `Sheet1StartDateReport8ZR3  @@  cc    dMbP?_*+%"??U(  x  6+CC@],@+e"m-+9 $< Button 1<1>@7 Sheet1 LzB@#<[5)L=+mG F9(CN>Fxx9(CN>Fx[5)L=+mGME(SLSS6"Sheet1 )__SRP_8 <__SRP_9@BThisWorkbook BN0{00020820-0000-0000-C000-000000000046}(%H(p % %pxH@HH8A%C7$*\Rffff*2y431864fd4 xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 rU ' ,1,4Y,,`rU @nDrBF#<˘slJ QٛFOU$N6S oxOU$N6S o˘slJ QٛME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%Hh % %8p@@TT8A%C7$*\Rffff*0Y43185a6f4 xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 rU (#4q9__SRP_6 U0__SRP_7ZBModule1\UserForm1D`rU @nBIxMEhHhH p "H0p* "PX`"p  ">  (]$Power Utility Pak]$Conditional Formatting ReportP0A@" $G|j $$& WorksheetG|jjwa (B@*1oPp,@A1pup6.xla$.%0%2UtilityG|j, B@BD`oiAttribute VB_Name = "Module1" Public Const PUPNAME As S ngPower Utilit y Pak jAPjditional FormattiOReportA Subv%$#()  CheckAddInIf ActiveSheet Is Noth[Then Exit Z,PType{() <> "Wor$ks"" UserI1.Show End+riva`OXOBrror GoTo CloseMeG:books("pup6.xla")1es(1).Range("A1")/P+:+Th4is,. WD0* pHd CondFmtR@eport@T@ =0000000 Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 BaseClass=UserForm1 HelpFile="" Name="CondFmtReport" HelpContextID="0" VersionCompatible32="393222000" CMG="E2E04EE8B6ECB6ECB2F0B2F0" DPB="4644EA942A9C93B993B96C4388CD76BD1236244BA6DEE16DD65D741669D56643078D6CE5B4F97B" GC="AAA806306B316B316B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Sheet1=0, 0, 0, 0, C ThisWorkbook=88, 88, 849, 6]]0H Check for protected sheets L $!bThe active sheet is protected. f f?A Formula Report cannot be generated for a protected worksheet. h A@dWord 0 A@rxt|kd'^ \ j!lV_Vy; \!bUpp ^ $n  \! f'^mk \$)g ^onl>A Formula Report cannot be generated for protected worksheets. f9The activeworkbook contains one or more protected sheets: f f ^ fContinue anyway?'^SRun ^ p r $d'` ` tP 4D A@r|kkk j.R $.V !.( Adjust settings to maximize the speed v(x v!|$z  v!~!'8 v!~(k  v!':  v(% Create new workbook for the report v!'X L v( .!. X v( RB@ VA. Run the reportdH R!l! v( .!. RB@ X v( Z R!l! Z R%l ZA? Run the report Zk& Done with report, Rename the sheets L V! %l(d8 Z !l! Z R%l! Z %l( Zk !B@ B@H !B@ B@ Save the user settings   obActiveOnly L!DA@   obAllSheets N!DA@A A@ro`]]]]0P]p]]]] 4 B(D Working on ! $nSheet   of  j!l!'6 (:A@k  %l. !'xxx  ( Check for protected sheet !b ! in  !!( is protected. Report was not generated. , %!(|k9 Create a Workrange - conditional formatting cells only A1 %2%. !G'6cG !'6j` Write the headers #Conditional Formatting Report for: !!;7!(Worksheet name: !;-Number of cells with Conditional Formatting: 6;Report generated: ; A1:I472!(A1:I472!(A5:I572!( v(E7:H772( Condition 19DC@qxI7:L772wZ Condition 29DC@q8M7:P772 Condition 39DC@q v('Address 7(DRow 7(DColumn 7(DNo. Conditions 7(DType 7(DOperator 7(DFormula1 7(DFormula2 7(DType  7(DOperator  7(DFormula1  7(DFormula2  7(DtType  7(DOperator 7(DFormula1 7(DFormula2 7(DkE7:P772 95(5( t 1B!5xMEPS<S<S<S<<<<2` P`T R% V%`X`Z \(%`^`` I I  %`` H% h%``````Z @ ,IX i !~,@I   fori   0  0 D  (08 "@ HX`hp.x600@H "PX`hpx  $   X hpx 4         (  0 @P  .`     , 0@ HX h x$   .  P` ,h $   ( 8H X  h..  "  (8HPX`h pT     "8  ` `p     @ @  H 0h     D  ,0 F` *     8 H  `  x                  @ ` $     (Hh  (0 H P ` p       8 P X h x        0 @`h <x < *  ( 8 H  X hp  (   ( 8 X ` h**,0,@p    @ & @X p 4    "( 0 P`x  B " B   @`  ,*@H "P Xh "p ,x  "&  0x]`]x]]]]]   (@ B9D H9Fq Settings ShowProgress$J'4 SettingsRememberSettings$J   obActiveOnly$J L(D   obAllSheets$J N(Dko`]]]]5(  7(  7(ECT  7(  7(  7(  7(qI7:L772!(A8:P872 95( $5(x  7(  7(0  7(  7(  7(  7(qq  ' 6 Examine each cell'   5 it's necessary to actually select each cell because, 6 when using relative references, Formula1 and Formula2 # vary, depending on the active cellH !B@ B@ B@  ' 4    6 ! (A@kH k@  %  , !  , !  , !!' !!  ,' Z  Z %!l$   ,  ' Z %!T$   ,  '' Z %!P   ,  '' Z %!R   ,(  ' Zh  ' d  CellCount = 0)(No cells contain conditional formatting)  ,k  Fit the columns & header row    % (, A7:L1000 %2! B@    % !< G<  % (jx 7:7 %!B@ o  Maximize the speed` v(x v!|$z  8 v!~(kp : v(oX @ X KTFCell value is ' KTF Formula is'ni  tKTFBetween' vKTF Not between' xKTFEqual to' zKTF Not equal to' |KTF Greater than' ~KTF Less than' KTFGreater than or equal to'( KTFLess than or equal to'0ni@ A@ro& Cancel button in progress indicatorP !B@BA0 A@rgopup6.xla!ShowPUPHelp vB@oAttribute VB_Name = "UserForm1" " Bas0{F147D323-5673-4326-900A-A8D3698CF685}{CE65C94A-5CF4-4DD8-A3JD12D17DA8177} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit Dim ShowProgress As BooleanCellCount Long ErrorCheckingCalcSettIntegerA Outpu*WorksheeHGSelec+a#RangIReport(kbook2PCE Sub A_Initialize() AMe.CaA= APPNAMECWith MultiPage1 .Valus"0StyxfmTabNon) End A JW = GetDD(P"U, "Ds"Hc1.IfRemember 1)1 Thes'obAWveOnlyF7&H@% @% * F-E'DllSqs?'E B (If : tcal`" raaUnload MäkExit}c"EbB!aA/@% Eachb 5In C&.7D.+*!& " @& Chr(149)`(" ۥ+aINextA ! <> "";4t`L+N4sk?'DA cKai Z` Vmore=W:SH#FK"!UinWanyway?Ha3= @0+(`,P)In mab+YesNo$T13vbNob/'bAo'R _J9sY :Jh7'oJuGJsindow.stCsFAdj` szs to maxi`e the speedApp@V.Scre`enUpdp=^ [sr(VersP) >= 10  k s.Backgr0dŇn  ) OQ'7xlManual#_Ae new &58AriRsInNew;$o~ =/k xQ+= s.Adt"-OAx a 1.Xcl#ec(% R, ' Run+yE`Oz@QL.r' pmP  li ToDkw qt(i), i) _w1hi#33-D`w1,nA-c*'y 1).Bs=" BG*/ets  ;__d b [.Pnt 0+\S_a'Sav3^u0`#-B&Edq".Value * -1 Call RestoreSettingsdUnload Me End Sub   GenerateReport(sht, n)jDim WorkRange As 6FrmlaStrkShtNam2 U L, Ce[HeaderRow_Integer,urrent!Long:CoZur l NumConditPionsi If ShowProgress Then 0b0wN0 El"F`'A;M:bhJCAFullaos c;Size142M"zp n R 3$* {;wasC |=D 4e XWNowa&&A:I4@BBXItalic/8Hq].%5:lI5 '8 'App a!.DisplayAlertsFaIG? E7:H7"ϤSf%@ 1(wMerg t@r! I7:L 2 M7:P 3 |/'J7w|= x&'n"8Addq 2)/|3Column4No. V4sh' 5P6dOpor7cIula)8I& Ւ, 9! lls( 10 11  1y 9\ y i 1y  1 /z%z@ M@.HorizЅalAlignmQ!{qoa5l4orInd4exp2 1riorpzlW16lBorps(xlEdgeLeft).LineStylar inuou{6Top=n{IBottomRigh/ / R InsideViical7//Qc#i._'A8:P8>t'' 'a5 R'3$$$$ $lP`$ $= o, k,$) $?40  ideHorizontal).LineStyle@ = xlCinuous End WithDOn Error GoTo 00 L$Curr@entRowH eader+ 1If Celtunt <> 0 Then "'yxam each c)6Co3erWKFE+U In WorkRange8'' it's necessary to actually select@ because,!w\ using relativefe +, MmulaX1 a2 "v?, depend$on theF'dsht.DPa.Ac@at{ L (]EFs$@uShowProgr@TtE~pMod <10r Label.WidTth@ (E!/G) * FrameK 1DoEvgEIfK O@utput.APs(G, 1)(VddAB(rowabsolute:=Fal cmn)2k 3fCBNum`ditioLnsUat.Ǣ. , 4 l `5l Resume NeLxt+@ i1 j;)`bFType("7M(i). 4 #.b= CFOperator7%!i}"'" &Bh.Qa)ca-C iK2$_8 aB Ew ~'`O -b"h(Nosincnal fo rmatt)" @A#Fit#s6hB 6ib1( ?@KopumnuU3 Soltu("A7:L10P00")@ls.Auto P9= _?e3> 6` = Y@Hs("7:7p Entire A]Sub Priv5Ps F8eS2es(@7qMa@ximize"speedApplicpon.ScreenUpd= Trux!Val(VersV) >=ap#)2Check!Op"Z.Backgrtd(User3 kCalc=te Fun CRt) A`s Str SCas#1 xl4pue:O Up"A value is /HExpatYI 2  fWo&pO H op^ BetwUq d Not/1"oEqMB= 2e_Gre/rmd.anL1P xl  p #/  B>O!{?CanButton_C0=k?a(Unload M<?C2qCT br _pi󰾀Cor%jΎP$Clo@R0;l]K,  OPPUPHelp? iDRun "pup6.xla!2", 647_VBA_PROJECT?dirwH__SRP_0 P__SRP_1rkRange@5FrmlaQShtName}nURangeCell HeaderRowI* CurrentRowSmCounterColH LabelSheetNumw LabelProgress} UsedRangeȉCellsParentFontUBold SpecialCellsxlCellTypeFormulas#ErroNumber-FullNameОSizeNow%Italic!WrapText}Interior; ColorIndexBordersC" xlEdgeLeftL LineStylew xlContinuous[ xlEdgeToph xlEdgeBottom xlEdgeRight%vxlInsideVerticaljMxlInsideHorizontal FrameProgressAddress rowabsoluteՒcolumnabsoluteq4RowColumniIsErrorU IsLogical| NumberFormatRHasArray FormulaLocalDFormulaR1C1Local Locked  FormulaHidden PrecedentsDirectPrecedents* Dependents2DirectDependentsRowsU EntireRowAutoFit& Columnsp9 ColumnWidthCancelButton_ClickCancelButton2_ClickȌHelpButton_ClickfRun_UserFormNFrame1Label1,OKButton| CancelButtonLabel2, CancelButton2v HelpButton InitializeNClick_Defaultj PUPHelpButtonFzPUPHelpButton_Clickv _B_var_Chr\; ActiveCellMultiPage1_ChangeJ _B_var_StringӊDataValidationReport HasValidationwcZChange _B_var_On6xo_B_var_x Validation IsEmpty ValidationCells+xlCellTypeAllValidationFormula1Formula2OperatorkValidationTypetkxlValidateInputOnlyxlValidateWholeNumberxlValidateDecimalGxlValidateListĤxlValidateDateLxlValidateTimeExlValidateTextLengthUxlValidateCustom _B_var_Select'E _B_var_CaseWholerValidationOperator61of xlBetweenk xlNotBetweenXxlEqual- xlNotEqual|A xlGreaterxlLess;xlGreaterEqual~ xlLessEqualop^xlNotBetweenValidationOperator܇xlEqualValidationOperatorӝxlNotEqualValidationOperator?xlGreaterValidationOperator9xlLessValidationOperatoroValidationAlertStyle0als.txlValidAlertStopxlValidAlertWarning xlValidAlertInformation͈ ShowInput IgnoreBlankRInCellDropdown9 AlertStyle7_B_var_AlertStylep _B_var_setValType_B_var_ValTypecsae _B_var_csae8 ValidReport+ CondFmtReportvxlCellTypeAllFormatConditionsConditionalFormattingReportnFormatConditionsu _B_var_withYMergeq_ DisplayAlertsHorizontalAlignmentS@xlCenterxlNone SelectionZ NumConditions_B_var_NumConditions_B_var_i  _B_var_ForjL _B_var_cellCFType:v CFOperatorenx _B_var_enxF xlCellValuay  *\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{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B2E8696D-4847-48FE-B221-040B87292B4F}#2.0#0#C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\MSOFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library A%C7B Sheet12y431864fd Sheet1@ThisWorkbook0Y43185a6fThisWorkbookFModule12L43254192Module1I0UserForm12M43254192)UserForm1!5H1hH00~t֗'CcN9-A/1_GEģ2:BK L]q pK AsCaseDElseRFalseTFor^GoTo_IfxLongOutputResumeSetSubThenToTrueWithExcel+VBAWin16~Win32MacVBA6# FormulaRepAstdole`MSFormsCOfficeuSheet1 _Evaluate ThisWorkbook|Module1bPUPNAMEӆAPPNAMEKp FormulaReport  CheckAddIn ActiveSheet%NTypeName UserForm1)ShowCloseMe WorkbooksBSheets Range  ShowProgress_8 CellCountUserErrorCheckingUserCalcSettingT WorksheetUserForm_Initialize5cCaptionx MultiPage14?ValueKStylepfmTabStyleNone^ GetSetting obActiveOnly9 obAllSheetsнOKButton_Clickf OriginalBook"Workbookk OriginalSheet6 UserSheetCt|i`wksVMsgQAnsxtProtectContentsMsgBoxRvbCrLf vbCritical+}ActiveWorkbook WorksheetsChrK~ vbInformationnvbYesNovbNo% Application*ScreenUpdating! ValVersionErrorCheckingOptionsX'BackgroundCheckingp; CalculationhxlCalculationManualSheetsInNewWorkbookAddrGenerateReportCount0v SaveSettingRestoreSettingsSshtne FormulaCellse ConstantCells.) Woe xlExpressionRFormulaqYDeletexActivate| UserSelectionh ActiveWindow+RangeSelection7~ ReportBook _B_var_Reportbook&| _B_var_IfPen] _B_var_enx) H +x A%C7 J< rstdole>std@olerf%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automa0tion/MSForms>SFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4 DNT\System32\FM20.DLL#Micr@osoft 9 \ Object Library/;C1s00}#0#j0 AB2E8696D-4847FE-B221-040B87@292B4F6DOCUME~1\jwalk\LOCALSTem@p\VBE\DS.8exd`;!.E .`M C OfficDOf@icBz p02DF8D04C-5BFAgB-BDE5@ITAA@420MSOFFICE\397g 8\.0gDB´S@heet1G´Sh)e@1UH2NHB1B,@"B+BBThisWorkbookG@T@iWkbok@ [A 2opFliodule uio{u{ 27m -!I!b %! Use6r!j@ er&ya2/@q-!5c1(@ brU~~~~~~~~~m    Q  Q ( xxx  in  Parent P is protected. Report was not generated.FontBoldSpecialCellsFFfĤIx8< FConditional Formatting Report for: FullNameSize Worksheet name:  ZNumber of cells with Conditional Formatting: $Report generated:  A1:I4MF A5:I5 Address Value Row Column Value Type Operator Formula1 Formula2 Ignore Blank In-cell Dropdown $Show Input Message Alert StylepFUFTF '(error) '/DF D(No cells contain data validation)ColumnWidth A7:L1000 7:7EntireRowAutoFit[5)L=+mG V   ( " H / h B7:E7 F7:I7 J7:M7̥A.r Condition 1 Condition 2 Condition 3 No. ConditionsG_.KE8b A7 B7:M7 F9(CN>FxDF Worksheet E7:H7 I7:L7 M7:P7 E7:P7 A8:P8 Any Value Whole Number Decimal List Date Time Text Length Custom Between Not between Equal to Not Equal to Greater than Less than 0Greater than or equal to *Less than or equal to Stop Warning Information Close (pup6.xla!ShowPUPHelp$DF%DF R(No cells contain conditional formatting).?@(FA| P0B{, !JDnvVW,Evܚ 4 q CFType CFOperator Cell valueis  Formula is Not equal to Cell value is Activatew0 uKe"|\prPC԰S @D幦L@FpevjIM  @DHto[qFYoK*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  1(VmLć<     Sheet1 ThisWorkbookModule1 UserForm1 CondFmtReportF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Y 0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Qy@0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole aP.E .`M C:\WINNT\System32\FM20.DLLMSForms aa`miGHH! )+O /C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd 9aapL-[DRC:\MSOFFICE\OFFICE\MSO97.DLLOffice !I "Power Utility Pak :Conditional Formatting Report{lFWJOConditionalFormattingReport CheckAddIn FF Worksheet2OyoB)S7EZ=Fe3i eb?BϪG@ABCDEF9I`KLMNOQRSTUVWJl\]b adcefghijkfoi09i*WJOqqi10i*WJOqqCompObjsx0foRoot Entry Fw?<Workbook.? _VBA_PROJECT_CUR",*q"qVBA+qq Q 8 Q 1 H Q Xshtntopals h Y,x 14 F(H  P@'}R KQDBTahoma0#( #9MultiPage1   pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19ql1? Page1iPage2iTab3Tab45Tahoman$H P}? p$ #Page12Z5,$ !Page22Z5, P i*WJOMicrosoft Forms 2.0 FormEmbi18# n``qqCompObjnf$o i01!& n``qqCompObjnfo"$8edded Object Forms.Form.19q ( Working on...5Tahomaon4($Generating Data Validation Report...7+@Tahomaon(CancelonquTahomaon$H P }0 2@LabelSheetNum(2XLabel2ZX0 ?8CancelButton2CompObjpfo%'CompObjpU , #FrameProgress\ S i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qx(fThis utility creates a report that lists all all cells in a worksheet that use conditional formatting.c5Tahoman(OK#quTahoman(CancelquTahomaaR KQltBM6(uTahoma$H }(2Label1+(74OKButton[ $#Frame1on+5, ?8CancelButton , PUPHelpButtonK  S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q#"a5Tahomaon,J  P}8#0 P28LabelProgress S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q@Fs01 Active sheet only `5TahomaPF!A00 All sheets in the active workbook: 5Tahoma<H   }tReport scopeR KQDBTahoma\( `obActiveOnlyX( pobAllSheetsyX S S Microsoft Forms 2.0 FormEmbedded Object9qt Excel@}Z@p՜.+,0 X`|  Excel Add-In ToolsJWalk & Associates Sheet1  Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q