ࡱ> }   (v !"#$%&'p*5,-./01234)6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqrstu{xyz|Root Entry FYo.E0OWorkbook _VBA_PROJECT_CUR"]?0~e@0VBA?0X?@0  !"#$%&'()*,-./0123456789:;<=>?@ABCDEFGIJKLMNOQRTUVWXYZ[\]^_`abdefghijklmnopqrtuvwxyz{|}~ u'ɀ\pMaxim Samsonov Ba=-B0=830=iL;1<X@"1" Arial Cyr1" Arial Cyr1" Arial Cyr1" Arial Cyr/#,##0"@.";\-#,##0"@."9#,##0"@.";[Red]\-#,##0"@.";#,##0.00"@.";\-#,##0.00"@."E #,##0.00"@.";[Red]\-#,##0.00"@."k*3_-* #,##0"@."_-;\-* #,##0"@."_-;_-* "-""@."_-;_-@_-k)3_-* #,##0_@_._-;\-* #,##0_@_._-;_-* "-"_@_._-;_-@_-{,;_-* #,##0.00"@."_-;\-* #,##0.00"@."_-;_-* "-"??"@."_-;_-@_-{+;_-* #,##0.00_@_._-;\-* #,##0.00_@_._-;_-* "-"??_@_._-;_-@_-                , *  + ) `I8AB1a8AB2y 8AB3T u'ɀ   dMbP?_*+%"??U>@7 8AB1 u'ɀ   dMbP?_*+%"??U>@7 8AB2 u'ɀ 1  dMbP?_*+%"??U>@7 8AB3 8'.#<M?DFIO>|`E')5vxIO>|`E')5vM?DME-B0=830 +?__SRP_2H__SRP_3P8AB1 SPSLSS6" <<<N0{00020819-0000-0000-C000-000000000046} `` @i x<  `@|k%` %8 %`@ F1$*\Rffff*0747120bf3$*\Rffff*0847120bf34 "    "  (8H Bo`` B"o@8Attribute VB_Name = ""  Bas|0{00020819-u 0C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2 P Sub Workbook_BeforeCl9(Cancel As Boolean) Call KraModule.UnInitializ\End' .Open("!rU 0 41Y `` IW0   <   $ 44PrU @(`#$A` n33#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0 F1 xAttribute VB_Name = " 1" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2 'L#xME 8AB2 c8AB3 sKraModuleEvents __SRP_6 "(SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0 F1xAttribute VB_Name = " 2" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2'#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0 F1xAttribute VB_Name = " 3" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2rU  ! I 81q `q@  > ' Copywri(C) MSS 2006 !'! - .! (1) ! 2  /) e AU (shtAct@) VVAAWR Public With  As Work`sheetIF.VarHelpDID-1 )Ax'i'wrkbkbookHappApp)'aR g?! )ation*1A >> U"aF @(A"p s m)+:Pa@SubGD_SeleOonChange(ByVal T arget!Ex`cel.Ra AgCall .DoSearch(:Cell.ue End cK_%2a%?% )%$HQ|_ShB($iSbh$Obj(S@'Flj  jF <B , 傩 N @f"-A, ,a  POPPN "M" ,!07Ox,S9_ANQDBeforeClyWb!E, _c,)?Can/Boolean!Dim Tm.pIaIntegerSSqZø3BsPCL For IP#1 To .Coun[Y %= .I`tem(I I&f Is The`M.Rem0ove ^Exit @  R =0'_mpNext IA&p%n*P%' ...O1p0 O ,IOnDrop 8 X ` 4p    4  0 8 >H < 2  "    ( >0 :p 2 "    > 2P J $  R ` x"          .0 ` h x         @H >P 2 2  "       0 P ` A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''A Copywrite (C) MSS 2006 'A KraModuleEvents - 'A (1) 'A (2) 'A (2) 'A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''7 (shtActive)  ] . A (shtActive)  ] 8- (appApp) ] h8 *******************************************************5 + ( ) @!B B>o8 *******************************************************3 + ( ) F.,o8 *******************************************************+ D ( , -, , , )L ""   'X]] !P N5R N7T.L J L NC@Vyk wrkbkWb Is wrkbkTmp N( - ...5R BXk .Count = 0q KraModule.wrkbksPCL J !Z /Zk  wrkbkWb Is wrkbkResults J 0 B\k  wrkbkWb Is wrkbkActive'o8 *******************************************************+ + ( ) J 0 B\k  wrkbkWb Is wrkbkActiveoϵAttribute VB_Name = "KraModuleEvents" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacI False dCr@eatablPredecla IdCExpoDseTru `TemplateD0erivCustomizD'9 @4H @94 Y@(q<nrU~|  % I Q 9 aAY Y)ay a #4d*\R3*#30*\R3*#4f*\R3*#345l H HH H H H  h  . "( 8 P$X$$.   @ ,H(x  2 $@ hp x    > 6 @"H P VX  8  : @8 x    V ( *Hx AugO^\xMEH  @"*0|02(L<<0.<<<> L*LL` 8i**** L****% 0 % 0%` `****`  %`+` PP) mman%i@9 )`hThe %i   % &xt c %@N ****`,**** X `Xk8 !!:i2  a+ `  [i@ Sa`6@N ~(`8_P`@XHbxH€f( @€lx8 @˜pB˜vB zXP @[@PX (x(@ 0 hx8 @6zbd@X t @p l `0% p  -yW@ ` p @x \  @ L A@@ < 8 *@ , ****@ ****( fjnlhp@ `0 PR@@ `E X  ' @h ` @ /@ ` h 7,ro@` ?=C:@ ~ P8 p z6bd *******@x **** t `**n0% @~d "@` ( 9@\_ ect  r Pick@L @h< @, 8p0XH@z 6!0 pfjnlhrtE@h nt@X X X0 `)X F1$*\Rffff*0947120bf3*\R0*#1c*\R1*#286*\R1*#284$*\Rffff*0847120bf3*\R3*#4e*\R1*#285*\R1*#df*\R1*#282*\R3*#2d*\R3*& 2  ;   = 8 @ H h (  =      8(  ` =x         (   =  @  H  P  h  "  =         ((  P p   > 2  "  L( x                      ( H  ` p >x 0  "    @ HPX &p    .    08@P  X `  p   @  ( 8  NH R ( L h px  $     \ H ` p 6x   > 0 0" 8  @ 2P   H 8 H "P x   > & "     .  PX  Xh    >  0` "   R      0 >8 (x "     D  0  @ P >X 2   "    (  "0 X ` px  @          ( 0 @ 2P  2   2( ` h 2      08@ Xh      ^ T $` F    0 .@ p Lx     2  >  `hp x  (  F @  H  X $p      " (!  (!8!@!  H! h!  <! ! !  B! \ " 4" " " """ # (#  H# RX# # # # V# @ $ `$ h$$$$$$ $$  : % `% h%  >x% %%p%H&`& x& >& "& & ' ,(' @X' B' ' ,' B ( ' V(( (( H) VP)  ) ) )  <)  *(*0*  0@* p* x*  V* * * F* @+ H+ VP+ + ^+ , V, bp, ,,,  R- X- V`- - B- :. 8H. . V.. ./*0/ `/ p/  X/ // \/ PX0 00 000  0"101 H1 P1 >X1 N1 1" 1 1( 2 (2 82 H2 X2 h2 $x2 2 2 2 2 2 2 3  3 03 @3 P3 `3 x3 >3 ,3 3 ,4 @4B  H4 P4`4 6p4 444 r4:`555 55 5A'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''A Copywrite (C) MSS 2006 'A KraModule - , 'A ? 'A''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ]DKRa Excel Add-In( -'']DPrice-list item search@]D - ]h -]( -]P ] ]x  Add-In']D( - ]D( - ]D(  ]D( MAX_INT]D ( ing y ] -SPR]  ] 0 8 *******************************************************n0 Add-in'n]P *************** . Excel - . *****************j2 4 For Each ctl In CommandBars("Standard").Controlsva.9 If ctl.TooltipText = "The AddIn's menu item" Then ctl.Delete F End IfTE Next ctlCoP *******************************************************************************t M$ ( add-in )VE=A 6 z/4= 6+ - Sa b  %.~ ~( d ~(_P l ~!%.fTS f 9& -9AOnLoadPriceLists9 - 9q btnLoadPricend l ~!%.jat j 9& 9\OnRunAutoQuery9:/ 9q btnAutoQueryem l ~!%.ngr n 9& 9s\;OnStopAutoQuery9 9qbtnStopAutoQuery l ~!%.le\ l 9 & 9COnRunManualQuery9 9JS;qbtnManualQueryW l ~!%.h=C h 9& -9lOnDropPriceLists9 - 9qbtnDropPriceListsARCq Applicationx8 pA@ESo`8 *******************************************************2+ Add-in'PRE , am z/,ro z/0il =C: 6 ~ Q ~! b ~B@stek ~! d ~B@_RTk For Each cmdBarileq Application\R z/4l o8 *******************************************************n* " -"8AX]x9 FileDialog object "Folder Picker dialog box".]  6%.MP ~ (1\T'Show = -1 , OK()M !S~1 %'RDO ] 6!.s  9*.xls9E7 nt]]] 6!.m N5!Ri 222 N7 %.L LT N7 PB  ( NH -L ActiveSheet - . , - , " , F If Not wrkshtTmp Is Nothing Then -- , -  B@h - rA@d . Execute 8 -. .   `Ak . Executeq fs.k . fd.Show = -1 - .. ().o@ 8 ******************************************************** " -"( pA@, -]h] N P!R P%TB@BB , 1 app_WorkBookBeforeCLose KraModuleEvents wrkbksPCL.Remove (1) Noh 8 ******************************************************* " " tA@( @!BA>R  6! z/, 6! z/0o 8 ******************************************************** " "L , z/, z/0 rA@o8 *******************************************************! " " ]` tA@C : @!B `$'  A>k varKey rA@o8 *******************************************************+  strKey - x]]]]8]P]h . $': (1) , Z] 65. (1.1) 5B@5.Z, (1.2) 9 N Z!!R  Z!%TB@ N! To wrkbkResults.Sheets.Count - 19q Application, (1.3)  Z!%T.+ (1.4) ,   999 6!9 6!9C@q Z% 99 6!9 6!9 6!9qxk wrkbResults Is NothingW (2) - , , M , ,  @ , " ", :  (1) (2) ...( (cMaxInt = 32767)F , - + (2.1) : $'8 (2.2) strKey (strNameBase !) " "' '  Z! ! 'yPk wrkshtRes.Name = strKey  In wrkbkResults.Sheets@ (2.3) strKey ,  N v ( N$  ) ''  Z! ! 'y(k wrkshtRes.Name = strName  In wrkbkResults.Sheets yk N To cMaxIntk bNameOK <> True5 (3A) ; (3A.1) ( ),U - , - (. 1.3)  Z! 5R7TC@5R7T.q wrkbkResults.Worksheetsk wrkshtRes Is Nothing  (K (3A.2) ]'O (3A.3) -, 9 ! - N P!R N P%T.L  L!    $'  In wrkbkTmp.Sheets N To wrkbksPCL.Count4 (3A.4) !B@8 (3B) d bNameOK = True  - '  '. .   `Ak bNameOK = Truek strKey <> ""o8 *******************************************************  wrkshtSrc -  strKey - % wrkshtRes - : iFrstRow - ; (.. 0- " ")& Returns - iFrstRow#P *************** . Excel - . ***************** m = MsgBox(", : '" + strKey + "' '" +' wrkshtSrc.Name + "' '" +' wrkshtSrc.Parent.Name + "'", vbOKOnly)P *******************************************************************************  !5 (1) , Range] 7 .) (2) , Nothing P (4) , FindNext !$'"? (5) FindNext , .. , Find_P *************** . Excel - . *****************W m = MsgBox(" '" + cellFound + "' " + Str(cellsToCopy.Row))P *******************************************************************************\ (5.1) Range() (! - MergeArea) , ] !(!*.&L (5.2) Range, , P *************** . Excel - . *****************< cellsToCopy.Borders.LineStyle = xlContinuous4 cellsToCopy.Borders.Weight = xlThick2 cellsToCopy.Borders.ColorIndex = 7P *******************************************************************************] N &!.!R , &!!R N , &%  N , , , NQ (5.4) Range'  &!.!R 'V (5.5) FindNext, , (!)J ( Find), Nothing 70. x(k cellFound Is Nothing !$ "k Not cellFound Is Nothingq wrkshtSrc.Cells 'i8 *******************************************************H Add-In' 2 pKT$ -  f(4 j(4 n(4 l(4 h(4 rKT$ -  f(4 j(4 n(4 l(4 h(4 tKT$ f(4 j(4 n(4 l(4 h(4n Case kraStateo 8 *******************************************************% : - 32 & - : \ / ? * [ ]X]]  x $'9 '8 N 8  N$'6   6: 6\ 6/ 6? 6* 6[ 6]  N $ $:  8 N $< 'kX N To L 'i0 ( Attribute VB_Name = "KraModule" '> Copywri(C) MSS 200@6 !'C - , C   ?"C!f[ PrivaConst cAppRa Excel Add-In$ .@-.B ar.ce-li@im search# L @2-& 8Dim btnLoadL@s`'e@k#@   Dr$op  AutoQueryEw' @-0ManualH 'T9C: Stop'>.j@zDp'Ce }krPCLNotAHedZB00' X LI@FK1E@ (Sb@RunPning2'` E"  ZnYMaxInt 32767'@MAX_INTQ SheetTLe0ngth ] !P +!@>8%@AKevents# As New E< /ublic wrkb ks@6Coll@ection`@R@esultsWbo ookAc'| *1 F  KvRinRPSub Initialize()%cmdaComman4 .$- 4.%' @K @ a8 yt``LFor Each 8ctl Es("Stard").trols %SIf.TooltipTex!aW"The%In's menu " ='e .Delete End IfNa !n8 A.Sty A Capu .Tp "&A_mv {q.OnA"LOz,2 r0R'iwD'wh'" ?t| "@pS z~댿ol*Q=@*Rr5vI q > ???p*Jq)>_>N ܾOOOF_y + -T<4T) fw@n SetCmdBarButtonsState (krPCLNotL@oaded)E@nd Sub(' *3 '  Add-in'- Publicy UnInitialize(Q , aa k 5( eventsModule.shtActive = hingwrkbkSQ ?6With AppqatioAFor Each c In Comman&s@If.N4amScThe)).DeleteAyIfL Next ' ;"G 'NJHjapp Mi ?'  Ò ("D-"BwP0riva@ On@ceLis ts1CallDropCDim vrtSjctedFolder As S trF FileDog object B" Pickdbox".C! fdA gc!-  = U.(mso#   ffd.AllowMultic9FalsTShow-1 , ` OK('#d@ 3V+= d.Items(1 $ . )s)Search)sHZw) B_f,}! .Look=OD 3nc"*.xl>sT!e%.Execute(AlwaysAccurY:=True) > 0t+ G KBTmp"W>o6 Hsh(eetsI Integer/e/a1  [SI`81 To @.Found!,s<.C@A bk a= s.OpHen(4:= (I), _?%Upd5Linkxs:=g _ReadOnlyOO}ToMru4P"s.P(7:=2P, ke rWindow.c= xlMihnim@dhIa?_V M pp@:aa% - . , `- 3pN9OPii ,_AP= /Is< -- UAUp U-PpO n Err0Resu0q_. *?Go50S" @- 0 8oe76m E@i'. R "-MsgB@ox("`! $#.0 2 Rm."_7 vbOKA: + vbExclamҤc@hqL4e" T ' iNf1n'ud.x- 0..{!( rdpWx*#"wOn &3Ր@ B@ ,@Q4uu/rl`9|bkBWkX0.pClos"er'( ,-, R@pct_!qBBeforeCL< Kra}E0a,w Remoğ%]"7L *Q"" ROnRunAutoQuery!a s"@Q"np#3' Ѱ ç@  )2HDo(gSCell.Val@ue) ' n l240vSet eventsModule.shtActive = Application.Sheet9wrkbk ;Wo ook End Sub' *3nB" "xPubg< OnStopAutoQuery(@ ,Aɂ:NothingU F CmdBarButtonsState (krPCLL`oadedF6\**4 \qZriv"yZRunManual [FDim strKey As StrB8Searchn 9A = InputBox(Prompt:="C:", _ B Defaul  Title:=cNamIf:<> "" ThenCall Do(a7'va%CK@n!9n2A#( A*- r?@r@ !rByRe%B!FTmpFga @sGRes%b6OKBoolea5a@3BaseiVM!A' aP !퀵"Eaa` = ʈ#HTrimI(1)  a7dc, ¢'b1ds Ise \%wndC^&@WindowWithiaFi! = . bb .Is.Adda$/bk% h' (1.2 ) A`  e .DisplayAlertsFalseFor I1 To .zs.Count 8- 1 /s.Item".Delet? Next@'/q6/q4qn TruNb'X`Q3) H!-^644) A10%, Жqo / .+|= xlNormal.Top`.LeftH0eighUspable d'`8K#Wi/ 2_c8eHWb+0Iíz^-Cib3œ, { J , TLt T l@PD`1 !gh@fA;, Y 3 8 (dj`t "`Н :% wF0'0\ (2...of cMaxI0Y= `32767qvAb2 L@xM, 01-`E T(2!p!pc!4= ine@5" @&Q!) "yq 1ŗ= aPM!w qEach1]aIn25{q'q.q A yExit D End If ' wrkshtRes.Name = str`Key NextTmp$In8bkfults.Sheet"s` 'h(2.3)  ,  B|bOK <> True Then  For I1 To cMaxInt !%uBase + "("Str(dI))"F=FGEachN& g #\F0alse Exit .Sڍ! /b̅EW4C3G*I@ CWDCA(3A) Ȼ  Y: .1)@ 0I ( ),$ oav - , @ "L  B (. ~1 @ƒ Is NothingT n HkSrc @h 91D 1- 8#QjQ@i!iFrstL0>-UQGRQ`lRQ *]Qq?(.@. 0-"L/!"'Returns Psu8" Private Fu,nc"W?s1(ByRef$?1YA, dC_#?_ 8a_Val 4a)a" @02. 0 el@ 08& Qm};`IP'B$i:N:));:aϯj *y'r/ .Parent@@U>" #F!*ڐ#Ֆ@ %.Cell߆(|2<, A36YRang/c0F0s $av= .Find^(C,e (ſq¸e Ц '4"lD !,H 岇P1 gsafiIress`*V 1#  5)dpe5 , IE , 8Find ' Do H * . Excel - @ J.i z**' f m = MsgBox("@ '" + Ol Found "' Str(sToCopy.Row))\ = + (5.1) 쀡 Range()  (!MergeArea)],b 0[ Dimp As4сSet=.@.Entire72) @74, O0C/EB @3 ^I>.Borders.LineStylexlCo>nuo fiT'd'With #_pSrc.Zc DoSearchS`,leWoadeGGЁ Functio@$!F#:,-"^ w~ W -In'^Private Sub CmdBarButt onsSt(kQstUoaeP f%\*\G{00020430-C_VBA_PROJECT ~4dir__SRP_0 |__SRP_1GmmandBars 0Addr0Position0 msoBarTopy0Visible0 NameLocal0ControlsK0msoControlButtonn0Style)0msoButtonCaption0Captionx0OnAction0 TooltipTextb?0SetCmdBarButtonsStatet0Deletex0OnLoadPriceLists׎0vrtSelectedFolder݇0fd7]0 FileDialog0msoFileDialogFolderPicker?'0AllowMultiSelectV0Show0 SelectedItems0fsF]0 FileSearchD0LookInP0Filenamej0ExecuteY0AlwaysAccuratex90 wrkshtTmp%*0 ActiveSheet%N0 FoundFiles0 Workbooks0 UpdateLinks0ReadOnly8<0AddToMruf0key0 ActiveWindowzB0 WindowState0 xlMinimized20Activate|0MsgBoxR0vbOKOnly0 vbExclamation0OnRunAutoQuery+0ActiveWorkbook0OnRunManualQuery0strKey0InputBox 0Promptm0Default0Title~0 wrkshtResN0bNameOKM0 strNameBase@0strNameZ0Trim@0 wndSearchF0Window0 DisplayAlerts0Sheets 0xlNormalL0Top50Height|0 UsableHeightq0 UsableWidth$0Windows؜0DefineStrNameBase0Str0 Worksheets0AfterX0 iRowPosition30DoSearchSingleWorksheet[Q0Columnsp90AutoFit& 0 wrkshtSrcx%0iFrstRowj~0Cells0 cellFound%0Findn0 firstAddressd0Address0 cellsToCopy0 MergeArea0 EntireRow0Ja0RowsU0FindNextu0kraStateh0Enabled۪0strCurrH0Lc0ChrK~0Right 0 BeforeClose~;0Class0SelectionChangen0 SheetActivate 0WorkbookBeforeCloseZ0WorkbookDeactivateS0 _B_var_cmdBar+0 %' ) +  l@@ AB30447120bf3) 8AB3H-KraModuleEvents0947120bf3+KraModuleEvents`;KraModule084 0046}#2.0#0#C:\WINNT\system32\12.tlb#OLE Automation/DOfficDO>fiw D2DF8D04C-5BFA-101B-BDE5DAAB42Dgram Files\CommonMicrosoft S@hared\@10\mso.dl l# 10.0 Ob Li`braryKMSFor ms>SForms3@RD452EE1-E08F0A-8-02608C@4D0BB4RFM20.DLL& ^L&/;!~1iIpAHp00}#7@p# 50 A5E556BD2-F320-4459-8A44-EBD5F18AD49IfDOCUME~1\MAXIMSLOCALTemp\VBE\T.exd pC}'h= Excel+0 VBA0Win160Win320Mac0VBA6#0 KRaProject0stdole`0Officeu0MSFormsC0 ]0 _Evaluate0Workbook_BeforeClose0Cancel0 KraModuleq0 (UnInitialize>0 Workbook_Open 0 (InitializeN0 10 20 30 KraModuleEventsԲ0 shtActiveD0 Worksheet0 wrkbkActive90Workbook0appAppuz0 Application*0shtActive_SelectionChangeE0TargetF0Range 0(DoSearchp0 ActiveCell0ValueK0wrkbkActive_SheetActivate0shtShM(0appApp_WorkbookBeforeClose0wrkbkWbf0wrkbkTmp0I`0 (wrkbksPCL0Count0v0Itemz0Removeϱ0(OnDropPriceLists0 (wrkbkResultsj0(OnStopAutoQuerys0appApp_WorkbookDeactivate+0cAppNamer0cBarNamez0 cBarNameL0btnLoadPriceLists_0btnDropPriceLists>0 btnAutoQueryL0btnManualQueryY|0btnStopAutoQuery0krPCLNotLoaded0 krPCLLoadedg0krSearchRunningѪ0cMaxInt0cMaxSheetNameLengthU0 eventsModuleJ0 CollectionW0cmdBarC0 CommandBar0 Coy  ! 9a I! Qa q A a  9 i A y9Iia KRaProject123KraModuleEvents KraModuleF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )`F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel 1p0FFC:\WINNT\system32\stdole2.tlbstdole  QL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\mso.dllOffice q.E .`M C:\WINNT\system32\FM20.DLLMSForms  IkU^ YDDԒ 2C:\DOCUME~1\MAXIMS~1\LOCALS~1\Temp\VBE\MSForms.exd IFM?DIO>|`E')5vDFWorkbookWorkbook_BeforeClose Workbook_Open @ KRa Excel Add-In ,Price-list item search 6>8A: ?>78F89 2 ?@09A-;8AB5 Initialize UnInitializeOnLoadPriceListsOnDropPriceListsOnRunAutoQueryOnStopAutoQueryOnRunManualQueryDoSearchDoSearchSingleWorksheetFSetCmdBarButtonsStateDefineStrNameBase ,      !"#%&()*+,-./01245679:;<>,`(8HX+=h8+3q+:8iEfz}*=h8+3q TLqkU< wrkbkActiveDFappApp!=h8+3qClassPgv3+3o VBInternal  9DF shtActiveFshtActive_SelectionChangeFFwrkbkActive_SheetActivateappApp_WorkbookBeforeCloseappApp_WorkbookDeactivate $$XH4<4<HFF F F F Style ,&03@C78BL ?@09A-;8ABKCaption OnLoadPriceListsOnAction >03@C7:0 ?@09A-;8AB>2 2 A8AB5<CTooltipText *&2B><0B8G5A:89 ?>8A: OnRunAutoQuery ^2B><0B8G5A:89 ?>8A: ?> 7=0G5=8N B5:CI59 OG59:8 "&@5:@0B8BL ?>8A: OnStopAutoQuery >@5:@0B8BL 02B><0B8G5A:89 ?>8A: & CG=>9 ?>8A: OnRunManualQuery 2>8A: ?> 7040==><C B5:ABC ,&K3@C78BL ?@09A-;8ABK OnDropPriceLists @K3@C7:0 ?@09A-;8AB>2 87 A8AB5<KName DeleteEnabledPrU~~~~~~~~o a   KRa Excel Add-In I1CancelstrKey I  wrkshtSrc wrkshtResiFrstRowkraStatestrName I ( Y 8 IH shtActive wrkbkActive IXappApp Ih IaxTargetshtShwrkbkWb!-B0=83018AB128AB238AB3KraModuleEventsKraModuleEventsKraModuleKraModuleID="{00000000-0000-0000-0000-000000000000}" Document=/&PROJECTwm$PROJECT'SummaryInformation(3DocumentSummaryInformation88 H00000000 Document=1/&H00000000 Document=2/&H00000000 Document=3/&H00000000 Class=KraModuleEvents Module=KraModule Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} HelpFile="" Name="KRaProject" HelpContextID="0" Description="KRa Excel Add-In" VersionCompatible32="393222000" CMG="383A94E298E298E69CE69C" DPB="7072DC03F903F9FC0704F9E783BD1E8F5BFEC1F7A89547F186986C324B03578156BD15F9" GC="A8AA045705570557" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] =66, 69, 594, 417, 1=0, 0, 0, 0, C 2=0, 0, 0, 0, C 3=0, 0, 0, 0, C KraModuleEvents=154, 161, 682, 509, KraModule=44, 46, 157, 650, Z Oh+'0HPl KRa Excel Add-IneMaxim SamsonovnMaxim SamsonovnMicrosoft Excel@to@ @0՜.+,0 PXp x MSS ConsultingA 123  F Microsoft ExcelBiff8Excel.Sheet.89qCompObj=a