ࡱ>  p|  MOK !"#$/&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLNjQ_STUVWXYZ[\]^P`abcdefghiklmorstuvwxyz{|}~Root Entry F J @nWorkbookB_VBA_PROJECT_CUR"@' JBJVBA @.J)J FI\pErik Ba= ThisWorkbook=hKL,8X@"1Arial1Arial1Arial1Arial1Arial1 Arial#,##0\ "BF";\-#,##0\ "BF"##,##0\ "BF";[Red]\-#,##0\ "BF"$#,##0.00\ "BF";\-#,##0.00\ "BF")$#,##0.00\ "BF";[Red]\-#,##0.00\ "BF">*9_-* #,##0\ "BF"_-;\-* #,##0\ "BF"_-;_-* "-"\ "BF"_-;_-@_->)9_-* #,##0\ _B_F_-;\-* #,##0\ _B_F_-;_-* "-"\ _B_F_-;_-@_-F,A_-* #,##0.00\ "BF"_-;\-* #,##0.00\ "BF"_-;_-* "-"??\ "BF"_-;_-@_-F+A_-* #,##0.00\ _B_F_-;\-* #,##0.00\ _B_F_-;_-* "-"??\ _B_F_-;_-@_-                 + )  , *  ` foravalues %no_select_forum:$no_select_tags:%no_welcome_info:'store_displaymode:Twww.mrexcel.comwww.oplossing.befont10pt7pt select forum MySpcCode displaymodeDo NOT ask me again.MPLcodeMPLfont9pt8ptwelcomeDo NOT show me again.TxtS1TxtS2TxtFcMaxCpLc11ptforumx Vn FI  m  dMbP?_*+%MHP LaserJet 5L PCL@g XX @MSUD7HP LaserJet 5L PCL%d " dXX??U} $}      N@Q@@S@         $@@@?I@8@"%D%B@B~ @   @@U@@Q@      ~ &@8`0"%D%B@B11pt    @@@U@U@ Y(>@A 7   ; Lx ; BA' yK www.mrexcel.comyK 0http://www.mrexcel.com/yK www.oplossing.beyK 2http://www.oplossing.be//\FORMULAw sheet1 FI [W  dMbP?_*+%"??U} } I} m        (((>@7Blad1 ThisWorkbook __SRP_6)__SRP_7 1sheet1 4  !"#$%&'(*+,-./02356789:;<=>?@ABCDEFGIJKMOPQRSTUVWXYZ[\]^_`bcdfhijlmnopqrstuwxyz{|}~BP**#<ՀQ >DESTFՀQ >DESTxՀQ >DESTՀQ >DESTME$[LSS6"<(<<<<< <,<0<4<8<<<N0{00020819-0000-0000-C000-000000000046}X(% `xJpi  `xJ(0 %@ %`HxRx eR 0x h i 0(X H L(8 ( X(  80@OH$*\Rffff*0g48f350984  "   h " ( 0@ x0 nALE oX nAo80@` RGA@jX0@X=Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit` P"& Sub _Be@foreClB(Cancel As Boolean) Call DeleteM@enu(PN I f SavOn Then s _mpEnd29Open(--rU  14Y1 `` IW0 0  0   44PrU @(`Q#$A` nLz**#<ՀQ >DEST FՀQ >DESTxՀQ >DESTՀQ >DESTME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0p %Z %PxH@<<@OH$*\Rffff*0r48f350ae4 xpAttribute VB_Name = "she@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit __SRP_eH__SRP_fLBBlad1 N__SRP_aarU [9!yW 4!)!`rU @n<jx*#<ՀQ >DEST FՀQ >DESTxՀQ >DESTՀQ >DESTME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` % %`h8@<<0OH$*\Rffff*0i48f350984 xpAttribute VB_Name = "Bla d1" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2Option /licit rU !9!a! 4!)!`rU @nrU~| __SRP_beBbacktosheet_mod %^__SRP_10g__SRP_11k`x" ( 4H h x(HPX ` h "p (x$ ( 8 H @h :      @ P p      "   j L b @ X B` h p h $   "  (  0 @"X    4 * Pp  Dx*:8(@hx    $,0 8 Xp>     F hp(Px         d  H X B` hPx 4   &8 `x.     (8$  ( "0 &8 `p 0x (8 X h  "      4("`T 0 &0 tX   p p x   B   02  (0 B8  $0 X p` $  ! ! " !  !  (! 8!P! h! ! !!!!!N!R@"" "" "  "d"8# @# P#`#h#  p# # B #### #x]D]D ?Dim myTableText As String 'text cut from "[Table-It]"]Dx%t]D0 $name of sheettab]D($ 1st position]DP$ 2nd position]DX $First Carriage Return Position]Dx$ Column LableH 8@@<@D D@F@F@JhL @P`@T8 hP@V` l@Xp@h   PxH p0 @ (P08 p  hPx  @ X ` 0` x` x@ OH*\R1*#1b0$*\Rffff*0s48f350b3$    F( p .&0Xx  (   0 @ P ` p  $      "   "( 0@ "H P` " h >p  4  <  B`  H     (8 X`hpx   B  "00]D ]Dh]D$End of Line position]D ]D]D ]D8 ]D` A\oA\o0A\opno_welcome_infovalues %n%:GA@Ljcopy Table-It-result-NOTE: take care to select to upperleft corner run the codeDE(t5Table-It will be pasted in same range as the originalwa;(used some loops to avoid problems in elder Excel-versions)ask f!hgai5Please unprotect your sheet before running this code.0 "A@j|k. n'" B@p !v x  r%t'  b zA@| ~A@dx'bkhk`kX d A@ b$G bA@jcWWWkkodetermine first columnlable    r%t$'& &  '(,H  & ( & $+,determine first rownumber  '*,  * & $$'0-triggers an error if wrong Table-It-selection 0$,$.8 8!'2<  You didn't copy a complete ". x?Be sure to select till the upperleft corner (which has spaces). xPlease try again.'H H0 " ERRORA@jd'zkiP"determine all columnlabelpositions  * $'J'6_0 6@. J 6$, 6+. 6$.Gxj 6 '6 6@,determine next columnlable 6 $,$%% 6+, 6$, 6$,$ $ 6+, 6 @ 6 6 6$.D 6+@ 6find END of Table-It   '>'D'&_` D 'D D@B  & * $ D+B & * '& &$. '(cMsgBox "..." & Mid(myText, p1, PLbl(1) - 1) & "..." & vbLf & "..." & Mid(myText, p2 - 1, 1) & "..."  &$. $$  ( $ $ D'4SLen(myTableText) - Len(Application.Substitute(myTableText, vbCr, vbnullstring)) + 1 4 6 8%.<o'~ < r% #'CThis procedure will overwrite existing data and clear some formats. xFirst cell will be:  8% x xAIf the original contained empty rows (see the row numbers in the  "/) these rows will be inserted (only within the  n) x xDo you want to continue? x <!H'H H4 "$j G'~j@tkiP r(P F DC'l F$B F 8,3t FT^k D 8%C@H .ClearFormats r(5$ A17:  @C@ r(L$  4 67B@ D'4 .Rows.CountHuq>On Error Resume Next if err. could not complete the process`R 'H D 0 4  0 > D 2$$ D 2$$  'J J J 6 D 2$%B@ 4 J '4'Lkx D <5(range without labels to memory 4 6 7%'JC@ 4 6 7C@Hpaste without labels D 4 F 6 D F$J$=G@ D F7(j D F$J D F; F D L r( 4 6 7  4 7%!$C@H ?Some rows were inserted (not entire rows but only cells within ") Fbecause the original contained hidden rows. They will appear as empty. xDo you want to hide these rows?'H H$ "$j G5(jq r(kh 5B@C@H.Font.ColorIndex = 11q( 5 (5 (q  ]  Known errors: x:Table-It tried to paste over part of an arrayformularange. x Lexample: there was an arrayformula in A1:A10 & Table-It pasted only in A1:A5' G/Error(s) occured: please check your dataresult. x @ ERROR REPORTA@jj r(o  B@p !v x' !7vbLf: only formulas selected without titles "RANGE ..."    r%t' -perhaps should substitute chr(32) to chr(160) ************* determine first formula position *************'J'(_p '& ( RANGE'& &Gxj &  x'(  & ( & $FORMULA'J J' J 8Formulas in clipboard are not formatted as the standard n! or there are no formulas at all. x7Would you like to try to retrieve some formulas anyway?'H H4 "$j G'jki create list addresses + formulas'D_ (  x '&(start of next line &  x'N NG 'Nj &Gxj &  $'( (Gxjaddress  & ( & $'P P$ find formula & ='& &Gxj formula must be on same line & N D 'D D@R@ D@T` D@V .arrayFormula(i) = Mid(myText, p1 - 1, 1) = "{"  & ${  & } $ArrBlockArrCopy$ D+Vdno D+Vk &  x'()Chr(32)) MrExcel chr(32) MsgBox Mid(myText, p2, p2 - p1) nMsgBox Mid(myText, p1, p2 - p1 + IIf(arrayFormula(i) = "no", 1, -1) + IIf(arrayFormula(i) = "ArrCopy", 0, -1)) (G  '(j P D+R  & ( & D$Vno$ D$VArrCopy$ $ D+Td N'(kxkpho`' D  <Impossible to retrieve valid information from the clipboard. x6Check if references and formulas are on the same line. x xExample: xRANGE FORMULA (1st cell) xA1:A5 =B1 xC123  =SUM(A6:A10)'H H0 "A@j'zk]];JoinedAddress = Join(thisAddress, ",") doesn't work in XL97  R ^ $R,'^  ^ ^ $'^ ^$:.X X r% b&You selected to paste data & formulas. x,If the formulas refer to ranges outside the  "&, check if the data are still correct. xOYou could change some data elsewhere on the sheet to adjust the results of the  " formulas.'H H@ "$j G'jd<You are about to paste formulas in cells which contain data. xDo you want to continue?'H H$ "$j G'jkki r( XB@ D D D$R$: D$Vno D$T9dh D$VArrBlock D$T9d0 D$T7(5! G5! 7%7B@j5! G5!5! 7%7B@jk`kXqP D b X X r%B@H3Eunion twice same range will "undo" separate areaselection if adjacent  !9 !9qk r(oxxh $:! 'i@8Attribute VB_Name = "backtosheet_mod" Option Explicit Dim my Data As Objec@able$>2't>cut from "[T.-It]@MyTtl_ @0#_"nof utarbkp1*I@nteger '1st posis5p2 2nd FCRP # Fir3Carriage Return P;CLbl()#"Column LUPK7E FRI, A\Long',Row|FC 8) R s&unC1 CelEMRange ™IGKEnd7ŭ@4dŀleX laJS@t`ArrayCnV~ax4ՈYi/T jmslAOtemp)Inser8ted0Bo`oleang@$Lxine +$ nbhthisOneAddressLjdb' Formula iay@B Sub _to_#Everyng()  Ca`I (True, !`!$O Only_>: False_ @ =Ds  ?(displaü!<|,  APd If T 5Workbook.Sas("valu es").*("no_welcome_info")Ϣen d&'copy n%-Cul'NOTE: take care t`o sel@!upperleft corner@run thod}' wi7e pved i(n sr asboriginDal(ussA loopo avoi`ro blemsAeld@Excel-uEs`s#L`$A ctive#.PHrotCon$ts MsgBox "P@l@se unpC yourc befonih`de.", 48, " Exit BQ q)Ifb)et}= New )|v= PNs.GetFyClipboar d myBQ= TApaq.shtit@(q, vbLfQNu8llS#'TheE 0 $id_"Vwinitializexcee.E@6i= )u20V2 _`J 3  :)C3C  s `PrivaFun)@/ U7@O rrorsuNq'determ`f2coAl3!Е= In(1, ' L`:(o#d#I3" ,vb", 1) #З%p8Re1FMid)aqP- p1>- rownumbAD3/ ,Cr0= 0Val(2+ -S P0/g`@s an eif wr!NLC'Ph0:= s(FR, T CAT{a.ÏQa* $ErrE Youa0]dn't`CVa`mpl` " &Cp".Q;_$"Be suWTQV X (wh ich hUsp`aces)Ntry again~. P0 XMa ERRORT"Swwe~i4at!BIp-vb+us#vqy,V"becaus}_ hS3a.q {appear ascO| "<|@`?M# py{29{YesT)>0bq;Y"yq)Hso.AutoFi'.FblorIndex11U[ AveWindow.,ollL gc4/lQ s: Dim lgoLAsb X=y"Knownqj:$w"W-и?q)@K rt of0 aulaWg#@#& Ѡexap:Ѥe/w`&anѧA1:A10b\d 005% $p#c% "(s) occ(d: 0wa )chheck1rҸ@u lt., 64,RROR REPORT_%X%3H~ val(id_smya.GetFromClipboard sa  'q: sⲀwapl5"RANGE q "eNO'perhaps sho1sv cC㒽a '* 'drm f2`$ posi ,61g00py6Do4Irn(pFUs"G\$= 0$Epxit p1, myText, vbLf) temp = InStr(Mid(p2 - p1), "FORMULA"rLoop While 0 valid_formulasTrue If7 Thenmsg+"F7in clipboard are not Uattes the@ stand!" & PN" |or154Eat all._="Would you likko try to retriDev4ome$nyway?"hMsgBox(b, 52, MyTtl)hvbN or FalsEnd If  Functio Sub initize('crPeateYslddresses "+S i@-1C)DoCp1]p+ 1'@Wrt of n+@n+p@)LineӘF 0AHLenĜ &1 Exit -Chr(32)2% 4aIAAthisOneA‡ @)s ().G 'fi@wÇ `HO"='C3A "' mu@be@ on sal`5K <= 1'q7A aGiaAKRe Dim PMerc!i0%P{(\arrayu^'6 @*1o"{te<  8%IIf( i9}")A(, "ArrBlockdCopy{> Eƃ%"nopAiTh '%i MrEx`cel cCk?'C ( ` ſˏ@#a(s`&, -&+ )', 0"O\H2kYJ'TnP, $"DtDzK5!WY"q}h@gahPrivfh @procee}(displayData As Boolean)q!(sj7Imposs|ibyXq1Oar fromBv~ "Check if}ferenc s0}S҅S2Example:_"RANGEsTab01 (1Z 6l)o"A1:A5j=B1"C123kSUM(A6:A10)A:r48t# wO!#A`Joed_ASВngHiiiaLoE'y+= tTQ, Sdoesn't worn XXL97c 7 a= @qo UBoundD@ &"Tis4(),=TN@Left(J, aE*)!e#SetRangQr;d 0Applic2-d.C tA 2) > Ñq y8 |D4YseleFcppasdq;&/2 ";0ԅs3ұ s outsid`)¯ d6Astileorr/ _S! crch-bs!2eqwhG;sheop adj1ult ƍ (z2c64oen>PLh3 +Yab6ells which conta0DDowan%o"inueUA) 36/ / 1- 1g@'Bb gbbQai.SenUpinqQxI/.CrCexntseA`@iWith rA6 1@A .qQ 0og!_yaP`"֠A&payD .Cells(1, 1).FormulaArray = thisH(i) If .Rows.Count > 1 Then Copy"2Resize2( t- bColumn!eOffset(0f, K;kEnd IfE WithNext idispla yDataFalseApplication(.Un(Ra0nge,).Select 'u twice same r will "undo" separate areas+ if adjacent=] ActiveWi@w.Scrollv-AkCf G JAV @@eenUpdDngTrue D SubPriv7Fun@.on validAddress( check As String)Boolean On Error uQn @Len(SB_).)0%"'    /rU x$`$`$`,`##$!`$I`$q`$`$`$ `( `#(9 `#(a `0nrU~|   y;y7;general_modR#3__SRP_4v__SRP_5generate_modqk`OH$*\Rffff*0f48f3506b*\R0*#13*\R0*#17*\R1*#ce*\R1*#df*\R1*#285*\R1*#6c$*\Rffff*0j48f35098   8 "  @  H 2xX  . /   0  8 /@ X p    /      /  0 P  X ` h. /      / ( @ X  ` /h       4,*xxME@@<6 Cu o=d=do" /wanB3take Yrisk sua mi>nP0yPOountryCode = Application.InternX@al(xlC) On Error GoTo 0 IsDutchNot( Is>( Ma!>(Get, Array(31@, 32))[ End FuncZ SheetHasPassword(shtName As String) Boolean : Resu,Next Os").Unprotect ""PG}z >b1ZZ [0 0  0   0   0 `  LK$$b 0   0   0   |si%h:X lh:H lh:8 lhh( hZ(l5( |(bl(he K7P `%p$ p P"qtp5PK{t@L(`lLR(< lLRLP LZPp$ p  pzp6P p$b "pP L0     9rU (`a0(`a0$`$`$!`$I`$q`$`(`($ `( `0nrU $`$`$`$`0!` ###$I`$q`#ce*\R0*#1$*\Rffff*0h48f35098*\R0*#2*\R0*#14*\R0*#e*\R1*#df*\R1*#285*\R1*#d3*\R1*#e8$*\Rffff*0g48f35098*\R1*#282a   &( ,P 6 6 6 6( ` Dp ( B J( <x    Z 6h 6 6 6 \H \ \ \h $ ( ( 88 2p $&2&H"p04 000"`  n@TY[* *xxME(@8:l> p4H@darkblueCoblue8splayed 0DL@FT@HX@N`@Rh @T8l!@X`t#@| %@\ &@J ( @F*"@b +#@ %%% `vJa `vJe  `Pvki `` m `@kYYqib ****id  deti  do `z ants lX`o r`xJ+n`"k ib , tx`k`DxdaP +v `$k 0`Dt H `J F`Dxld b( +x `J Yid  `t`Dp v ~0 `J 00k`Dxt p `J ** H `($o i rray`Dxsett`t `p L`Fn 32 ` l #`hace dx %`T olum` D `T@`<art `8g`0 4(`H 0labe`,than`* ` $X`@  nee B  pus `( <` `  aria`  `  olea` tWD` ` `p ` A`    `\8 !h  `J`xxulas`vtH + `7o+rX`N8iz Shee+Z`5,k `J L@"(H&(H.xB2 H„ @  @0p@:$ @<0 @@8@BP< @‐xP@J\@Pd@V@p"@Zhx$@^ '@H)!@ ,$@@z H0$0H0@x x@v LfnHx"@ht @d p @` %0 PH Hx8XP`h(P @Xx 0 H @`xXpp`p (0X8(Ph@P @@ @0 @@ @ ^$@  j\^$Jl@X @ v@ p6rtnvL&@0 `x~@ @ `@0L@p @ @ @ Z @ @ @0 @` @Hp @x` @P @@ @0 @ @ @ @  @8 @P @ @ @ @ @( @| @x @t @d @@T @D @X4 @p$ @ @ Xx6x*("r@px @t @p @l @h @d @` @\ @0X @HT @`P @xL @H @D @@ @< @8 @4 @ 0 @8, @P( @h$ @  @ @ @Hj4620@p @ @ @( @@ @X @ @ @ @ @H @| @l @\ @0L @< @`, @ H`x8:8! p 8"!X 64D6BFxtX`"p @@X!d @ T @ D @ 4 @@(!$ @ @@! @! @p! @! @! @! @ @ @" ("! @ P"" @`" x"8" @ "`" "`" "H#####H##`#`nz p#H# #6<xj4(6*t`#@$d @$` @ $P @8$@ @P$0 @h$ @ @ @ 8%%&p&% &%8%(P%`vz `%8% %r4F6BF@p l%`d%%%@%h X&%@d 8&% @H&b `& &@` (H&@&P @&@ @0'0 @& @& @' @' @`' @H' @' @x' @' @8( @' @'p P@'` @(P @ (@ @0 @P( @h( @ p%x"j (H& %X  0 ` P h p)*`*0*P2-...2-0Hx6"@) @) @) @) x@) @* @1 @x* @H* @* @x- @* @H- @* @* @*p @+` @ +P @8+@ @P+0 @h+ @+ @+ @+ @+ (@+ @+ @, @(, @@, @X, @p,p @,` @,P @,@ @,0 @@, @- @- @0- @ @ X)jr46f<@- @- @ . --`d%.-H(h..`'%.-Q@8. @P. @h2t @(2p `.h.V@` ..Y @H/\` /.Y'`-02:b@ /Z &8/.z@/X `/ /z@p/T /H/{@/P /p/{@/L H//@H0H //0/@ 0F 80/ @D `0 0@p0@ 0H0@0< 0p0 0p0P@08 00@14 00 10@ 10 @81, @P1( @h1$ @  1 0h1p/1 / @1 11@ 21@21.\LJ @P5 `p5(2 @4  @2 @2 @2 @2 @2 @2 @3 @(3 @@3| @X3l @p3\ @3L @3< @3, @3 @3 @4 @4 @04 @H4 @`4 @x4 @4 @ @4 @4x @4h @5X @ 5H @858 @( $h5` d%P5 6p6666 6X686`ZxH6 6 . @t @6p @6` @\ @7L @< @, 788 8777`x77 @88t @P8d @` @h8P @8@ @80 @ @8 @8 @ H ` @ ( h1H-850-4P5. 01P ` 8@L @< V, V::@:Tz :;;x>6;l <\ @L `<< `<p8 @4 @0 @, @( @$ <<  >> @ @ = @ @ @ @ @ @ 8=| :.6H>x @h @X =H @8 @( @ @ @>( @ @ p> @ > @ > @x >h  Td @` @\ @X @T @P @L @H @D @4 @$ @ @ @ @ @ @ @ =BAT&NPA@l B\ @L TxH BF Bp@ @< @8 @4 @0 `A0TVXZTF.rHT @ Tp @ T@ T( HCTFDrHF6Dt `EEd @T D@D @4 8H0 @ D @ E @ @ 0E@E F(FJXZ>V(F @ @ Fp @ @| @l @\ XF hF(LxhFX FFT GG0P (FTBfNPG@ @0 @ @ @ @ G @ 8H @ @ G H HHT(JT X  0 ` P h QxMV x6"Mh @ @ @ @ @ @ @ @ @ L@ L( @ @ @ @p @` @P @@ @0 @ @ @ @ @ @ @ @ @ @ @ @p @` @P @@ @0 @ @ @ @ @ M H46f<M` @ @ pM`MMHMM`MNQ(NX @ @t @p `@NVPN` hNYxN\`NYN(02:bNZ NzNX NzOT O{0OP HO{XOL pOOH OOOF OOD OP@ P@P< 0PXPhP8 PP4 PQHQp0 @, @( @$ @  (Q8Q`QpQ QQ QTT0J\T T  @ @ @ @ @ @ @ @ @p @` @P @@ @0 @ @ @ @ @ @ @ @ @ @ T @| @l @\ @L @< @, (T`TVUVXV@z @x @v FU-`bOH*\R1*#1b0$*\Rffff*0e48f3506b$*\Rffff*0f48f3506b*\R4*#12*\R0*#f*\R1*#64*\R1* 0 P X &x     "  48 *p  6  < H 0h            @ P X " `  h x "    "    "   "   >M  #0 2@ fP .     B  <  @ *0H x       >- (0 @P  Xhp x   $ *     ( 8 HP DX     $ !8P  X,b`     d/  "    0T x Q P <   (  8 .@ /P*`+x  "    LrIX   THP8h  tHH P B X  `px   2 $  <     LC     ( TC8    "    6.m @ 4` @"  ]( H Xhx B  .  " h0  *\ *\ 5 0 @P 2;X  "   6 (.b@ p  Jq  B  ( 0 )8 P L<h  l  @! 0{P!>I(# h#p# x# " ##  ## $#'#*`#$,U0$(L`$D$ $'$ $ %"S % @H% `% *qx% &% d% '8&H& `& Jp&& ' '' ' ' &'"T',l (5P(4h(.`((B( )  ()0) 8) " @) 0H) x) 0)  )  ) 8C)  * @* `*  * * * "J* #*  *  *  +  +  +  +  (+ "J0+ #X+  h+  + +  +  +  +  + + + 7++ " + + ,, , 0, @, P,X,`, h, x, , , , ,,,, &,--- -(-0- 8-@-H-P-X-`-  h- f.x- (tR- X. p. \5. . d.. (tRX/  / /  V5/ H0 P0 h0 0000 063011  1(1 *01 `11  1 .1 1 1 1H2H2 P2" X2 /2222 2 2 4e2 3 93 03 83 @3  -H3X3 p3 348334834  4  4 @4 X4 h4 444 ,W4  4 6X5 ,@5p5(5 ,55 L506H6P6X6 `6 p6  8c6 .66(7 @7X7-p7 77*#7 76X7(8@8 LP88 88 8 8::(:0:8:@: H:   X: Dx: :<: [: ;;; ;(; ^0;P;X; ^`;;;;,v;; ; ;;<< <(< .@0<`<  p<4x< < >< L< (= 8=P= X=  h= p=8Y==8Y==> > 6>H>#`> > (">>> >  ?8?  D@N~D@ 0@8@@@H@P@ X@ `@ *@@@ "=@"=@ A " A A(A *0A HA  PA  `A* pAAA 4A4A4A(@B  8B'@B 3PB*pB 3BBB B BBB2[BCC B  CC C C(R@C hCpCxC BC C CC(SCCC " C@aC:3(D hDxDDDxp Erik Van Geit many thanks to Joe Was for tips%grateful to first tester Lenze WalkerȺL0************************************************0to show an ExcelSheet-Sample on ExcelForum *0if forum supports the used tags *0************************************************ ADVANTAGES>size of produced table about 12 times smaller than html-system"post with "table-it" can be quoted<table-it can be copied back to sheet with single buttonclickDhidden rows are displayed as hidden (for instance: result of filter)o_sh6this module can be copied, add-in not really necessary DISADVANTAGESno cellformatsno formulas within tableTbut NOTE: other htmltools need often to put formulas apart too, due to forumsoftware0************************************************0* feel free to email your requests or comments *0* see www.erikvangeit.be *ru0************************************************raU*************************************************************************************skU* SET REFERENCE to "Microsoft Forms x.x Object Library" (VBA-menu Tools/References) *U* else you will get an error on line "Set myData = New DataObject" *U*************************************************************************************$] D$will determine tags"please do NOT edit these constants] nlabl]09( 1Text Font must have same width for all characters,alternatives "Courier New", "Lucida Console"+,] Courier New0](,Maximum RowsCount,]P,Maximum ColumnsCount0]X, Number of Spaces between Columnsn]darkbluex, Items Color]blue, Labels Color],"Maximum # of char per line allowed],%Maximum # of char per line calculatedT] "Text Size: STRING! could be "10pt"] "Text Size: STRING! could be "10pt"] Text Face (font tag)]D E]D@ First Column@]D First Row v]Dp Last ColumnL]D  Last Row]D Columns Count]D Rows Count`2]Hselection specifications]D max length per column*]p SUM all MLselection to array]table settings]DP First Column Width L]D code 32 or 160]Dx #character used to space the columns ]D Custom Tab between columns]Dtags`]D %html will start with FONT or CODE tag]DTd]D ,column & rowlabels have other color than ... ]D ... items7T]D8" only one tag needed to end color]@]D`Xbusing clipboard]Dh<]D]Dhelp variablest]]Dim flag As Booleant]D `tWD]]`A 0oAo`A(o@ Ao `]no_welcome_infovalues %n%:GA@Lj f!h' f!h dPThe active sheet is password protected. Please unprotect to get the formulas in n.'H f!$'d b H x-Do you want to continue to get only the data?'Ht H$ "$j G|jd H0Sheet Password ProtectedA@j4|kxkpkh.$ .\.^306 B@p \B@pW|[ n ] version  $ by Erik Van Geit'J%A@l 6G|j bGA@rjA@t b$n 'bd vG|j0kp bA@'Lreset public variablevalues %nno_select_tags7:Xstore_displaymode7:'Ld checkForum &B@ kqA@8this line was before: Displaymode = "" got bug rowlengthA@ d$xA@A@~d0'bk k d 6 fB@ A@ G fB@j \!v 'dk ^ !v b x$ \!vC@pC@q` b d .Clipboard contents xDATA   bYES ( L tags)NO$ xFORMULAS  dYESNO$ x xYou can Paste (Ctrl+V)  L$at Z.in your VBA project.$'H H  " readyA@jk o .6_   %/5Please Select Your Data Range: xLimits: Max # of Columns:   * x Max # of Rows:   ( x Max # characters per Row:   x $(Sum of columnwidths, Tabs included) " r!  %l r%.6 6G|j 6 r%.6The selection is empty. x$Do you want to select another range?'H H4 "$j G|jk 6 65!'45!'6$6!'2$6!'0 6 2  '8 4 0  ':q8 o0 X 6strip last empty Rows 4'J$6! *7    7! '4 J 4GOEmpty Rows at the bottom of your selection will not be displayed in the example0 "A@jjstrip last empty ColumnsNwhen hidden rows in range then ".Find" will not work correctly, hence the loop 6'J F 8 2 F 2 5!7% r% 6 '6dFyk@ F J 6GQEmpty Columns at the right of your selection will not be displayed in the example0 "A@jjqo 6'nzkx 65'<+displaying one cell as table makes no sensebut retrieve its formula does b < 2Please select more than one cell to display Table! x&(You can retrieve its formula though.)0ONLY one cell selectedA@j'nkH 4 ( Maximum # of rows in selection: (0 4 rows selectedA@j'nk 6 * #Maximum # of columns in selection: *0 6 columns selectedA@j'nk`kXqPiH]D8  6/first column width defined by highest rownumber 4 7%! 'Dfeeding array one by one-every attempt to get the exact display failed:in one or another detail (example: converting dataformats) 4 6Bp D 4 F 6 D F7!d D F+B F Dq with rngox]D (only cells with spaces or vbCr or vbLf ?'v r D 4 F 6 empty items with only spaces D F$B F 7t  D F$B 7t G  D F+Bj delete vbCr & vbLf D F$B  7t D F+B D F$B x 7t D F+B D F$B G'vj F Dq vGNo data in selection.0 "A@jjih]D/determine longest string per column (minimum 2) 6>@'@ F 6b F+> D 4 D F$B F$> r% F+> D @ F$> '@ F @ 6  . ' Z G  MaxCpLc$rfora %n,joH]] L$Gzj  Gzj MORE DETAILS xColumn  Largest String x' D >  D 6%%$6! r%t   D$> x' D )9C'Allowed Max # of Characters per Row is:   x x&Subtotal of largest string per column:   @ xSubtotal "Tabs" ( . character . s, $ per column):  6  . x x(Your Actual Total Characters per Row is:   x x d1ClipBoard will contain only FORMULAS but NO DATA."DATA will not be put in ClipBoard!$'H H x x  DATA: Max Width Exceeded!A@j Br'xi]  C@pvbLfadd/build column labels on top5v RC@p5v F D r% HC@p F 6 F 2  $%'J J J$ $'J5v X J Z F F$> J r% HC@p F5v VC@p D 4 get rownumber D 4 6%#!'J J$! get next row5v L$ x $C@p add/build rownumbers at the left5v F D J$ r% R X J  J$ Z V HC@p5v TC@p F 6add dataDIIf: display dates in same format (no conversion to american format)5v D F$B F F$> D F$B r% HC@phIIf(IsDate(arr(i, j)) And arr(i, j) > 30000, Cells(i + FR - 1, j + FC - 1).Text, arr(i, j)) & Application.Rept(MySpc, ML(j) - Len(arr(i, j))) & MyTab F5v VC@pk0 D L$5v $ F r%tC@p5v x x T f! VC@p N5v PC@p5v x N   r%t J PC@p5v P x N x x r%tC@pd(5v x x' N   r%t J PC@pk Brqo0 *CAVEAT: variables are on top of the modulethey need to be reset)do not delete the lines with VbNullString L$$KT[size= ][ = &]'N[/ ][/size]'P[color= 2]'R[color= 0]'T[/color]'V[b]'X[/b]'Z  $$'F$KT[code]'N[/code]'P 'R 'T 'V 'X 'Z  $$'F$KT 'N&"'" 'P''R 'T 'V 'X 'Z $'Fn0 F . r%'Hop ]D ]D ] ]D ]D0 ]DH ]` ] ] ]D ]D ]D ]D ]D ]D( ]@ ]X ]p Dim StatusBarVisible As Boolean] ] ] ] ] ] ]8 ]P ]h ] ] ]  0 Hvoer formule in zonder {} x H bevestig met Control-Shift-Enter'  {=formule}: x Hselecteer eerste cel x  x Hcopieer ' naar beneden' naar rechts'   {=formule}: x Hselecteer volledig bereik x 'd Henter formula without {} x H confirm with Control-Shift-Enter'  {=formula}: x Hselect first cell x  x H then copy 'down'across'   {=formula}: x Hselect entire range x 'k *************check for formulas *************` 6  %$.8 $There are no formulas in this range.0 "A@j|k r9$StatusBarVisible = .DisplayStatusBar.DisplayStatusBar = Trueqx *************(put formulas in array: constants deleted ************* 65B@ 4 6 7%% 'q  f5G9j4 .ShowAllData 6!7:`  ;H < ; 7!7!$'d 55$'k q q B@B 4 6d'@B  0ADRES  $FORMULE +Bd( RANGE  $FORMULA +Bk ' 4 6 *************ACTION ************* F 6 D 4  ' D F$  D F$ D F$'T D F $6%%'%determine # of same formulas down: ii  D 4  F$ T%parallel-array checking checked items  'FApplication.StatusBar = "FORMULAS: " & Round(checked / RCxCC, 0) & "%"  F+d y k   ' 0   2 F  $%''determine # of same formulas across: jj  F 6 D $ T:check for same amount of lines copied down in next columns  D   $ TGyj   ' D  4G  'j     $6%%'  D   'FApplication.StatusBar = "FORMULAS: " & Round(checked / RCxCC, 0) & "%"  + d0    .some formulas were copied to adjacent columns x4while they were not copied down for the same length  x x EXAMPLE:  x  copied down till row  0   & but in adjacent column only till row  0   'ky$For jj = j + 1 To CCkdyk check if arrayformula : $:!'b b{  $:! $:!$}'T $:! $:! T'T'd'k $:! $:!'k $:! $:!'kpdh  $:! $:!$'Tk0  @B(   'd : ''k     $ T +B  'k D  r%'D'7statusbar here will provide info too late in some casesFApplication.StatusBar = "FORMULAS: " & Round(checked / RCxCC, 0) & "%" D G F  'Fj' F   0$B <  (1ste cel)$+Bd@$B <  (1st cell)$+Bkk]0 0JoinedArr = Join(arr, vbLf) doesn't work in XL97  B \ x $B'\   G  &  'j  G 'j  G 'j  ' \&1:G L$[code]$ \   x $   $   x $   $   x $ x J L$[/code]$C@pqP5v<< r%tC@p? Br r rx? r.StatusBar = vbnullstring$.DisplayStatusBar = StatusBarVisible9q?  G 0 "A@jj  G @ "A@jjo>H ] ] fora %n 'v checkForum v'VBA mode limit not important|(>k > vTxtS1$r7' vTxtS2$r7' vTxtFc$r7' v MySpcCode$r7$' L$KT vMPLcode$r7'$KT vMPLfont$r7'n(=q =o= =xBfora %n%%!'<i< <fora %n% z7  |7!'rq`<X<iP<X  'Zd(<A fora %n%:'Zk;i; no_select_forumvalues %n%:Please select a forum. Forum not definedA@j B@ kP;oH;@;  L$G' \!v x x' r%tC@pjLfDDAttribute VB_Name = "generate_mod" Option Exp licit@Base 1B'Erik Van Ge@'many thanks to Joe Was for ti@ps 'gfulfirst tester Lenz-lkeJr[ '*,  :show ExcelSheet-Sample m Forum*ifZ supportghe used tags1 /X;'ADVAN TAGESsiof produc=b\abo ut 12mes small html-sJym"powith "ta@-it" cDbe quoted EcopiPbackAksO asing!@t(onc@khidden rows are display@@(Ainstance: result @9filB)E#his uD+$, add-in not@>y necessaryDISQSno @{l@mlatn'u~l'6A@8 NOTE: othXAWtoolsc@5oft@;@pCcaparoo, due:s@ wE?'* feel freemail yourEqus comme&nJ swww.exvangw.A" [W^_x_f/* SET REFERENCEA-"Microa- {ms x.x Object Libr`D" (VBA-"u T9/RefereQs) 9@+el`)]ll getaerr *line "SmyDataaNew AC "?) ?-!,Pu2bp Dmfe As Str ud'wi@de`l>m3!do!A] ediWheYcoteCA MyTtlPN #vers 09'Text0nt mu`have sXwidf w characÂaanativ 4"CYin+", "Lucidab Aole TxtFt@ AMaxRCInteg = 3J0N5'im@R[ n@C15ColumnsJNrSpM. 'NumbSpa` betwed /ItClrKdarkbluehP'Ite@a`o`cLb\a 'Lab0 BlDim CxpLai f#s]A p 3`owgcl0calc@\l Q@!S11J0#)Su: STRING! could` "10pt%E2OROOVF  CF  pq2P9p# rng5RZ3FC0%,4'F#"RLobP.Lp <L03? '3s&u6Q0:O 'P@6Q"Msel_IspecificE LML()Q? x lengJ*c2.2YP iX0XE '0onlyag` need@%ep CNBold# C'uA clipboar0m㌢ ÌCmy񔂲& ItpX'helxp v.`4p&0bsg13(3Y1fl BeanCj @8CrQHasAq6q*T IsInR P Sub cLreQ$ _E yth8(XC(True, SFap+?t_O`_ѡ/Ift$, ? t?3%s طd Sub  ` create_TableIt_Only_FormulasLocal() Call (False, Tru NEn(displayData As Boolean, u lDim IsProtected6If ThisWorkbook.Sheets("values").Range("no_welcome_info") = men (5= Activ e*.AContents A A }Then msgD" a5 s` is pass@word p}. Pse un to get@ the f in " & PN".")*2HasP( /Name)D' /N }8:A& vbLf&Do you wan@0o cVinue5oB6d?1@2MsgBox(, 292, MyTtlAvvbNovExit .E/ 48, "I I Ɵ!|IfG+CGSnmC= New OObj@@ # . Text 2"@my  PMySi"Q[GG] versioIe&Kby Erik Van Geit determine_rng 4@w Nothing 2! G strip_ t_em0ptie`m7feed_arr(o@ _limitsIX JW@`caa ?F6ahcheck,umBDmode}"!A 'res`UEe  (?z!z_scts= = HIGet J<>@bNull>S@D!WT1myOFMO& ItIf B,2h`^& .PutInClipboard3A#*1 1*Or.gqfq@/oQWq_"D8ATAcpsvbCs> "YES"(1Q[))"@ NOblFORMULAS(E%`oY}catte (Ctrl+V) A MQ(3)aj`0'ump @@r VBA!rF.I{vbIrmatk$A dyj3!Priv0т lz4x3mcSdDoOn rpC Resume N xGApp_ @.Input"U4S[ prb ݒ:!Lo!"PN # of Columns$@CC7RbRa char pper ApLaoT."(S`  c width"sabscl0udedQ-Ÿ, D .Addpv`s(1, )Reference Style'Ty`pe:=8TMGoTo 00>TffCountA(ac0x% *AB s| 1iy.8 "< an)rϥ ۓ2#5` 2a Loop While,e3bY#!= . s.?2S@'P)FC@Q(1)`+FRwCL+ `- 1Ts`PR Va C[ n /?Osw?G 'u ,tp RC10 + .Fi nd("*T.Cell)'xlV2, xlParrtqBy@.revioubTf MsgBox "Empty Rows at the bottom of your selection will not be displayed injexample", 48, MyTtl 'strip last eColumnswhen hiddrANrangeTn ".Find"zwork corrly, >c+ loopqtd = CC For jLC To FC Step -1QIf Applicas.CountA(.ResizeK , 1).Offset((0,*-'))1.0 TE)CC - 3Else: Exit JEnd IfNext jKe<>f0 ۄrightFA%With" Sub Private Funrng_l@imits(DData As Boolean)A] Is NothingPQTrueC!NDOC- CAur'+@one ceas table `makes@ns 'but reeve = formula doe@pCˈ'1H@A%PQse mDoran -toE T/!" @& vbLf_<"(You crthough.)y"ONLY ed"k D@*6 aGe\ `$RC > MaxO$ imum4 #!\rd: bC` &`_= L_@`{B;_BcCC em/0z#zExz| feed_arr() Dim i ayLongx m'8fir C dth definbyghe2@number@FCWi!= Len(.Cos(1' 9).`) :+'v`ay/S a 'rryo geHhe ct&efailedd`ϡiEahert) (:@nvertdata1~ats`$#Re!%&yo R`:CCi@dDCa iϠ%.T`K7 ic%@ 'w]R1]]c[ J\_!|only 2Ts spacT vbCr rI?*Cb%y0'i =.stitu(te(V,PSpc,0UNullSI_ngvb Or V j),IUqE I; 'dPyBS_ i   ?'A f?4p) o 9!FaK--SdNr 1RtermPୀPQ0p`F4S(i!n2BEML(DSumMzL20 ?/@j$23aq3@t(X*2T  E5 s+  CpLc  ] * NrSp@U`~!  5ThisWPbook.Shee0" a")DQtagb, g("d"!lOOAowlen_error(Tp=QsPreportaSrB!\tDmodBeGetM(|3)1O' 1""0s"" (2P" c5 aIIf(> 08"s,.f column):" & _ AvbTabp((CC - 1) * NrSpC)PvbLf"Your Actual Tot Characters per Row isMaxCpLcSIIf(displayFormulas, "ClipBoard will contain only FORMULAS but NO DATA."4/not b8e p 5L!")}MsgBox msgKreport, vbExclamati$on.: f W idth ee ded!")Erase arrrowlenght_error = True End Fu nc+Private Sub cre_table_data(XDim i As LongWiAmyD8.SetText "" ' 'add/bui ldR labelsS top .G& LbClrStartApplicBI.Rept(MySpc, FCI& MyC')z jE1 CBCtempCells(1, +.Addrtes0r MHid(, I0nStrC"$<")K;TxtBoldB<'Dm& ;MLD(jLenB!) =Ngj [CJiJRJ 'get numbeCrngdsize(RCE)(i).s' )Ifavsc.H idden FalYThenbnK1{D{mode <> EKM@(3)alLfCr9(V s at the lefQAaQRA5D<)5]>AAB= 0aNulling, "-E9@It  *e[a& o' :F Daes s`ame f *(tnoAv` rzn$3!q.9(i`va_en(e (Is2e A > $30, i ݀R| ,a- B*y!u"@AIfgb irf r0-Substit0ute(e%hr(3207Y8PG),iveS@heet.N#& ^leu3rN&@wR iw, @YSp^a2q` i|?Bqu`R >֐>EQ v "'Q/O xtO  #񁱂'!de mi$negsQ'CAVEAT: variVre$ ofW@\ulP'pXy nBpye@Y'do delZ@sPVbGS !3SPct CUQ(x/Cbd1O1l"[o=G"P"][FѨ"FttA= "[/][/]c1or2? 5 6 /M'AbB wB C CQoC{o@60)\;~25Bdew Q(f cv%eqjoL/% oez13 'IF_aj.tߛ=aC`A/p!#IJ[9?#OVܡ(LpocalaBooleanPv ijInteg2@9Dim k As Long  FormulaRangel harr1HVariant(2(thisaStriirstAddress La ] =remCopyColRow] \Arr EntireChecked>Integerwc hRCxCCSqle ' StatusBarVisiblBoolean()LenDžnN >msg^o8Yes 'DownAcrossBlock'C-@Ier@"ayRQ"A)IoG)W('FTail AIfcal+Nnd IsDutch Thed  (8= _CMyTab & "voer fe in zond@{}"@vbLf bevestig met Control-Shift-"CJ" F"{=}:selecte#ste ce&l & tcopi! t9= "naar beneden@M:rechts; qAvolled,bereik?A#Elsox_BFBe eBa without :Bconfir^m?B0Ba?Bt ` stAAWYtf `By 7*%{DBd <uAa'b@a}@t 1@ r!?@#@?Ɂf '* g¿~$asOn Error Resume NexS ~ď" 8 arsu(rng, Cells.Special(xType%))  GoT8o 0@ IsH NongMsgBox "@re a0no AL{#.", 4H8, -tltxit SubVW. Appl@icatioU.ScreenUpd@= Fa5'r= .Display'~TruD:E3'p`8sSas#aay:+ns"ts dSted .Pp8nt.A,{= (.1, 1).Offset(RC -  p).4~(0, 0)) * 2 8+ 1 ctiveShee%QP.AutoFilterMode M '.ShowAllDataS&.))% '1--+ll+nc)PvbNull%/-p@Coutnt1,E2q= IIf(1, .:`ize(2R41C0!Lo@Qc1p !II"s3AR#Workbook.Close8= 1** CC) / 10pE RePervCr(0 AGDR T (0@"ADRESXS pace(3- 4)f"FORM8ULEeeGRANGEOKAFJk$] 02 RC8 o`@BACTIONB j*oCeiRCU=~ @q1 1(i, j) <>`4 A o2 ]0nPKF= 7(gLiSLjaLL[q'de0Jmine # of saqVYa: iiRaiR!56S= g) 'paral-9 ay3item~}e:'q.n$/AS: A-RNd(/ RQb1%tEu 2(iutdMI Exit F0or 4End IflNext ii 0ii =( - 1  4LastAddressFCells(FR +.P, FC j:).((0, 0) G 'determine # of same formulas across:x jj9z Gj=1 To CC1If arrP1(i,)this1 Th enOcheckHLamoun tTlYs copied dow@n in ncolumns*\~i[Á;]i^<> M/ ۀ{ |#@%#A1 A@ RCP EntireColCLE=+CEi\erng(1).Offset(C0Az^ "e9E7 'Application.StatusBar@"FORMULAS: " & R@d(/ R0CxCC"%"WK `]2 ]yuCElse[BremCopy?Row vbNullString9!"so weremto adjaceqdm&vbLf#_[@"whilehey notx}length "EXAMPLE9dFir Ǩ& till< r@'?h?" bun" only iAc$5/aea'gjj>^B@bVM/ݱǯ/'p iayrangeHasArrTay R(=:;().E/ i Cԙ`= "{IIf(N -LocLalt, ? )f.ssb)@("}oGAA 3msg0BlockYeTruK?Mb@CL?5sO'/).Q<>*_G D   @).p[@  e A  _q .?,8,./8/ # ReDim Perve(0qkq 3 A3@2Bu2%Y AB? 06J' |c>= b_!k-7Ds"IsDutcha!f0!& A@pCA= 1, , "(1scel)"0oooТk%$CAJ odi As K'= ( Lf) doesn't workXL97b For iii = 0 To UBound(a@rr) JoinedArr,& vbLfh & (|XN8extt If msgCopyDownYes And*AcrossThen+Tailt <=r"?nNot3r+ :eXcvr BWith mymulas .SetTIIf(Displaymode <> GetM(3), "[c]"")1}t_Ale+ADNBlock,ANullString,H^g *)1(;=MySig{T^`/`\CpApplication.Substitute(.rxn<p< "|=| Ԇ*"'gK'A!(7~EyQ On ErrResume  Erase+H1h2Go@0a b\ '.StatusBaAvbn Os"OaIfVisible .ScreenUpd@+ngmTru )remnColRowgvb\)MsgBox *, 48, MyTtl @ht', 64$,@@a"Private  forum_specific_tagsB(@2Dim `C As Longt $R'cM,ThisWorkbook.Sheets("@ aJ` fR$ow' checkum?D`cMa xCpLa 150`'VBA limit nomportanrtCEx 4Ifa TxtS1 .Cells(,ol("")S2Y2IFcXFcF1}pcCVa|l(Select CAbve1$g' PLFj2A&MPLfont6 s "ubFuncJ2()'&Q@x5=4''.7umn(B").Fi0"xC 5C % a"NaPI1SkF2 K22.@ s(? $R a, !1, 1`xxl#ues, xlWhole)- onbACd9B9 N|lsQ5BB.Range("A1e'A;Sub DK+ qvalP #nho_s25_r =x Fa rZ Z"Pleq7 a3TB.tvbInmwubMRIdef"m0SeQ __SRP_2.__SRP_3!select_forum_form$+displaymode_form"UGV*F@0W#`*Fd 2`6d@ pzct\(bt$`d@ D tm,i%(T%(4%tadA  >OAN(UL 6 d",(< x,d8(c.]x@@lxiT%D4%tadA  AP%< 6d d xfctD(bt( d\pzp $  Qplt,dd(c` t@@<0 @T@F%lXF]/t@@< @:pY%FP%l XF0]/60 $t@@F %<\t@@t@@<0 @:Z%F%lX%<60\t@@t@@<0 @:%F%lX%<60.t@@<0F ]@50pz d`H tfd4clkzW3'':@N0:P[N00 60|\(bl,p0 0   0 H  0   0 0  d \.X]*#*#X*#^*1 2R_*#X*#`*#*#l *#*#X*#a*12bCcC5d*#X*#e*#*#l *12.Xf*#*#X*#g*1 2Rh*#X*#i*#*#l *#*#X*#j*12kClC5m*#X*#n*#*#l *12K% $ X  '%'%'%'%' %'0%'@%'P%'`%'p%'%'%'%'%'%'%'%'%'%'%' %'0%'@%A     - !"#$%&'()*+,./0123456789:;<=>?mBCDnF\HIJLMYOPQRSTUVWXZ[E]^_`abcdefghijklopqrstuwxyz{~'P%'`%'p%'%'%A[ $ Qd)5K ldc3'':N0:oN 6 $  Q  Bc ap5(0%(%,ip%(DP%(%(%aA>OBC((tUp6 tc $ @ QppWq5f%pq/_a`F%p``q\6K%F%l\DrKrU~| !)y !I!)I  ) YIqy@ 9aYy Q!1Q9$y;Ey/3 DaDD)EE!FF9GaGyGGI HHJ JKJGK3 LqLLMM)NaNNN1O PPQYQQQRIRRRSSOO;' TYTIZTTTUUV W XXXXYY1YqYYYZ1Z)[A[i[[[[_1_0 `  0   L+v+x+z n$b 0   F:P%`:d%t$ t d` f0]3)t`5 O #t $ @ tW Vpzt5 2t $ @ tW d't6 d *# */ .t $ @ tW ` / t5  T*# */ 9'':PN  $Md@^6 Q0'':PN  0Md@ 6  |  :d%_|:d%_-*# *#*#*\2  c -   l K Z !Z 0 " T*`:d%t$ t dQ`t:d#% 5 :d$% `5 %$&c ' (l )% * +. ct $ @ t,t + -kzt $ @ t.t!_W /Fd]<V5  b_|W/:@N:PN  l Md @ 0_W/%6  1c  Y 2 314*# 5*#6*#6*F:P7N89*#*#:*F l Md @ 0:@:0;:6:@7N00:`<NPPlMp @ 0 :::=:D>N44?>#x*#t*FTF]<|dd$ 0$`2 xt6* P0 dT4$/''@*F @Md@ 6 l,b xtt` P0 |dT4$dl c=AK(%(%  $   Bli%  $ C, (|%'<%'L%'\%'l%:%D*#xE*#t6*#pF*#l6*#h6*#d#`*#\*#X6*#TG*#P6*#L6*#H#D*#@*#<6*#8H*#46*#0#,*#(*#$6*# I*# $   B,A20xtplhd`\XTPLHD@<840,($ )6,KcQ @ $  Jl=A(]3)5f c=AK*#xL*/x9'',:N4M@^6,fc .aAa,v",6,/aAa,v"(6,*(%_A,MU6,+(%_A,N"6,( ,$cdl(bxtplhd`\XTPLHD@<840,($ ,0 X  \cpz ttadv"05d O0<'' :PQN@@0R*#`S*Fd /`6d@ pz,C'' ,#T*F@0U#`*Fd 2`6d@ pz (MC'' (#0(%F%l\Dse(%(%l\>t=u(p%(P%l\>t=v 0 0T6 09l\=ul\=v  0T6 q\cp- '%'%f% $ H  l,(ds   \8:wk x:ylR68:zk x:{lR6 qh ,(Dn(cX x,dP l$q$Wx@n@TF]<x@n@D(`]<'6 x@n@T`1@5X(P%(0%lxi%knDp%(%_>OBC`1<6lxt,dH(t@n@Tl@F]35l$q$t@n@(%D tfH;ltqtc(p%(P%lti%knD% $ X BC`186knl(cD8 (x@l@Tl@F]35% lxpltd<(p@l@Tl@F]@5 pfOBC`186lxpltd4v l$q$p@l@(%D pf4A  l00 |*#}*#*#*#~*#*#l<*#*#0lt#,*#(*#$lp# *1020,($ 8 , 8  ldD+D'%l<*#l8*F% $ a V/6 _ '%lAN"qx)t`6Kl$b t`0   |^ CxtS^#t*FL%\:`%p$ p d\,`1x/t)p\6L,a*P|(bx tp\L,0         (`#$`$ `$ `(9 `#$a `$ `(`#$`$`()`0$Q`$y`-nrU 0 Y< i1`  @` D9x   p08 @ P ` p  "  " T   "D0 X`h"p    T_ ( 0?8&ZPx    "     "  ' "   ' $\88`2 "8  ,0I F-(  p vkx  ~k xt\ "*x.n >DEST.n >DEST.n >DEST.n >DESTxME@SPSSS<:U kan dit oplossen door een forum te selecteren via het menu ' n' Geen forum geselecteerdA@jkk A@rophַAttribute VB_Name = "select_foruBmm" Bas0{5180D57B-B60D-11DC-A53E-444@553540} J1J dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit Dim rng As RangENotAgain LB_List Index Long 'tagRow is a Func2!.PQU Sub CheckBox1_C>k() Const FCno&H80cyesAm1 2A With If .Value Then.For@eColorF&CLBLno LockYiy B= @EFK= -1?trolTipText!@&IIf(] IsDutch, "To get access VP the cAbox"@ Om Ptoego krijgen: neem 'vink' weg sF ^E2EECQJD G9NDvbNullSL End If#aA!CaLANommandButtonhOcl`l_m]on2VcMadeChes`Boolea9 N `P]Q<> i$Or _  n.Offset(0, 1)( %+  @"x"Y i= Q iH_e(ThisWorkbook.Sheets(B"a").eu`mns(2@rTentsc  ` T(Msg| "You will not be ashto  ¹ anyms." & vb|Lf`#! acan only uPN"^ pas`^sołs\VBA $kt! dial$og`j a"viaBmmenu ''.n64oa"GetMode(3)'m`Kl$Er za@l U ni`|meer worden`~vraagxd e$erenu%U k %E$shts bPruik o`apbell`` k`& ditC%0ogveopi@uw1n &h"&ST'us>J-$G7*QA`Y+.kY+A=XP0(+ "Saub."),0-Critical#??? ExbK5!I5N1B`TQ0EEДxT1 Me.HidRAApp0|aq~.ScrPUpd?piFYKWySaveMeOnCAX u'sbYqoUnload M9 /_`_MoBUp(By _ZInteger, Shi$ft X1SingleY'so User!tm_In!alizeAdiÔ+YZcS[%i0.C`>s(Es0]unt1f. (xlUp).{S;@&aR("A2:ADijP)# Ԡx> 05J7-~ 1 'IMPORTANT:0ct& AFTER lZ 5A1 %mvѠs@mD no_;" {c ${=6|*'"--"of ty,d eJ ypқ grey mark! t2.CaC;OgAp!S"ga"'umyr Kvant"Do NOTz ubp.J6XSU Gef gdesqus ~ q! & "Vq NIET g~ xcq_&OD`q0E :QueryJ(Cancel:vDXT%=`?TMAP @ B#D4=467%?$mf`k proper@Ū%17 or.r2iff6evd",c& "'mode available." & vbLf0_ "You can still solve this by selecting a forum2 roughe @menu 'PBN"'",In)mation, "FNo9Ked"{Else MsgBox K werkt sht goed inlGetbM(1)tuPs of2als er ee&nGpgeIerd Enkel ;3+esch@ikbaarU kdit o plossFdooJteervia het"Gm5I[nd I f[E Unload MbSub @H`h " p x0+x0+ "   x h p x "         " $ : : :  0  @ ,3H x .3      X X`h  p " $W !    "  2L6LH B- : > `h px tQ9 * x\ՀQ >DESTՀQ >DESTsՀQ >DESTՀQ >DESTxՀQ >DESTՀQ >DESTMEt@SPSSS0:6"1. Browser of forum software kunnen het resultaat benvloeden. xsZelf wanneer de 'preview' OK is, ga dan best na of alles goed uitgelijnd is in Uw bericht - vooral de kolomletters. xDe uitlijning van  nm aanpassen door spaties toe te voegen, zal wellicht niet helpen. Als de uitlijning niet correct is, kan U Uw  n0 vervangen door een ander, gebruik maken van de $tags. xC2. Plak het Klembord rechtstreeks in Uw bericht, dus NIET via-via. ODe uitlijning kan hierdoor verstoord worden. (Wegens browser en forum software)'(k`A@foPP 0 .A n created using $& tags, will always display correctly. #Just check if the lines fit in the $window. x x&If there is any doubt about using the $ tags, then the $ tags are your solution. x5Take care: some users might be confused because your  nC will be preceeded by a 'CODE' label (generated by forum software).'(d` .Een n gemaakt met $-tags, zal altijd correct worden weergegeven. ,Controleer enkel of de lijnen passen in het $venster. x x,Als er enige twijfel is bij het gebruik van $tags, dan zijn de $tags Uw oplossing. x:Let op: sommige gebruikers zijn misschien in de war omdat  nJ voorafgegaan wordt door een 'CODE'label (aangemaakt door forum software).'(bkpA@fo` 0A n created using $4 tags, can be pasted in your VBA code as an example. x x>The process 'back to sheet' will not execute, when you copy a  n created with $ mode.'(dPEen n gemaakt met $7 tags, kan in Uw VBA code geplakt worden als voorbeeld. x xAHet proces 'back to sheet' zal echter niet werken, wanneer U een  n kopieert, aangemaakt in de $modus.'( k8A@fo(Displaymode is Public variableh HG H!'Lj JG J!'Lj LG L!'Lj L B 0Please select a mode. ???A@j d`Selecteer een modus aub. ???A@j Ak(| k  0/You will not be asked to select a mode anymore. x2You can access this dialogbox again via the menu ' n'.@ Permanent ' L'modeA@jd( ;Er zal U niet meer worden gevraagd een modus te selecteren. x5U kan dit dialoogvenster opnieuw tonen via het menu ' n'.@ Permanente ' L'modusA@jkX kP B@t r( "!   L L'  "('Rsave_mek A@ro no_select_tagsvalues %n%:."store_displaymodevalues %n%:.  "9 /in case of empty, else you get a grey checkmark 02Always use current selection. Do NOT ask me again.9d 6Huidige selectie altijd gebruiken. Vraag NIET opnieuw.9kX qP A@fA@ B@.A@o P   0)Please use the button to close this form.0CLOSEA@jd Gebruik de CLOSEknop aub.0SLUITENA@jkp 'k` oX  (9dC@.q0 B@.o ]P DOptBtn D % D$95 G9jq D  H( J('L 0NOTE: xOnly '$5'mode is enabled, because there is no forum selected. x x ('(dNB: xEnkel '$@'modus kan gebruikt worden, omdat er geen forum geselecteerd is. x x ('(k(A@fkofAttribute VB_Name = "displaymode_form"  Bas0{5180D57F-B60D-11DC-A53E-4445535405}J3J dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0TemteDerivCus tomizDOp tion 0licit Dim NotAgain As RangH memDMCon@st FC0_&HH80 1S 121PTaSub CheckBox1_CAk() 0With .ForeColor@IIf(.VaPlue,@10!End  A=BtnLIf= IsDutch ThenaText("A " & PN1" cv@\usingGetF(1)tags, will o ften ĭ n icely@th@Yyour me@ssage.vXbLf_!"2 REMARKS to takXe c@@: "1. Browser Ium s@w can (infMnthe resultSIEv,w@A  preview is OK, cAm if ev(eryA1gco rrect6alplignG7submitt: - espec i@ ycolumnlabels1$Try,chR ment! a3by addAss!1on'Pt prvb`help. > e" not , 4`-n% m'_6.A! ha.nkQ B2B2. Pasb`apBoard@F$*in "EE So NOT via-`.7W b"?beOturbed. (DujeIbEafE)AqE!)aECH gemaaktXt+aazal kwijls mooi og! DUw bch*Q_OPMERKINGEN om op %leJnv`f l`kun"nhet_aatnvlo@nq3Zelf wa@-CI6ir fCQeni6gF^f0Nbijo0plos "LKopmders missc?Qa@d; Yf` Ut+MSDeoDOBtOBCB3OBot ߩߩt+ߩW~3٩ E 5V,BA%"aP6n exa@ϩ& cP 'backsheet' 4execIa0p4l wi T 15V3ZamgeS5Ptoeld0H (;~wew2uwe0rkenU C!&kopi ;t|, &` pu`?'?'YOKbttn''t[Pub vari԰]*1 D= .Ca Z 22n3͵ Then Displaymode = OptBtn3.Caption If vbNullStringNVNot I@sDutch 8MsgBox "Please select a ~.", vbCritical, "???"WEl,se HSAeer eFus aubKnd If&Exit S|ub f Check`1k xQYou will not be ask ed to  anre." &Lf_=" can access this dialogbagain via e menu$ '"PN!"' 64Perm`anent&x "'`[Z0Er zal U 0niet\word\gevra(agd`tEverDen3U k@3d^B1ogvenstopuwG[)4h4e4us5vE M e.Hid@Ap pl.ScrAUpdat=p TruCbzA\.Value <> Or lmemWMA@ [A =C=SaveMeOnClo@ԅ+'s_m/A=Unload Mb_ Priva 7 UserForm_Inqalize()S 2@TQWorkbook.Sheets("va#s").Range("no_c}_tagDb; % ("store_dg"`c WithM%D6= ;'@hcaof emp ty, e ywga grey cmark? !%%"Always u4hcur@ct$ . Do NOTk bz.$W ˟ @HuidigEniltijd g@ebruik p V!t NIET $lJ b `A'uaae_text1set_RsOk .CFocud&c_Ck `& =NQuerybY(Cancel As Integer, "jo$?0= XControlMa?n6!6the buttonm!cmfdA48@CLOSE65 G#3 @kn opSLUITEN h4"I}*ڴ+,8gy T1ms }art +0&tXAS?1v.V#ADim iLong'Ep@= 0vo 3 [4PF'ni? 1Get}"(W1" _fB_1kN@ i SMRowS 1.Enabl= Fa23L/1P"EdE:vbq"0OnlyCsU3)q e , $ca$0reno P/umKed0~toT%L  B  "En~k@ P$OtB , om`| ̀gC geh@>d  b ?a Q@N__SRP_8h__SRP_9 author_formNwelcome_formG7HY`L`0`IPY`ITY` cWW0   0   0 P  0   0   0  ( 0 P  0   0   <PTH@LLrU `$`$A`$`$`$`$A`,` Q &&$`$`nrU 7)y !I$!%q")%Q%%%%Q&&&Iy Y' () ,)..)/ 01h@dOH*\R1*#1b0$*\Rffff*0j48f35098*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#28$*\Rffff*0f48f3506b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#.Htw,*y`ՀQ >DESTՀQ >DESTwՀQ >DESTՀQ >DESTxՀQ >DESTՀQ >DESTMEX@SPSSS8:>" LL LL*LLL"<\<`?@ACjEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiklmoqrstvwxy{|~0@`h @d Pk@xT 0@D @4 @0 @ area@ t@  0Jn00@x |t`9@Hd "<@`T r@xD mula@4 hN@$ @ ` `xHH @HHl `|* xxMEPSPSSS<<<< @0{5180D583-B60D-11DC-A53E-444553540000}{5180D575-B60D-11DC-A53E-444553540000}0(%X0 %b(BbHbDP(` Hihi" ii i(wi"HihDui  P)(0%i" $ & pi*0gveniPenu iecht i(b Bb `BbHbp`PP(pP0xOH ;   (8Xx "  "  "  "   "(08P "X06` " 6  (0H P`h " px *x]]]H`] evg@edpnet.be(]www.erikvangeit.be]]Pmailto: AoPhttp:// Ao(   A A@ro'oPA@&   Ao$,4 Erik Van Geit xHoeve 31 x 3272 Testelt xBelgium x xtel +32 (0)13781870 xfax +32 (0)13781870 xmob +32 (0)497538694 xemail   xwebsite  '( o` ,C@.  G 2<< rB@0j` D *  ` D9 D ( $ 4'_ 4  {Gz? A@ D/:dqop    B@ Unload Me|P H Cannot open 0ERRORA@j|loAttribute VB_Name = "author_form" Bas0{5180D583-B60D-11DC-A53E-444553(540}J75J dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit Const OKbtnTopIn As IntegerN162 Ex 260Step@ping 3EmailAddressSevg@edpnet.be%Website!R www.@kv angei DiHm i Astartti7Dou@g>PPR@ Sub eA&_A_MouseUp(ByVal 0Butt@LE, ShiftHJXSAleY)@Ball followit("to:" & IG End&M*Hweb)l )http://)Ke)W*OK*Ck( CA>move_+@U(G,FExD, Ƒ* 2Unload Mdt"TextBox1_KeyDown7Code/MSFs.Return\4m9`E= [User _activ Ifill_tbox=Q-e` ) ! t"Erik Van G@aa4vbLf@J"Hoeve 31i3272 TesteltBelgiumH_ "Tab +32 (0)13781870faxG"mob497538694bu ʊ& πeW -6a bc`7A@ With  a.SetFocus If c < 0 ThReppca.Wait Now + 2 / 6024! N@= a To bbe c.Lex= iG$0= TrDogLoop Whicڢ - ' .01 EventaNa-#.&Link3bOkrror DGopro\mAA8eWork@book.FVH`yperlSg:=q, NewWindow:=x́ 'FExa :MsgF "Cannopt opp!&48, "ERRORpl%xH0nx@h @d @` @ \ @( X @@ T @X P @p L @ H @ D @ @ @ < @8 @(  h H @ l  0xn@ h @8 d @P ` @\ @L @H  P h p `"0xnjR@x @ h @ X @ H @X 8 @ ( @  @ @(  @@  @ @ 8 r(H0.\..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#51*\R0*#e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\R1*#d3*\R1*#e8$*\Rffff*0g48f35098@DHLPTX |   8 @HP Xh "x@ "  I  PP  ( 0 P (` 5 !  !     " 4LB98 8 +  "(,@p  x B    " X ` B h  p 7x P h 7p X p x "    "        2  (  20  h p       $ 8 @ H X HIDDEN CheckBox2Itto get automatic settings@]H]p]]]L 5  $9qXoP( `G|jL'`  "Au 0-You will not see the 'welcome' popup anymore. x&You can still access it via the menu ' n'.@WELCOMEA@jdx1U zal de 'welkom'popup niet meer te zien krijgen. x&U kan dit opnieuw tonen via het menu ' n'.@WELKOMA@jkkOn Error Resume NextM Me.Hide!Application.ScreenUpdating = True "!   "( 'Rsave_mek8 GA@j A@r'`ohno_welcome_infovalues %n%:."9L "'#/in case of empty, else you get a grey checkmarkA@ x H'N  ( 0WELCOME J( QUICK START (Do NOT show me again. (%dWELKOM J(q SNELLE START (Dit bericht NIET opnieuw tonen. (k n (%lop 0 Thank you for using n9. You will find all functions of this AddIn in the menu ' n ' at the left of the menu 'Help' xPlease note that this Addin will be saved automatically on close, when you have changed its settings, for instance to avoid repeating popups like this one. x xTo my sense the functions speak for themselves. If however you find something unclear, please let me know! (via menuitem 'About the author') x xExcel'nt regards, x Erik Van Geit'H d0 Dankuwel dat U n8 wil gebruiken. U kan alle functies vinden in het menu ' n' links van het menu 'Help'. xNoteer aub dat deze Invoegtoepassing (Addin) automatisch wordt opgeslagen bij het afsluiten, wanneer U de instellingen hebt gewijzigd, bijvoorbeeld om het herhaaldelijk verschijnen van popups als deze te vermijden. x xVoorlopig staan de hoofdzaken in het Engels, maar naar mijn gevoel spreken de funties voor zich. Als er toch iets niet duidelijk is, laat het me dan aub weten! (via menu-item 'About the author') x xExcel-groeten, x Erik Van Geit'H eniki 0 (Set all options automatically (MrExcel). x7These are not necessarely the best, but the most sure. >You can still change them when asked (popup) or via the menu ' n'.'foCLOSE ((bd +Zet alle opties automatisch (oplossing.be). x5Dit zijn niet per s de beste, maar wel de zekerste. GU kan ze nog steeds wijzigen wanneer gevraagd (popup) of via het menu ' n'.'nSLUIT ($kihA@oh]( fora7nOn Error Resume Nexte gepl 0www.mrexcel.comA7 r%*'Dck to dwww.oplossing.beA7 r%*'D kopiekx D;$pqhvalues7nno_welcome_info;:ymodno_select_forum;:Gno_select_tags;:J!CODEstore_displaymode;: qqoոAttribute VB_Name = "welcome_form" Bas0{5180D587-B60D-11DC-A53E-44455P3540}J7J dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD'HIDDEN CheckBox2 'to get auatic settings Option Hlicit Dim NotAgain As` Rang` m emDisNyMode flag Boolean%Const FC0&H80 1Dl1@* P@<@> Su"b01_C&k() With.Fore Color@IIf(.Value*,@10End  A(OK_btnIf B5TheH$itA& = ?Cv @ \5 AR AC C4 IsDutchMsgq "You wi@ll not@pe@ the '' popup anymB." & vbLf_can staccess 5viamenu$ 'PN"'.", 64, "WELCOMEw@$EBEE)U` zal A&kHom'%nimeer ziSkrijgen5(U kd`opuw ton!hb 8KOM y0If ?!'O:rrFRes"uNex `'M e.Hid@^'A pp`Ofon.ScreenUpdyngM?%=cO \<>TH:=MYSaveMeOnCNl ,'s@_mea`P2b Set#|} Unload< MX$VbUserkm_InitializeAq G \hisWorkbook.Sheets("BvAqs").("no_%inf|o"dsg$a'E`cof ty, e P yb grey cmark CzLabelAud_GetT@Á2.Ca52K 6yFram0S"1~0-]Xsv%c@y (Mr )* PWe`BBLnelyRbest$D=mosure.6YY'ch!NmOask(%) 1CGWa?#z#)tpCLOS's/= E Z`Je2%cա6(opY8.Dbe_ "1sz˰1&p's17G0r,Fe z+rst<ñ`4no1peedsH9P1wddiry 4 8);12 <=9=a==I> @9AaA)B B1?3CC!!"I"q"!@ i1`  D"I"H"I" L"`I P i #Ti`0` I X##c W    W  `x! Qxt@dt  $Dd "t  6dD$cth`(bt xdD$ < <Ihx! x  hcX]/HX4a(c8]/'x6h( P''(:XNHH@. *#/*#*#'*Fh 026hH(P''(:XNHH@1 *#2*#*#'*Fh 026hH(5X4aHhx! x  h@x6Hht!x! Qxoh%X4,5hz3x! Qxoh5h lx4$5 6x <$b 0 xhH(L:T%d:h%x$ x dd4[04)xd0549X4a4ch]/ x! x  x64 8:h 4 4 x! x @ / x64 +4 4 x! x H / x54 Jx! x @xx! x @xx! x H xx! x @xx! x @xx! x H x:h%,p$(b ( xd04 0. *#h*#d*#`*#\ *#X*#T *#P *#L*#H *#D *#@*#< *#8*F(l2hd`\XTPLHD@<8$*#h*#d*#` *#\ *#X!*#T *#P *#L"*#H *#D *#@#*#< *#8*F(l2hd`\XTPLHD@<8/ T0(blDhd`\XTPLHD@<8( . b7$ *#h%*#d&*#`*#\'*FLl2hd`\(H! H 0)H7* *#h+*#d,*#`*#\'*FLl2hd`\-H! H 0)H/ 4(bl$hd`\HL<   $b 0   @LTT(rU d$ `$A `$ `( `/( `/,A ` Q &&$ `nu0* pHd VBAProject4@j = r OH J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation^DOfficDO>ficDD2DF8D04C-5BFA-101B-BDE5DAAB42Dgram Files\CommonMicrosoft S@hared\@10\MSO.DL L# 10.0 Ob Li`braryKMSFor ms>SFrms$3D452EE1-E0D8F`A-8-02608C4D0BB4NothingOptionoptionalPublicReDimResumeSetSubThenToTrueUBoundWhilewith Excel+ VBAWin16~Win32MacVBA6#Project1  stdole` VBAProject Officeu (ThisWorkbook| _Evaluate Blad1&Module1b backtosheet_modkmyData myTextMyTtl myTabNameQp1^p2^FCRPCLblPLbloFRE]FC6]RC^CC\ FirstCelluRange TableItN EndTableTextD SplitArray DataArrayi`jamsgQtempR InsertedRows%pEndLinethisOneAddress thisAddress$ thisFormula^ arrayFormula6 thisRange(back_to_sheet_Everythinge (back_to_sheet(back_to_sheet_Only_Data(back_to_sheet_Only_Formulas\1 displayData displayFormulasl ActiveSheet%NProtectContentsMsgBoxR DataObject(PN^GetFromClipboard Application* Substitute^GetTextvbLfT% valid_datalR(initialize_dataN proceed_data& (paste_data-:valid_formulasn(initialize_formulasqxproceed_formulasf(paste_formulasYvbCr$ValCellsColumniErroOffsetAddress IsNumeric$*ChrK~Resize@4CountA38vbNo%ScreenUpdating!  DisplayAlerts TextToColumnso DestinationлDataType%? xlFixedWidth FieldInfoTrailingMinusNumbersCReplacefwhatC replacement vbNullStringInsertr EntireRowHidden]Clear NumberFormatR Intersect1 SpecialCellsxlCellTypeBlanksxvbYesa? EntireColumnAutoFit&  ActiveWindow+ ScrollRow"Row ScrollColumnLH validAddress]IIfzvbTabc9JoinM& ClearContents{FormulaqY FormulaArrayΠRowsUCount0vCopyƿColumnsp9Union checkAddress7 general_mod (CreateMenuF ProjectName& (DeleteMenucZCommandBarControlP CommandBars ControlsKLCase:CaptionxIndexAddrmsoControlPopupl)before temporarymod1vmsoControlButtonnOnActionFaceIdimod2vDeletex(author author_formShowhtml_modversionTxtFt"MaxRCejMaxCC:hMaxMLiNrSpCItClr]LbClr-TxtSz rngULC^LR#^rngCount~MLB^SumML arr uFCWidth/MySpcMyTabMySig (Displaymodeq\ TableStartTableEnd LbClrStart ItClrStartޙClrEndu TxtBoldStart* TxtBoldEndvas *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{180B9096-7712-11DC-A53E-444553540000}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  OH * ThisWorkbook0g48f35098ThisWorkbook* sheet10r48f350ae[ sheet1* Blad10i48f35098 Blad1 backtosheet_mod0s48f350b3backtosheet_modx0bEgeneral_mod0f48f3506bgeneral_modx`` ,generate_mod0e48f3506bgenerate_modx`0"select_forum_form0a48f34ff2"select_forum_formxx" displaymode_form0h48f35098' displaymode_form x9author_form0c48f34ff2author_form x@welcome_form0j48f350987welcome_formy``},Hx@ 0``{ %r{ %rQ,>DEST>DEST#a>DESTQ,>DESThQ,>DEST΁š=DESTQ,>DEST Q,>DEST@"a>DEST` As b BaseBooleanCallCase"Const=Dim@DoDElseEElseIfQFRFalseTForXFriend^GoTo_IfkIsxLongyLoop{MeNot myFormulas myTableIt*flag rangeHasArrayFJcreate_html_Everything create_html^acreate_html_Only_Data create_html_Only_Formulas6 determine_rng rng_limitsRSetTextstrip_last_emptiesTfeed_arrߴ clean_arrWrowlenght_error-font_or_code_formP determine_tgs|create_table_dataNcreate_table_formulaskPutInClipboardInputBox  SelectionZFindnxlValuesoxlPart<xlByRows xlPrevious MaxȲReptJStrdummyDMsgFrm_hOptBtn MSFormsC OptionButtonOkBtn CommandButtonkFrmCode+access_trusted5 VBProjectOh VBComponents ' Properties+Designer"Top5Height|ControlTipText8ValueKvbCrLf CodeModule AddFromString UserFormsKRemoveϱ VBComponentNumber- Description UCase5 ii]iii}jj]kb FormulaRange%arr1|Darr2}D FirstAddressd LastAddress \ RangeAddress remCopyColRow remArrFormulakEntireColChecked9zchecked0RCxCC9 LenAddress/ msgArrCopyYesmsgArrBlockYes]+msgEnterArrayFormula msgArrCopy( msgArrBlock|5xlCellTypeFormulas#ParentxlCellTypeConstantsW FormulaR1C1SActiveWorkbookHasArrayWorkbookkWorkbook_BeforeCloseCancel Workbook_Open OKbtnTopInN OKbtnTopExNStepping EmailAddressu starttimeLemail_btn_ClickFollowHyperlink- OK_btn_Click move_button2TextBox1_KeyDownjVKeyCode ReturnIntegerShiftUserForm_activateZs fill_textboxTextBox1SaX email_btn SetFocusWaitNow%TimerX BeforeClose~;Itemz _B_var_LCase' Worksheet _B_var_Midp _B_var_Chr\;_Defaultj UserForm1)UserFormNOptBtn1rFOptBtn2sF OptBtn2_Click OKbtn_ClickUserForm_Initialize5cClick InitializeN _B_var_UCasea _B_var_Str sheet1 JoinedArr# JoinedAddressk> _B_var_LeftQiiiasListBox1CommandButton1|CommandButton2}CommandButton1_ClickCommandButton2_ClickSheets  ListIndexQUserForm_ClickListBox_B_var_ListBoxList* RowSource2Sheet[ _B_var_SheetHxlUpdetermine_tags%lfaceTxtFc(tagRowl _B_var_On6 _B_var_IfP UserForm2*Image1_Label14DOK_btnyKeyDown.aActivate|TxtSz10TxtS2TxtS1mod3v (select_forumx5 select_forum_formi_B_var_select_forum_formA2l\ vbCritical+}_B_var_RowSourceb; _B_var_Setforum_specific_tagsrresum\@oin _B_var_oin{ vbInformationnPlease  Get_tagRow  _B_var_tagRow_B_var_Get_tagRowtSaveSpace  _B_var_Spacee\_B_var_eMaxFormulaRngCnt FormulaRng FormulaIsRngFormulaIsInRng ReadOnly4< vbExclamationmsg1cmsg2d _B_var_Constg _B_var_msg2FontU_B_var_FunctionO_B_var_i UserForm_QueryClose CloseMode؟vbFormControlMenu~ abort_sessionE QueryCloseTclose_meddimid _B_var_dimi?code _B_var_CODE'# CheckBox1askit2 _B_var_askitIfThisWorkbookCheckBox1_Clickl ForeColor LB_ListIndex  _B_var_LongLB^ListBox1_Click ListBox1_Change ChangeListBox1_MouseUplButtonXoYlMouseUpEnabled۪VisibleLocked ulask_select_forumr displaymode_formA1H12I233J4 4K645L12Table-It{_B_var_DisplaymodeMmsgobx; _B_var_msgobx _B_var_Friend7displaymodevbCr OptionButton1k@OptBtn3tFLabel1, OptBtn1_Click?_B_var_UserForm1Use OptBtn3_Clickadding(forummd_B_var_m  _B_var_Label16 _B_var_WithYSelStartZupdate_textbox1:Repaint SelLengthBrowser diesplaymodeL_B_var_diesplaymodeSelectedYHide9zFCnocFCyes _B_var_FCyes _B_var_FCno5conbstd _B_var_conbst end _B_var_end checlbox1YUupdate_controls`(save_me MySpcChar MySpcIndexé MySpcCodemodiv_B_var_Variant _B_var_ForjLodiڽ set_constantsb _B_var_ReDimbasw _B_var_OptionsOptBtnCaptions set_OptBtnCaptionsYget_mode(GetMode_B_var_getmodeJ_B_var_get_mode_B_var_set_constantswri StoreCell-ememDisplayModeA set_OptBtns _B_var_msgbrCTT _B_var_StoreCellrnTag&FC0{FC1| select_tag(select_displaymode0OptBtn1_MouseMove MouseMovevOptBtn1_KeyDownAOptBtn1_MouseDown MouseDowns ReturnBooleane fmDragState ReturnEffect"HOptBtn1_BeforeDragOverP_Data; DragStateEffect|BeforeDragOver _B_var_LBusing"relevanthtagsModev _B_var_Mode _B_var_modiLB_Clickn* CheckChanges MadeChanges'sOptBtn1_DblClickOptBtn2_DblClickSOptBtn3_DblClickDblClickWebsiteAddress2bemail_btn_MouseUpfollowiteweb_btn_MouseUp_web_btnwLinkhproblemq NewWindow generate_mod}(create_TableIt_Everything(create_TableIt֩(create_TableIt_Only_Data(create_TableIt_Only_Formulasz LocalFormulas!(create_TableIt_Only_FormulasLocal aFormulaR1C1Local  FormulaLocalD_B_var_IntegerNotAgain- LB_MouseUpoJGetCountryCode7!IsErrorUMatchR International xlCountryCodeN(IsDutchMst(__B_var_LocalFormulas welcome_form,"CheckBoxi{_B_var_CheckBoxqC (menu_indexTextBox1_GettextKgebruikt@_B_var_gebruiktɴunloa _B_var_unloaLabel1_GetTextFrame1(welcomeStylepmsoButtonIconAndCaption1l (SaveMeOnClose_B_var_SaveMeOnClose%lWorkbook_BeforeSave lSaveAsUI BeforeSaveOnTimeTtenAddTag TooltipTextb?DescriptionText Label1_Click vbModelessZ vb_odelessmodeles vbmodeles q(tagColj tagrowtagColяtagRtagCtagNamexlWholeshow_welcome_info"_B_var_show_welcome_info ] _B_var_Exit48ZB1\L2^A1k\usedMPLdatar^MaxCpLayMaxCpLcyMaxRowLengthCalculateJ _B_var_Error)ziebmsgArrCopyAcross[msgArrCopyAcrossYesPmsgArrCopyDownjYesmsgArrCopyDownYesmsgTail!" msgCopyTail logitKskip listerrors CheckBox2_B_var_checkbox2PCheckBox2_GetText(YouFrame2 SetOptions4en] _B_var_end[resime_2no_welcome_info|no_select_forumEno_select_tagsNstore_displaymode=exti{ _B_var_extiisducthNvaluaK_B_var_isducthBthe'ne(SheetHasPassword sshtName}n Unprotect? IsProtectedProtectfnoj^ _B_var_nomsgbo _B_var_msgbo|report$ _B_var_UBounddfun3 _B_var_Select'E _B_var_Case _B_var_False-_B_var_displayFormulasformulasdisplayFormulasvbLf'sgm _B_var_Loop _B_var_ElseIfqmAutoFilterMode" ShowAllDatauf_B_var_CommandButton1M{ (checkForumReferenceStyle9  [ ' 7   D  A @@ RFM260& ^L&/;!1iIpAaHp00}#7@p#G 50 rA180B9096-7712-11DC-A53E-444553546P\V BE@]B2.exdH^U7.E .`PM  D*¶ThisWorkb@ookGTDh@sWikbok 2 HB1B,!*"B +BheetT1G se]t1 "s2 6` !Blad AB|a}; F2G/ )/+ ba cktos!_modG!,azko bhe`J_ co 2%bEx!"// general#`n`ra#'L2 ,gᲣte!Tgt`#ToT0ol"sel_forummG=sUc7fhu8_Io!27/m\x( %;displajy@Oe }peB_yNeq2JmP9o, 2%author %auh) (A_06] ? 3SwelXcom)wc@ mi ))! }_2yrU~~~~~~~~~~k       ProjectNameishtName displayDatadisplayFormulas LocalFormulastagName Y__SRP_03__SRP_1 rselect_forum_form$$)JQ1Jfe data? 0Sheet Password ProtectedB;AkirukiIq SetText [ ] version " by Erik Van Geit no_select_tags "store_displaymode~ՀQ >DESTՀQ >DESTՀQ >DESTsՀQ >DESTBҋB ` CheckBox1!-6S` QY`{lFWJOOkBtnҋB `TextBox1RҋB `OptBtn3ȏ[qJ eUserFormՀQ >DEST F3Dynamic  pOptBtn1OptBtn2CheckBox1_Click OptBtn1_Click OptBtn2_Click OptBtn3_Click OKbtn_ClickUserForm_InitializeUserForm_QueryCloseupdate_textbox1 set_OptBtns `48UnprotectProtectGetTextPutInClipboard $Clipboard contents DATA   YES  ( tags) NO FORMULAS YES .You can Paste (Ctrl+V)  at (in your VBA project. readyiVBE6.DLL S   FՀQ >DEST FՀQ >DESTDF WorksheetՀQ >DESTՀQ >DESTՀQ >DESTwՀQ >DESTՀQ >DEST?F`Frame2Frame1OK_btn CheckBox2ՀQ >DEST )# 0"-?@Label1 OK_btn_ClickLabel1_GetTextCheckBox2_GetText SetOptions d48FFCҋB `Yl| WELCOMEpj).` QUICK START *Do NOT show me again. WELKOM SNELLE START >Dit bericht NIET opnieuw tonen. (Thank you for using FormulaR1C1 r. You will find all functions of this AddIn in the menu ' @' at the left of the menu 'Help'H To my sense the functions speak for themselves. If however you find something unclear, please let me know! (via menuitem 'About the author')O 6Please note that this Addin will be saved automatically on close, when you have changedK*s   rU ~~~~~~~~*~~~~~~~~~~~~~~~~~` )ՀQ >DEST  e e e  ^ W \A\\\\\]9]a]]]]a   A Y q 9a I ) i  1 a ! Q y )Ya ) )Qq a $ $q1$Y$$Iyq ThisWorkbooksheet1Blad1backtosheet_mod general_mod generate_modselect_forum_formdisplaymode_form author_form welcome_form VBAProject Table-ItF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  90Fcreate_TableIt4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel  @0FC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole aPL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice `.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms Yp w>DESTC:\WINDOWS\TEMP\VBE\MSForms.exd  Y CreateMenu DeleteMenu select_forumselect_displaymodewelcomeauthorsave_me menu_indexGetModeIsDutchSheetHasPassword  09 Courier New darkblue bluecreate_TableIt_Everythingcreate_TableIt_Only_Datacreate_TableIt_Only_Formulas !create_TableIt_Only_FormulasLocal determine_rngstrip_last_empties rng_limitsfeed_arr clean_arrMaxRowLengthCalculaterowlenght_errorcreate_table_datadetermine_tagscreate_table_formulasforum_specific_tagstagRowtagColforum checkForum jj 4 <TX\`dhlptx| no_welcome_info valuesFՀQ >DESTFՀQ >DESTDFWorkbookWorkbook_BeforeClose Workbook_Open @F RangeFFiProtectContents* The active sheet is password protected. Please unprotect to get the formulas in  .Name  ՀQ >DEST ZDo you want to continue to get only th its settings, for instance to avoid repeating popups like this one. "Excel'nt regards, Erik Van Geit Dankuwel dat U  <Please Select Your Data Range: p wil gebruiken. U kan alle functies vinden in het menu ' 8' links van het menu 'Help'. / ` PSet all options automatically (MrExcel). nThese are not necessarely the best, but the most sure. ? Limits:  m Noteer aub dat deze Invoegtoepassing (Addin) automatisch wordt opgeslagen bij het afsluiten, wanneer U de instellingen hebt gewijzigd, bijvoorbeeld om het herhaaldelijk verschijnen van popups als deze te vermijden. Y @c Voorlopig staan de hoofdzaken in het Engels, maar naar mijn gevoel spreken de funties voor zich. Als er toch iets niet duidelijk is, laat het me dan aub weten! (via menu-item 'About the author') Excel-groeten,F Match Resize! |You can still change them when asked (popup) or via the menu ' '. CLOSEďYl| VZet alle opties automatisch (oplossing.be). jDit zijn niet per s de beste, maar wel de zekerste.  LU kan dit opnieuw tonen via het menu '#=h8+3q% U kan ze nog steeds wijzigen wanneer gevraagd (popup) of via het menu ' SLUIT ZYou will not see the 'welcome' popup anymore. LYou can still access it via the menu ' bU zal de 'welkom'popup niet meer te zien krijgen.G?,2qL?C "Max # of Columns: Max # of Rows: 2Max # characters per Row: H(Sum of columnwidths, Tabs included)Address CountA .The selection is empty. HDo you want to select another range? ColumnRow OffsetTextSubstitute dPlease select more than one cell to display Table! L(You can retrieve its formula though.) ,ONLY one cell selected @Maximum # of rows in selection:  rows selected FMaximum # of columns in selection: " columns selected  *No data in selection. 2voer formule in zonder {} @bevestig met Control-Shift-Enter {=formule}: (selecteer eerste cel copieer  naar beneden naar rechts {=formule}: 2selecteer volledig bereikSpecialCells Cells 0enter formula without {} @confirm with Control-Shift-Enter {=formula}: "select first cell then copy  down across {=formula}: &select entire range HThere are no formulas in this range.Copy AutoFilterMode  FormulaR1C1Local ADRES FORMULE  RANGE FORMULA  \some formulas were copied to adjacent columns  hwhile they were not copied down for the same length  EXAMPLE: , copied down till row ՀQ >DESTback_to_sheet_Everything L but in adjacent column only till row  : { } Max (1ste cel) (1st cell)  &  [code] [/code] '   FONT CODE VBA A fora x BColumnsFindՀQ >DESTback_to_sheet_Only_Databack_to_sheet_Only_Formulas back_to_sheet valid_datainitialize_data proceed_data paste_datavalid_formulasinitialize_formulasproceed_formulaspaste_formulas validAddress ~~x 004<WS@HL`dhltMp < < Cancel y  y( y8 yYH )X CloseMode !h y"x Q# y# checkAddress&(H  @} R KQDBTahoma,8CommandButton(CANCEL@OuTahoma@(o#%CompObj&&aVBFrame(.displaymode_form",")Q1JQ1JOKGOuTahoma@$F@0G5Tahoma@`5Tahoma@1L ,4CommandButton2L ( DCheckBox1 4LBG  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} select_forum_form Caption = "Select Forum" ClientHeight = 1995 ClientLeft = 45 ClientTop = 330 ClientWidth = 2430 StartUpPosition = 1 'CenterOwner TypeInfoVer = 5 End (H  @ }G$ R KQDBTahoma$LOptBtn1,F{0GFONT5f-_o(*/CompObj+;aVBFrame=4Tahoma@,F{0GCODE5Tahoma@(OKGOuTahoma@,F{0GVBA5Tahoma@ #H5Tahoma@`G<2a0GAlways use current selection. Do NOT ask me again.5Tahoma@$LOptBtn2O$4OkBtn@$LOptBtn3$@TextBox1( CheckBox1   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} displaymode_form Caption = "Select DisplayMode" ClientHeight = 1830 ClientLeft = 45 ClientTop = 330 ClientWidth = 5265 StartUpPosition = 1 'CenterOwner TypeInfoVer = 12 End (H  @ }BR KQDBTahoma$<TextBox1HL5Tahoma@0 EXCEL SOLUTIONSuTahoma@+ OKG#uTahoma@ + EMAIL@{ @author_form?1.Q1Jy:JfBco-/Du CompObj0naTahoma@8q R KQltJFIF,,C    $.' ",#(7),01444'9=82<.342C  2!!22222222222222222222222222222222222222222222222222XK" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?=8QK"EHUE,I|dq#\(8.MAj͓ ޮh:-P6YO瑛ӈ`RGt|[np>iuRߡGgKlK'_J;/秽g(uF 82 !=3JNh}04MaE``1p q y5P0;Uy'czp;VhT$`V*ˎZ3% :R=VUe˨ȡ3ރCHcRVT8d;d1j˵\=*]h_$Sblʱx?<渎G-]sNUnw,'i ڃ%~jI"303n46(w!MI۷$|F(:UL]#mU2XԞ3 W8Vnu=yh]YITmI$J؂(롢RKRSq-mʹ@3XY1[ZDW 3H@ǚŸn9s֋Z4|fms ʧҵ7czi0p>iXd5Xqr$~m@U!IiA Kg##,3+ z;dmS8Nvє>^S^a$JÌ:ط295h󆈆~= 2=kmM!5˩rLPùcU $M> ҝ)V)JqjF2pZ:Ic.9 Mn2{Y Wo{fuׁ ~#<J*̊xyv9_2B7tOSAG\Ipo.X2sEcRWfn\ڣHQI&ե 0̌;?fxt1v_Z_=.uø}8E#(G#DJJ 4ɥ, '%ׯ>Հ.س#:)IMŝKc]̨$Y 7VWbT 8Kq׎+ieē^?N7&$9Ǿz2;xQYlAsu6^ĂyB}=E9{9ӗҴ4[iZ~KȐu@}1\m3[.OU5m>=Bv 6>h{T !ӂ=rBKsLEk(FX` m L~j]ʖw}1ފ+^fav-Yw܋6tQ]\豉U2GQE; zrpA[XdEҸ] + WEBSITE{ @Tahoma@(2PLabel14$<OK_btn@( Hemail_btn $ Image1@S$Hweb_btn   Microsoft Forms 2.0 FormEmbedded Object9qVBFramep#welcome_form3y:Jy:Jfuo28zVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} author_form Caption = "AUTHOR" ClientHeight = 2940 ClientLeft = 45 ClientTop = 330 ClientWidth = 4365 StartUpPosition = 1 'CenterOwner TypeInfoVer = 11 End (H  @}R KQDBTahoma$@OK_btn@( `CheckBox1k$#Frame1@$#Frame2@"  + CLOSE@uTahoma@@F{0mDo NOT show me again.5Tahoma@8J  }IuFrame1@R KQ|Tahoma0G(2<Label1@ i056 n``y:Jy:Jf}o57<CompObjp*Label1@5Tahoma@ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,J  }IqR KQDBTahoma0G( DCheckBox2k $F@0m5Tahoma@i074<: n``y:Jy:Jfo9;DCompObjp n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} welcome_form Caption = "UserForm1" ClientHeight = 4575 ClientLeft = 45 ClientTop = 330 ClientWidth = 4185 StartUpPosition = 1 'CenterCompObj=aVBFrame'PROJECTwmPROJECT>!Owner TypeInfoVer = 24 End ThisWorkbookThisWorkbooksheet1sheet1Blad1Blad1backtosheet_modbacktosheet_modgeneral_modgeneral_modgenerate_modgenerate_modselect_forum_formselect_forum_formdisplaymode_formdisplaymode_formauthor_formauthor_formwelcome_formwelcome_formID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Document=Blad1/&H00000000 Module=backtosheet_mod Module=general_mod Module=generate_mod BaseClass=select_forum_form BaseClass=displaymode_form BaseClass=author_form BaseClass=welcome_form HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="787AD422D822D826DC26DC" DPB="5153FDE21AE21A1DE6E31A1BF2D25A96BC23A714D4C6511C7802824B5E340D4798E183B9" GC="2A28860D5E0E5E0E5E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=88, 88, 446, 440, sheet1=0, 0, 0, 0, C Blad1=0, 0, 0, 0, C backtosheet_mod=0, 0, 0, 0, C general_mod=88, 88, 708, 440, C generate_mod=110, 110, 730, 462, Z select_forum_form=0, 0, 0, 0, C, 154, 154, 774, 555, C displaymode_form=0, 0, 0, 0, C, 176, 176, 796, 577, C author_form=0, 0, 0, 0, C, 0, 0, 620, 401, C welcome_form=0, 0, 0, 0, C, 22, 22, 642, 423, C SummaryInformation(ADocumentSummaryInformation8CompObje Oh+'0@HXh ErikfErikfMicrosoft Excel@1@y:J ՜.+,D՜.+,@ PXd lt| /A foravaluesno_select_forumno_select_tagsno_welcome_infostore_displaymode  WerkbladenBenoemde bereiken 8@ _PID_HLINKSA http://www.oplossing.be/~"http://www.mrexcel.com/ FMicrosoft Excel-werkbladBiff8Excel.Sheet.89q