PDA

View Full Version : [SOLVED:] Make VSTACK(FilterFunctionA,FilterFunctionB) show parent



garyj
11-27-2023, 11:17 PM
Hello...

I don't know if the title makes sense or not, but here is my goal. I have a dispatch sheet which I filter to find the buses which are on the road. It looks for:
Coach#, Driver, DepartDateTime, ReturnDateTime

I VSTACK that filter with another that looks for buses that are in the shop. It looks for:
Coach#, Reason, StartDateTime, EndDateTime

Together these two together give all the Coaches that are out. The second column gives either the driver or reason the coach is in the shop. The third and fourth columns show the datetimes for these, and I use that to provide for a calendar view of dates when buses are not available for one of the two reasons (already on the road, and in the shop).

It works great, thanks to help from this forum in past questions. :clap:

The problem I just encountered is that I now have a reason for which to recall which data comes from which stack. I would like to add a field to the group that says either road or shop. But how to do it. I have floundered at ways to do so within the main formula, which is complicated, as follows:


==LET(x,VSTACK(SORT(FILTER(FILTER(BkgBusMapData,(E1<=BkgTIn)*(E2>=BkgTOut)*(BkgCancel=0),{"¬","","","","",""}),{1,1,0,1,1,0}),4),FILTER(OOSShopData,(E1<=OOSBackfrmShop)*(E2>=OOSOut2Shop),{"¬","","",""})),FILTER(x,TAKE(x,,1)<>"¬"))

I am willing to receive ideas on putting something in there... but after failing to find a resolution I finally decided on another approach. Unfortunately I need help on this as well.
My second approach was to create a column that uses some of the filtered spill data to give the needed data.

I am attaching a picture with the columns. My original, working formula, is in the first column and it returns the background colors of the buses on the busmap using the equipment table. It spills and works fine. A5 by the way can never be blank, but adding that If made the difference between the column spilling and not.

So I added the last column to compare the reasons for bus in shop to the list of available reasons: ListFShopR. Any bus on the road will have a driver, not a shop reason, in that field... so it will then evaluate as FALSE. As you can see, the 4 buses in the shop evaluate as True. That line also works, but it doesn't spill, and F5# of course doesn't work. I tried other methods to make it spill, but it makes the formula error. So I entered the appropriate formula into each row, and it works.

My final goal is to have all buses in the shop for maintenance or inspections to show on the busmap calendar as red... color 192. So the combination uses an IF formula to attach the ideas into one formula. BUT it returns the same values as the first formula. I do not understand why.

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAxQAAAEBCAYAAADhB OQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABha VRYdFNuaXBNZXRhZGF0YQAAAAAAeyJjbGlwUG9pbnRzIjpbeyJ4IjowLCJ5IjowfSx7IngiOjc4 OSwieSI6MH0seyJ4Ijo3ODksInkiOjI1N30seyJ4IjowLCJ5IjoyNTd9XX2mBEa3AAA/mUlEQVR4Xu3dW4hr8X7Q8d/YQs/hHKwe0d6ss UkWxkH2geLkLF96jkl2Q dU2Hsg3UQSlILmtDTeRDmoQ/Tp2lL4ks7QahbX8ooshUmodUncQJFxRamQ52kOKMtVoVi4Rx6CpX4v61k3bMuyWQl8/3A2juTrKzLb91 ///6/1cO5ooU8PLyIoeHh 4v5EX8yiF 5RC/cohfOcSvHOJXDvErh/iVs6/x 1PufwAAAADIjQIFAAAAgMIoUAAAAAAojAIFAAAAgMIoUAAAAAAojAIFAAAAgMIOnp fCz02FgAAAAD4HQoAAPBmkL UQ/zK4XcoAAAAACCEAgUAAACAwihQAAAAACiMAgUAAACAwihQAAAAACiMAkVhY kcHEhn7P4sbF3T2aaZDE4O5MCtxLijXp8M1Lta2mcoZh/2mSLcvvSK 4/ZX1cEmn16FbvdTgZlI5RjOrOBnKhj5ODgRErPthLsMR9dn3XFFgDKefUCxWxwok6K sQYHBYnxHFH/R06aca9Z7gEI2Z6i8ElA0nz9ScC8ePEX5BmgysZNvpy0XRvxCzjynVVItNZWK5bXD5jkpjQdGPH NcvVUZcj70813toz0Zq8P3YvI9I C0pPzFw8vGVP3CeCYrdByvpnHT92Wc0yhfflZeyDbIIQ3Beyzbtq 0zSfk6SHeL2j7RYZhrHyXJ sdL3CzvPtGMpfJ7Ndp5bbv adC/bMuldJxwLS5FpBRY4x3TubmWijpHp/F66NfemJ0eMtfRlirf 7zTlZj6XUXsivWv/ 9ljAgCbtJ07FOZEPxf9ExjecB8562ehTqb3vumM2uq9hvSnvvdu/FlXW0be 95w31VT8QuOM 2L9OrhC/FM7m4n0jj7EPpujNR1TZnO Fp6k7a01SoNPyVcKmKmHVhdZfb0oMY7krr9S yf9q9NqR813KuotM ap2plJz0JXC89sztRoZL2aSSLTmCToHpPgvvDfCTtYUtdsMOJft7xQ3SNaGuoFnBUcF92AtvUzT uQmFd1n8lybJXljve1T1dZmVSX4RJyvX8kyjJOjCzn0iz7RSK9XHXpiW8 0zO5PQ8XFlds/ apGmMoabPXCXXw HP7v//km2E62vRRnSyO34f2k/wxzrRMIZv8jjl/PjwFY58xJgCwSTR5WqHWvVQn69CF2CS3DTn7UDKtSZnO JNOTk/lRifZw0 Fa5/iLqzH71cst0muXALtmg6kXAvjRS7mPkmfmQtjfNJjahzVp1nLE7PBuUqidOEyXEPZlBtVSmyoC3 DLt1J5xw8aS0dlA6ZGNJydl9KUi75KICa3cudlEFXdZ5BouW9NRW/OOFnGKarcfjEVvTsECrC1rtznLtQ1xc4Ri67qmCcv j7/hz 39gmVdNJ1n GGddJr/X o5f8ZgAwLpQoMjIX0Nrk9tjKZtjJU9nLDYHUMmpq326ylt16goCpjJO13SZ2 h1dUHVf4ZvpzteU4CrI5nOb9RlStHJw3wqR1f6kFi7Ra7Gx3ReyFMXoRtbXyOinKlq5741 GCgeOWqfLwHzyju naz1bagu1ZbSBmvNaqL1Y5faZHAJNrtS0TBOPxd0XV3scmke4aVnc37qJj5mWN 1Vd5NCzDTNSk/M3Ug9jUizIe/YKDD9Wvde5nFNb3yyjFPMGvYLZfI4da KM7XrSQny7Eke1H/hgqvd/4O176nTSZE7xjmWaeG1vhNSNCYAsC7rK1AsOsHFDZtqSrB5445OFoM1wqYGd9EkpLjE6Yw/qXl6tfE2yZ7c3i2SqIVJT q OAeSIFcQ0JVc7ZG7jW5q2nUNnXrtq0lfJGMtsc0WIomx17RsJKITy/C8lObNsqmFuXD7pp/2WZhp9hS iOZu7uRqVVMKMbbp1YM8mdXIO/7SXUcn3Lq5hyuArZlpfuRTlX0mL520t4bLZjHToyup65LKGkx6dak/XtrlNcs/lFagmVg6vX Gm0sGmg3pwtWn08LT36qs 0Uir6ZcFzDLncdtghw9hozpoyrONSRyCNaP1LtBqdNZpxzLtPBa3wl5tZgAQIL1FShMMmIvxtEh VCsUSmper8ChEoGV8w2O05JRaPltm3JJa9Ljl7iuSdOZyeDKVCkuElTbt8DX7EUxSZAvxlN10de JVTDRt4nygrlw Wq3Xa3rsu3uqqTYdgzUBYtjNS/93ZKV1lHNC5PQ m/fex0so52QE7gav8zyju9R27anK7bXULiMpQrp5zrpXtw5qcA kyjt2LK15I3 xWL5dMHS5PDrEGhqZjuphte9lE1Pv4zUc2m2/WIVUwlgCpbeHZzV583YcUyCPJHSNztWTUcdN3a1vbXeH6bgELf91hVbACioIp2yN3GrP06442Dc fH21qK5mrlTSnHdd42rjTVOFidymZAFeghaofTSJcqjmKzb5zdl8q2gCnklNPpyZEoW7fZ/SCTlJ7b1aoyzceucd36O3rU60dFK3rpKVP0G0Jb3Vdwa2ss EpRxbbn/ZWD McAFr3cnVpqdfRtr5peB EcurMFoULMLNvrKcW1 BriSp38rZNPqwgb3QvFGxvZTHyINCAGC7aPKUwku4hlcxzRvCT9ooKjQd20Zel2P88dPNrnSume HRgJNH0XmOaReuOwqbi7 bjm4nbhJWtz3MxUkXnB5s7eLKZhzuWehquseuScwmLtq1D2cqaXHNnlI6ISeri26hlNbuO9h0KO/4PjrRMjtJUsEzoRlCUpIdShBjnxi1zX0GO6P0fhHH29 943NdkgppSc2Bkqwz4S6yTJv jrnOmrap 1lgArCzttPkaYdEH2Wa/XcV0sVNx scrJtZhWK48iLumsO4pFc3bzF3WHwJqpmEmXZwe5gmDXqcy0dbOx4pWLgOs 5Cpsfd6MWs9kHsTYqxjK/105POJN8DtVxsh1fxSbBrErG865F3/BCVxNgyRSjpTqvJzpsoGdXZZ3Jxd4AeUht4lziuwoX7QrFNsenpb0SZ/WIFs18XkBa3hH3E9iEK3RlcGf81PfUozzJ5NvydxOafO7FPAthn22nytEu8Nv2 uxSmg66r1S0jMh3zvHiVA8S1/TVNFdxFUtdShZJ0hE9d3LUIfqRXMNmzymPm3J3bGwBQv/Y2Pr8nhpk5G1FyRMP45w7bfX7KllnjiUq7mT07wZmaYdkaYZen10Lby6KH/0Zch5xw9r3ujOuqHvq0K2bm4fKWjoaeoVS3qqVIpK7DOx2yyN6wzsqxW3nbTdH45ZN1 hLm6cWIEmZ2PpFIltWuEv7/RzxyejPNPNul soucZ2G9mMjjXd7GyP8LZE0mQA vj7SPny/VT 6zuQ Tve6OlT6ekIsv0Wt9JkVpgAYBXsEMFCl8zDDeEnzS0WrjjoBpWNvNxya2vI9y6nqgRno55Xnzih dpedFQWIGNdgytvZqqPeOTRtmf8Jvmuks2M62mdqxm4KF/7Gxm7sjYS EUd7vf h4XCZmbmn7hPfLsqFtrgoHpl9C5ElWeccPq0n3o25frr7va2tha/3tjyP6p2majBUIahX2mfhtln5s2QLXcpyro6m9FT6350hbLlOOaOySrtkXlqlJ1vy/yKeO7fA1kU/uy8/c1lGmr755l OD7LR9raR/DqgrL9e1n4zDROwrESJ/N Yd9QEo4ldS6Ynt369hu1fOZH7sIPcEjf/lq42WB4ffSxYn4J2lsOd yFm/2tmk6SIjHOskyv9Z00iU0yAeC1zAt6fn52r96i0Vxdj cq0XB/F7Wu6ewulVTOVcY2f7sRyGv7 8y6ttk6pmOm0VbFogrZ1D6928dKdL8ttj7ZplN0vyiyTK/1HU0VsGO x3Ukr7edv5RH/MrZ1/jR5KkQ 2z2fM9zj7Ou6ewq96Nb4SY3SLHtfYZtlm5T8dnxuLvfw1jebSy4PhmnY5rP5X5wRpFleq3vWOZO RPipY5GYAMAWuIJFbpRQba1Q crRdU1n95jatre44qVtb59Z5zYrWkvrl14TbeOkT3PJQ1uNtT6b2qd3 1iZzlUZOFCDXmx9ckxn2p rIoXavo151or7Isv0Wt/x78vBr0ZjgtXIX8ohfuXsa/wO9D/qJJXby8uLHB4eur8AAACqj/ylHOJXzr7GjyZPAAAAAAo70Lde3GsAAAAAyIUmT1tC/AAAALAPaPIEAAAAoDAKFAAAAAAKo0ABAAAAoDAKFAAAAAAK28sCxZe ei9fufx19xcAAACATdnbOxRf 6M/ca9gjaVzcCCdsftzo15zXnnNZHByIAcnA/Vqe8YdtQyVC5CNzclgm5F5K9Z1jFT5WMvKHZNuJcyxsTg 0z5DMfuwzxTx uf LOd59ulV1nVdyjGd2UBO1DFycHAi 3E5tMd8dH3iYlI83jR52jXjTmSnmA1O1Ht6ZwkO/h1iNriSYaMvF033hhP73ZgTYPw84g 28LyyftecWCPjFbjwxcRo3VbH3F28Fp9tdnlWybYNatK9bMukd61OPxmYOKvpJGyg8PaMnqC8k9 xyWLWtV8Y9btsn7g/hbRQzuAVKmq8/Eci6n2uR43HNx7X6ZLFucTHNfKyZ5eos9ocsCVJ NXl/7F5GpH0WlJ6YuXh4y564TwTFboOU9c86fuyymmUK78vL2AfZYye4L2Sbd9X2maT9nCQ7xO0fabH MNI6T5fxipe8Xdp5px1L4PJvtPLfc/tmvS5FpBRY4x3TubmWijpHp/F66NfemJ0eMtfRlirf 7zTlZj6XUXsivWv/ 3ExyZkH FCg2Bdm55 L/lkRb7hfHAkzubudSOPsg9pVPPYgr/dE lP/90bSHrbUDhl3IWvLyDf9aV kVw fZOLmpQW/a3bsesxJKGY9biIXvjLUwXKvpnvfDS1fgrSTZWLMdWzr0hPf59MzuT3f9gUyw/ZrnqqxhvIp9UziLhCtofs7SicRraFvfiN9gqr7LlZ6Gi1RIyyWR40iw1bCRcsvdV/Pw 0L3nT0AkgjeDwEdr5g/MwQ2Y/KHCMxch/XzvhaepO2tHVMkzZmhmNt9vSgxjuSuv1L7J/2r02pHzXcq6i0z5qnamUnPQlcLz2zO1GhkvZp1pNJ3vNjkfOpj64R1cdTe1RwX3YC29TNO5CYV3 WfyXJslZXz3J/HyqS6jNXn22zjxMhyLs2yXyTSy5XlWrhi 2e4LumEOnj8uf3ff/LNdH0TmT6qk8Xx 9B kj/GmZYpZJPfMefPh6dg7ONikjFOYRQo3gJzMW3I2Yfl4TEbnKuThE6ewiVwVZJVWVBD7UytlB1Yq3 Uv1U4XOsnEzCtO80LPYyK3dxs5A2/ZVPT5KHDRrnXlfhMXshJit5/a/jovS7twLPedqfTj8juVHF2pc26jf6Gm5jRvTIFhcnvnTmb24u5PRuw oc93 7NPlDlGVkqZzviTTk5P5cZuzNw1TZ64C vx xXLbZIrl0C7pgMrTiVRkYu5T9Jn5iIYvaGkf1adbyRN7zY7nz6Vg6KhswNaJrrT1pyoU QCe3sjjNVnWfQaKV51slyzhFldsv1nUtXHVdGst1TxWU x99x5/b/wPLvPr6liR/jLMuk99rfccvLibF4rR3BQqv78TnP/vN5n/oa4i mB7L8pxua6mkfRm6 DnqgL9UO1O2nTFY xSdV7ptXGgizQ0W7SXt4F33zXimNkLfTbGfRW8HJ5s8Tt2rZIHblHG3 EPLpodwXqKXUy9XYFqrakR9wrWHphYjZdvXuvcyj7sV7Jk qohFt62Z7uRRXWLenjLHSJLk6YzF5gAqOXU1TVd5q07dfmd2f13TZfapurqg6j/V67jk2GsKcHUk0/mNuiQpOnmYT Xoyu6XiTm1klaLvbqGW7MXwei 653vTu0yrZT3/FjmfKprPVtqC7VltIEKh1qovVjl9pkczPnYTNNOy5zvFudMV3scmkf4XB/3d5lzp2amueo64R0bBaa/8nyrZBmnmDXsF0qWa Eqqdel2ZM8qP/C1xy7/wdr2ldd35LkjnGOZVp4re ExMWkSJy4Q1EVMYnjcih3K9XUGC1uQWuu1iDlIm12JrWbplUWjzv6Qhis7YrOK974uqdOvzE1hp Oe1H3rHjgxbyRGtnZQ lN1stC3CnXyY0/4zRv1d6gZTLbmCF7tgL6opiyX rz eOnmO5K2Wvdz/8j6IqSW7djXLEgvj744hy9YujnRclq6BmUorbgCik/c9tPsiSh926eqH6mpRq2cbkJBZJeVOUZWSZzO JOap3ds2SR7eWfIJ 1YcwUBvRu3vf3P1LS7Y8FXk75IxkwLNvVZJDH2mpaNRHRiGZ6Xoo8179gyF27f9NM CzPNnsIXUVMr75KiTPKeH4ufT 86OuHWzT1cAWzNTPMjn6rsM3nppN3fhHJ6dCV1XVJZgyLnTr V1wl9Hfh0Wnj6W5V1v0iU8VqYQer1w1w7GhI5BGOuRaWvb1nlWKaF1/pOSFxMisSJAkVVmJOxPRlFhwyl4tCJfnnw2jasKktbXuRdiTY/dSL0zaMlo9CyxcxrIfTdoTr99n1NYhRzYvat91SdiALt7svGKBOd/GS8uCfGXC qSnzMxdSrtYo5mbZV/BYX2fDJeiYD3W5IjRO4DntNh8IdpgLNJdQ66CpRf1MHY9X2c8yJaCKFK5VqH RMX0Ou/BdNtz6JVMHO7hQxnUVDUuK WcH4xc 3zDESI89xbXj7zbI23vYtCO4LK481wybKC bC5avddrWuy7a7q44b2zFQFyyO1bz0d0tWWkc1L0xC679Vb2rls xXnrznx6LnU7Vte/qQWEPhMtZsIOc66V7cOanAPpMo7diyteT 64U v5ocfh0ynTtL2PT0y0g9l2bbL1bJdC3Mcm4te13yrJqOOm7santrvT9MISFu 8XFpEC897bJ0 c03m/zdDn7R8J/vUBLv2Xp3iswhfCHw1RK7WIXtCEOp0pU4w6uwS38zH8S4a WpE8rI1KPrCGH iS7Eq5l4BaHEyzXOr216Y405qthY2VHMQThJiTwZltl8eulBm77gsL1Z1eTzWyx2fXHg1 f2PGZp95NnX1yq0D8fOd80xzruucbXxpqlCen l2GPNJMqhmq/Y5DdLwuhTuEIji5p8MKVZ71Z9SifkJHnPj0XPp3rb6nODPk7WdSD6jznvzmugRiLGVvaZsJRjy 0vG7tzmencWcKmp19G2vml4H4Ra W1MMu59RWYVgG3cjZd98NgKqJ5o2J7KY qYLeJaz93KKpig02ejEDP/rroO/Bp7RpXNcvwLibBWmgn/BSBOOoE81EnXFlqO7x29xuKkalBUScxQpPa18bVxX0idTU52WrT2jsTLpypnEhaRuv7XwaqOXw8 WRWqOYfco2Z9DNBbZ0EdmQ0sdIFqHp2Dbyap6uaZEddGFN55oZHgPojjXTLlx3FDYXfzcdfQfJJ KzuWDMXJ11werC1iyubcbjHBPua8W3iol37cKaSFnespXRCTpb3/FjifOqdGxILnglNDpKS7FCCGNtEc5v7DHZG6f0iTpFrYRZJhbSk5kBJ1plwF1mmTX/H5FD26YqbOPdSoKgKrwQfO5RJtOKe4 7eG17Fn TdLb9VtXr29qf/MY3ZnxmfjbtF712INxYjy9zSNzUoaz7Zaeagz8HVesY9ZcE8dSOcnIQT1Awn0uj2c/KehDOJrym2hQmR9mi/ChOezR0jcdPxOgfrZlah42PlRTx4rOljwdxh8SWoZhJm2sFt5RXI55ePtnY8UrCY2Q6z7kKmx91 o7Z/X5E6trOmr1TiTXOUJL7aZz48lz6euGeOwFUq6kxIFrdAxWp19Jhd3Lkx/ luJ46rAuTOXTU9/I8rsFyvkvRZ60uKWsI/YPkShyreV8bfNj/M 4SgizzJ5NvydxOafcTEpsJ9SoHgDTIfA0NN1mjcjc sycutRl2B1LZPa6T6uugJ47ZV9NbBx84pnH3W2aN r5xtKROxj2vQoG3zcqr7F6a KCB9EaRf1JHqagXVRCdV5Qif0RMvObIGaEjVtk4CHY6JrARcjuv4ISU d8cRsPy1yIjJt5cvUMOqE0j6L3L9P6c68tjCRkmCWnveWlTpG0kWmY54Xr IZt5OZpgruIpnnWFs017DJY rTltwdC1uwcOcVPS/d3O3SJiNrL0jE7h9es6eW7auVp7mTk/f8WPZ82rzRnXVD36/Zp0NFChp6mlmO7xiV2GdyH9Ouf5mvVtyriPAz6 Yr1MWNE6vIuTMs7TqRd/qbOuflmW7W/WIVPc/S10Ir/brk7SPny/VT 6zuQxTuq7n 65tPkWV6re kiC18xLy3CgWKNyC t75tkjJqhzpDqYufaXeb6RGG7sLta7aU/GSAcKerlgx17YeXYehaRZVy juI1XvHpl1lsSTEd9vdDeEnyxi6dlC8RxyqQZ3sA7Xli4u6/TyQ3CdR05ye3frWxfthn3xPcjE1vyP7VKfl8j2YDrCRmKhY6ief2PFUbHUt4crARbefFm6eYU8s S8tHLNpHQurEzf7tJUNejbQ3qPGO1bYO7FOuQKkEb6nrYXlyD8 7uIz7Q6rwPqyGUJIVlecYySc8HXPnKvFCbS86KguQccZjzewHC7ZPT6Z27KZg4X9s7AYKEk7S/uH9/oeOx2Vi5pa2T Q9P5Y9n9ak 9HeHfX/XoWt9bc/juifpmkyViCoVdhn4rdZ rFlC1zLca6Opvbuh0 t 9EVypbjmDsmqxQ6d4akXCcaavvnmX7 823GcXKcSzPvF/YNJeFYynwtTN/ 2qrrkj5Wls2W1eCOvXCzv1XTSVIkxlmW6bW kyYcEy3uvZXmBT0/P7tX1TL73a/Nf/Cn/sO88/P/xb1TTa8bv9FcHf9zdWJzf2/Sa84LmrqwznU1/3pEt5 ZfqM/38YW3ea8N2ddxwjH2n7uH5u0/X1mXdtsHdMx01jbuXM9NrVP7/axsq7rUrbpFN0viizTa31HUwXsmO/FnROKnScoUGzJa8cvfkfajNecF9zJZV0XxVF7LtJWpxOPPbFs55q7zXlv1rqOkbd9rO3v/rFJ291n1rfNiiZVfms9d67FpvbpHT9W1nVdyjidYsdIkWV6re9Ysft7JCZK3HsZUKDYktePX/GdML/XnBfWd1GczvuNYK2EObFuaUNuc96bt65j5O0ea/u9f2zS9vaZdW6zzRcobJx0Q47kIX/SlWZT /RuHyvrui7lmM60P2 Y7duYZ62kL7JMr/Ud/74c/Go0JvHvZXOg/1Ezye3l5UUODw/dX9XxO7/3dfmJX/gN eJ3fU5 6ae 171bPVWNHwAAAJDH3v6w3ec/883mfwAAAACbc6Cb3rjXe G//u4fy/W/ j/yV77rW Tib/159y4AAACATdi7Jk /OftD elffJDv eK3ys/9pH5EXjXR5Kkc4odtYv8rh/iVQ/zKIX7lEL9y9jV /A4FAAAAgMIoUCDiS1 9NwMAAACwyv51yv6G65T9WTplAwAAAJvGHQoAAAAAhVGgAAAAAFAYBQpgbcbSOTiQztj9WQkzGZ wcyMHJQL3annFHLUO1AqPY2JwMthkZAAB23/71oXA/bPe5z36T R IMxucyIFK/gNDTMIbO97BicTloLPBlQwbfbloen/HfXeZwJokO bz3Hn3uKO F79M67JqXdQYtuCy Gyzy7NKtu1Wk 5lWya9a1UUBAAARXGHAm MTXzrPZH dC76Z1jsMJL2sKWSzk5MctmW0WK8uUz7Ir16OPGfyd3tRBpnH1Sa6qMKGFPfd/Vw3/WNEfP5jSuQrIdKmu/VdO 7weVKklY4SVwXHdO69MT3 fRMbs 3e1ck03ZrnqqxhvKJEgUAAIVRoMCbMhucS2/SUIWJe/Hn9SqzlBuVcTZUctlacYug1r1USajI0J Fzu7kVk337EOmtH3PTOVxosob/sJUrSv3WQsxryR2u6ntfqreDL4HAADyoECBN8TeRZD2Zagw4agk NJmnJmawDSO6u6VLk/cykSO5X0FyxOmaZW/D8VsICe pkBe cmM1xqqVxNTk68/y9O/YPI4da SBZoixfXrCC2bHsLlO72cermCzZri7izF8283rX7UyLzNAQBA1N4VKL7 R//P/M/vULwxMYnocvCa8Lia9FBC6WeSS3mQp5Q8etxpyVCCdyOmdsKSPOUEk57UfcsaSOAzrVNeY nY9l6uKdBUjq5sMt68UX PdIlK38GxzYQCzbMSNeWir5Ny3WQsZbnU5/XHSzffkbTVup/7R9bNrdSyHY/svM2glmfYihZsJr26b1pT6TeG0lrR8Txuu2m198fq3/RtDgAAknGHAvtBN7HxktDI4Jo3zZ5U2liESlZ9yXxLRstpGjN50hM fh9t4hMqMPgTbpPA 5ZzqpJynSgvkucs61Sa7mNxo4oEGaSsS617L3PTZMy7uxFTsGiruC06iNimRpPbO1cImMngamjG CfQhad6ILuNEOk7r/hyLEW3najUxuQvMc9V2c pHZrkz3GABAAAxKFDg7ai9F10XvVq46dKyc69O nVN 4puFkuRjszJBQGdlJvkeZFkb4K9m6ALLrnvcqxaF68AtChYZG G5N09ap9GizZNXfII30EIF95iCwUlthsAAMiMAgX2Q6bmQXXRLZrS2vqvarrkJf3Dq5jmNQ9P6y kITB5Veq1spMmTXQedZI/a3t2EPIl/BrpgYZpO5Xh60sq7R X6p6RuNwAAUAoFCuyHTM2DamKayw v4pNxlcDrVjeRR7 GmBrzSU uF8mym25prumUV6DZcJMn0 TKPdlq7Q85MncMcnB3j KetjT pDdKqJAXLrxNH2Wi5pjSPSZmuzkZvgsAAJLtXYFi8cN2n GH7RDVvBlJO645jr4bUO/JpNGXj6sy9eaFmBY0vtpu05nbu7OQhZ5fqBOxfaStSPtyg49b1R2f/e1 wsl0kf4EepqBdZnJ4FzFUkU6pgVTgmXH7kCzJDVt/eCpSEx0f47FiGPp2JHSC1kx202b2Q4wlXxCFwAAu4A7FHhjmnIz1819gh129dOFzJOPMv12Qk0 nOkCxLITcO4nBdU yJkEOznXe8emzX xH7ZbPurVG2If ao7OYt GpMbTyXi7ZHvbkfNPjpXP1lJf56pz4Ga5vTs1rcu3o/cZezs7ZimWCP7VKfl8j2YJ05FYtIeyfToyo3XMr9QvuyknSS63bTCT gCAADGwVy3nyjg5eVFDg8P3V/V8c9 9b/LP/ 1/yE/9uXvlr/7Q3/JvVs9VY2f9qWv3pv// 3Pn5j/q6h68RtLRyW2D6pQku1RqyhK/w6FeWJTsZJXSLHtVuXjdxcQv3KIXznErxziV86 xo87FMBauKcnbfQJTVi78ScZSlsuKQQCAFDY3hUovv4NftgO21HrXpofa4t0 kVF2daPQvcjXNAgAAQdyhANbG9s9YS0scJDJPp1pLkPWP mX9NXAAAJCEAgUAAACAwg6en58Ldcquql/59/9X/t1vfE1 9Af jPzg937evYs8fvwf/675/5/8w79o/gcAAACS7N1Tnq5/ZSq/9h//t/z0j9bkh77v29y71VPlXv485Wn/Eb9yiF85xK8c4lcO8SuH JWzr/GjyRNQ0N/52f9kCl/ejykCAAC8RRQogIK /kf2iWIAAABvGQUKoKDPffabzP/coQAAAG/Z3hUoqDXGa/F 64R9DgAAvGV7e4eCH7YDAAAANo8mT0BBn/ MLbTS5AkAALxlFCiAgry7YF/7BgUKAADwdlGgAAqiUzYAAMAeFii85M5rjgIAAABgc7hDARTEU54AAAAoUAAAAAAogQIFUNDnPk MfCgAAgP3rQ GeuMPvUGDTFk2evkGTJwAA8HZxhwIoyP UJ2/4/T/4BncsAADAm3IwV9zrXF5eXuTw8ND9tT06efPfjfiJX/gN Z3f 7r80k99r3zxuz7n3q2eqsRP82KW5nuK3ycz957P7avm3ETxcWfuaf/rZ5rfc73Rk7rvDwM3/vr8rJ8Z9zf1VTlfa/XUT8yiF 5RC/cohfOcSvnH2N387fofjFf/3f5EtfvV8MXmKsk SvXP66GfRrJLv423X3KtmPffm73au369u/8Bn59j/7GbOP/a8/ OPYwoQuxFa9MAEAALBOO1 g Ps//Jfdqyid8Omh8de 4N5BHJ0Ep93N0Xcnvqf2re6vt 0nfvidexXvy3/9L7hXAAAAb8POFyh0c6cvf19yEvdtX/gW ZEf E73F5Kk3aXg7sSSvkuRtL t2hcBAAD20V50yk67S/Ej3/ dPPEpg6S7FNydiEra377y/d/BvgYAAN6cvShQJNUM67sT1BhnF3eXgrsTUXp/C8eFuxMAAOCt2osChRaX Or3qDHOLnyXgrsTyXQzOl1g9TSOv2CaQwEAALw1e1OgCLdt18keT9vJz3 XgrsTycJ3KXTTOgAAgLfo4Pn5udDvULx7l/60m234zJ/ dvmbP/4vzevf tWflf/5W2PzGvn8jR/7ZfmTb3xN/vO/ AfuHSTRsfrGH/6 /Oa/ Ufund2hjn33CgAAoLjCP2x3cHAgBb 6UT/zy79tHhVbpR9hi1PV Gn6dxZ0DKvc3Kkq8fvN2R a/3etaViV979dwA87lUP8yiF 5RC/cohfOfsav71p8uTRzVC 8gPf4f5CEbofBX0nstFxIlYAAOAt27sChU6G6TsBAAAAvI69K1AAAAAAeD0UKAAAAAAURoECAAA AQGEUKAAAAAAUtncFitngxDwSczF0 C2KPN5q/CLr7YaTwcyN4ZnJ4MR FhuacUd9diKRry0sv2 H4LhJy3FwMlDfBAAAqJ69KlDoZKzeE lP5 YZ /P5SNrDFoWKjN58/Bp9mZr1Xg733Zr70BlfS2/SlnZbZPgpb1x0YaIuPfHNZ3omt fhwkJbRr5lMMN9V0JLAgAAUAl7VKAYy3VvonLCj7LMAZty0W/ozE99inTEL4vxp6HK90/l5tSUKHLGZSqPE1VuOfuwLBzUunJPYQEAAOyw/SlQzJ7kQf13/D6YmtXe61/MHkruyuS3hvhlMBZbnmiqstaptFVcrpLbNiWaPE7dKwAAgN23PwWK6aNMpCFHdfe3p36k3sVKxG 18SdVhGiLLk/ouzf6JsXk9i5H3wbvjk9L0vtZAAAA7I6965QNFDbpST3QGdqf9M9kcGWbO5nyhNK0JQq5y1EwqH XvZT7tq0LaRHr18Dw8Q2klLgcAAEC1UKAAPJFO2ffL/iSzO7mduOZOHtPsaSK3eUoUmu43oae/KFh0Qn0xwp2yfcsBAABQMftToDBNcyYSaZ6e1JQHQcQv1ezuVsVBt1by3zloyVC9N ldF u0rgsWo7Z6QR8VAACwu/anQFF7L7r78MNTsLZ49mS6GkuorzHCiF KmdyZ2xMj310DN5QtENBHBQAA7Lg9avLkOsn2zpftzWcDOTePQr1YtHtHEuKXyPz2RKi5k8c0e1 JFiiwlCv2jd4EfqJvJ4Lwnk0VHbwAAgN2zV30omjdzGbW9zq5qsL/SFv1xMsQifvHMb08kJv22IBb8TQpfDN1gfnG7eSPTs1tfx2/vR 5uQgW2cKdsNfBL2QAAoKIO5rrdRgE6ySn4VSjErxziVw7xK fl5UUODw/dX8iL JVD/MohfuUQv3L2NX485QkAAABAYRQoAAAAABRGgQIAAABAYRQoAAAAABR28Pz8XKhn5rt379wrALtI HfvuFQAAQHE85WlLiF85xK8c4lcOTzkph/iVQ/zKIX7lEL9y9jV NHkCAAAAUBgFCgAAAACFUaAAAAAAUBgFCgAAAACFUaAAAAAAUBgFCgAAAACFVaRAMZbOwYF5lKU 3dMbuoxizwYkd72QgM/eeelNOQtPwD/7pLb7vDSkzi51X5RC/siLr5IaTQXipZzI4sZ/Frva4oz47kcjXFpbft0Nw3KTlqHr8AADA21WBAoVOsFoio7l5Lr4eRm2RYSshYVOJ73lPpN1uuD ecWlfu3ff9w7Svx2vLadOOphO2uvp f qNM5L2sBWfFCfNq1KI39o0 jINrf99t Y dMbX0pu01TqpGH KC3Aava3q0hPffKZncnseLiy01eYMLsf8viuhJQEAAKiEChQoatK9n8uNS1i15kVfdAr68BRTO6 wz1P5HuThyb6Uay3VvovKzU7GTt3831PeXeWJTLnTSPPykPvXLO69tIX6vafxpaOJxc2pKFKF1X mUqjyqcjbMPy8KBLshRWAAAADtsp/pQzAbnpnb4MlxrnGA2uJKhSq37F171 pM8qP O3we/X3t/rP4dir/COe 8dgHxK2sstjyh4tE8lbZa56vktk2JJo9T9woAAGD3VbNAMX2UifovkLia5jMTaY9uXG35KjO5u9 W165fL2nQz3YYc1d3fnvqRqdFfyD2viiF mzH pIoQXvOvpuibFJPbOxWprLy7OS1J72cBAACwOypYoBhLpzU07dm9inFtfN2TSXsUaNqTyrR1d7X JOeWeV6UQv8ImPakHOkP7k/6ZDK5scydvtZq2RCF3OQoGte69zKe6SdpEevXwPDxDaSUuBwAAQLVUrkAx7rRsM5uPvnbl4460h m0ZZc5QXfIXSqozyT2vaiF JUQ6Zd8v787M7sTcsPEXsEyzp4nc5ilRaF4H EXBohPqixHulO1bDgAAgKpRCUshJb6aaNQWNd3GvK yOj/7fvLQiH7BvN9WWVnAtD9vxL1vxrfzzT2vgvS01o34FTftN aqQDFPWjrzeWhdlkN7vgiJLxaZhGJt5 Ob3oboeaK45 dn9wpFEL9yiF85xK8c4lfOvsavMncoxp0D0S112qNobWzzxl9bawfzOFNXoxx tKd5Es irbtP7b3o7sPhpx/NnkxXY9FdDvLOqyqI3yZ5/UlGkXXTJahwh/Rcwv1PAAAAdkwlChT6tw1sMhx8/Gkhs4HY1joXMR2CXUfa3vmyTbrrQBw//m4gfhuW1p/ENHtSRYosJQr9o3eBH6izj9adxBXeAAAAdkQFChTutw4U/WNsthNq8c6opkOwStCSHleqa9BHba9DrBrsr7TtaM25Rvw2LfGOjWELWapE4esH4YuPG8wvbjdv ZHp26 v47f3IXfhpWOFO2Wrgl7IBAEBFHcx1u40CdJJT8KtQiF85xK8c4lfOy8uLHB4eur QF/Erh/iVQ/zKIX7l7Gv8KvjYWAAAAAC7ggIFAAAAgMIoUAAAAAAojAIFAAAAgMIO9A9suNe5vHv3zr0CsIvUs e9eAQAAFMdTnraE JVD/MohfuXwlJNyiF85xK8c4lcO8StnX NHkycAAAAAhVGgAAAAAFAYBQoAAAAAhVGgAAAAAFAYBQoAAAAAhVGgAAAAAFDYxgsU486BeURle OiM3QjGWDqpn1uRaZ0MZOY k9lATvyfhQb/9MLTORkspuJkWx4tskxJIxZE/F7LTAYnoWUJD27ZZoOTmM9PJBqGjnq/o6IRx8bIH7v46arBv50AAAAq5nXuUDT6Mp3PzXPvveGm6T4ziVxLZLT8bNQWGbaiSWxr2FajeeO NpD3pSd1LtmpduV98thym/Yb6sC2nbn6R6aiZTXr1QGI37sQtTzhhtAlo6yG0bssVWx/i9wpq0r33LYdeaGlIf p7L7Bs/ljqOIn06skFp yC0zXDfVctHQAAQDVVoMmTTeT8uVrzoq9SOZGHJy8DncnTg/qvfSrL0ZpyoZPdyaNM3TtRY7nuTZbfmw3kaqjz84vldJo3JuGd3N7ZxNq8Fbc8E7m9W2bEs8G59 CYq dt6skf8qqDWvVRFAVVw lS6RAEAALBTdqQPRU3eH6v/Hp4WSatOku9ufclujNngSoa6lvnCjTF9VGmtyPH7YApbP1qVWFvL79l5BxLrSiN r6VxVHevAAAA3obXKVDopjW NuHRNvchMYlr88Y10TFt1XX787qt4Q40Q/HzEuZL6XqTqR Zmvuwms22ZVGhHzCTwXlPJo2 eHm1WkB51Av4eB3qdxDTjn4diF/l6WZeuvB19mEZcwAAgDdhXlDRr077DfPdRn/q3gkbzdvqc2n059Ex3GduaI/c23FG7ZhxpvN Izxt95405stF8t7zhraas1/cMnrfCY8bT0 3COJn6elulFl//zotedsgMMQF00wjaX1sDPzbMXa6CctQlp42int fnavUATxK4f4lUP8yiF 5exr/F69yVOtex9pc /n1fT2Pwbb1tsn4Cw7rOwrrjcfxTgWYysI39fbXimu5v4NXUe7XidXk8Vgskx7Ks0A920J32H6Sl xg3fGWicffAto/rOpZ7OUDbZjJ74VcWy87SOpQrmGjpka8vp2uF eYcIAACggrbXhyKmzb19gpB sk4oiZoN5Lyn29xPF519dWJtnsQTl8iNr8X0Jb6M6/DblJtAwjaXi6MHld0eSVLr91r3o iccdK7TngEqJPQJGgjiF9leIW84VXc410TmoLNntQnwWZpAAAAu2gLBQr3xKFQAmqTYZXEjmJqZ BM6AycloONPakKyfNRpOtdBOFBbnmCxzHUx/ZDDdwnMcjZks/1yiV8VNU9ViWLSk2t/icnEdyKPcb3Vd3hdAQAAAuYFZfrqtD9vhNrye 3E/U3O494Liu8XMGrrNuahNup6nmrc5D4GfnF9AvS8QtN0/QkC04z0MXDLmLwSAcTvFeJXhlm tD4U4b4RcbHQk9ExDk3HxTi8rvHT3YyNx2/P0Ya4HOJXDvErh/iVQ/zK2df4bbZA4SVZOnlaDOGEySWSsYM/EYsbL5p8xSbJCzHLE5PAegm6f4jLcyPjZUyGNT3 asQviR5/o3IXKLz3o98pHA9vCBVS1kFPF8VxQS2H JVD/MohfuUQv3L2NX4H h VXOSmO QW/CoU4lcO8SuH JXz8vIih4eH7i/kRfzKIX7lEL9yiF85 xq/HflhOwAAAABVRIECAAAAQGEUKAAAAAAURoECAAAAQGEHure5e53Lu3fv3CsAu0gd4VAABAcTzla UuIXznErxziVw5POSmH JVD/MohfuUQv3L2NX40eQIAAABQGAUKAAAAAIVRoAAAAABQGAUKAAAAAIVRoAAAAABQGAUKAAAAAIVV pEAxls7BgXmUpTd0xu6jGLPBiR3vZCAz9556U05C0/AP/uktvu8NKTOLnVflEL/yZjI48a1T3ODWM7L ZjiRQXgFxx31fkdtnTh2m534vhQ/XTVUPnYAAOAtq0CBQidyLZHR3DwXXw jtsiwlZAUq8T3vCfSbjfcG06tK/fu /5h2tfjteW0aUfTSVtdfb8/9cYZSXvYik Kk ZVKcRvPWrSvfetuw6iNHzrqYYbFwSjrUK /GzaF nV0wty2QSna4b7rlo6AACAaqpAgcImcv5crXnRV6mcyMNTuF5WJc86Q 1/lIsj91aqsVz3JipHOxU7eft3Q32/u8jQmnKhk bhp1BNct55bQvxq4Ja91IVBXQYSpcoAAAAdspO9aGYDc6lN2nL5TKbTTUbXMlQ1zJfuGx79iQP6 r/j98Hv194fq3 H4s8F885rFxC/zWsc1d0rAACAt6GaBYrpo0zUf4HE1TSfmUh7dONqy1eZyd2trl2/XNamm k2JJLz1Y9Mjf5C7nlVDPF7deNOyxS zj68rQIUAABABQsUY m0hiKNvngV49r4uieT9ijQtCfV FpUTittr/F/DrnnVSnE73UMpeXrON2Skczn976mYEUFpxvb2RsAAKBCKleg8Gp6 x99HVHHHWkN2zLKnKHOZHAVTaozyT2vaiF r2XZedp0XB 21tAhW1tO1w7rKKQAAABsTqUKFOPOgUpG9ZN1gknU JNKbkM1t3VdfT7pSV299j960/Bq1y9DT8cxTXMm8jh1f3t8TXlyz6tCiN921Lr39slaV3GPd32QSN94LaE/CgAAwK6pTIHCJsMqiR1Fa2SbN/4aWzuYWuFGX6bq9X3oCzapXT7qdKH2XnT34fDTj2ZPJrUTndvlnVdVEL/tap6qEoUqNF3771IkFcC0pP4oAAAAO6YSBQr92wY2GQ4 /rSQ2UBsa52LmA7BTbF53/myXbrrQBw//m4gfhXQvBDT8sl/l6LWlUt956IV6gehYnZiNpivwzsAAMCOqkCBwv3WgaJ/jM1rJmOH/B1STYdgSX5cqa5BH7Un5kfIzDzsr7TtcM058auGmnw4UyWKya3c WKu4 X96N1iu6iYHesfIowt/YU7ZauBX8oGAAAVdjDXbVIK0IlOwa9CIX7lEL9yiF85Ly8vcnh46P5CXsSvHOJXDvErh/iVs6/xq9xTngAAAADsDgoUAAAAAAqjQAEAAACgMAoUAAAAAAo7eH5 LtQz8927d 4VgF2kjn33CgAAoDie8rQlxK8c4lcO8SuHp5yUQ/zKIX7lEL9yiF85 xo/mjwBAAAAKIwCBQAAAIDCKFAAAAAAKIwCBQAAAIDCKFAAAAAAKIwCBQAAAIDCNlegGHfMoykPOmP 3ht9YOvoz3xA7mjLuBMeLnV7qvJyUcSLzcEN41Mh4JwOZuc/CZoOTleOkIn4rx1mvmQxOQssXHtwKLZYtMJzIILygJmYdtbXi2G144vtS/HTV8GoxAAAAyG8DBQqXmLWG7u8w/XlLZDQ3z8HXw6gtMmyFE1A7ndZDX6ZuPDPcNN3n2qp5aVnGURqh ajBPyudDLeGbbXY3ucjaU96Uo9L9mYDOe JtNsN90YexK9c/IqqSffet/w6qNKQ/tT3XiB2/nWZy7Qv0qsnF yyC07XDPddtXQAAADVtPYCxWxwLr2JTsSm0o/NB23i5s/Nmhd9lbqJPDz5a2v1dFRylZJMrZ5XtnFWm8nTg/qvfSrLxW7KhZ7g5FGm7h1LJeA6G 5/lIsj91YOxK9c/Lal1r1URQFVsPtUukQBAACwU9ZeoKh172U v5duqSrVmdzdTqTRv/AloFFZ5rWe5anJ 2P138OTWjKPXcZgkuwl4G25LDhD4lcuftvWOKq7VwAAAG9DNTplTx9FpZZy/N5LIqfyqN94vJaTQHvymHbq66Kb3/jm5W/brjVvXBMdswy6/Xvd3gHw3yowTXUm0h7dpCbya0f8tm7caclQGnL2YTcLQgAAAEVVoEChkkvdPr/Rl4tQFjl5OJKPi7bkusnNRHr1pE6uxTVvfO3V1TDtN1R XA8lxU250e3 Vereq vkUSKJ7/i6J5P2KNAcafOI33YMpeUrQLVkpNa97J0cLTjdjRYCAQAA1mDrBQqvZrf/MdrWv3H2wfdeTbqXppW6bLqZum7mo/vkTm7vFk107BN4lp2hddKsO0Ivnno07thOx6 cDRO/bVHL6itAqZVZQ4dsbTldO6yjkAIAALA5Wy1Q2Cf/6A6/GZOm pHpfPxqvA7DrilOoz9d1J6bvgX28UomkRx/0nXuwdrluvqO1xQo3ARoHYhfNXgFqOFV3ONdH8TXV35p9qQ 8TdTAwAA2E1bK1DYZFg3e4lLhutypDJffw23YfoKNGTz/V7dU4kaR2pJlEgfBceXoIeb/ejB1Fy7x6ner7mamfhVS/NU35LpybX/LoVZv4k8Bh9jZb3atgAAANisrRQodPMXmwwHH3 65JrnBBI011egfbneJiCzgZyEfgvBPmlIz8o1I2qe2keChmqgTZt/9cnpK7fSIX4V1Lwwj9UNrGOtK3ozDFuhfhA6ZpvYFgAAANswLyjpq9N w3wWHdrzkRljNFc5VsznemjM 1MzkhGZlsqg/VbPK8s407lKBBM 84tb7rjxlsy8G301hyj9/TjEb6lI/NZm1FbzCMbTY2MSXXb7fvQ7cTEMbQojMdYJMShDTxfFPT8/u1cogviVQ/zKIX7lEL9y9jV B/oflVzkptu4F/wqFOJXDvErh/iV8/LyIoeHh 4v5EX8yiF 5RC/cohfOfsavwo8NhYAAADArqJAAQAAAKAwChQAAAAACqNAAQAAAKCwA93b3L3O5d27d 4VgF2kjn33CgAAoDie8rQlxK8c4lcO8SuHp5yUQ/zKIX7lEL9yiF85 xo/mjwBAAAAKIwCBQAAAIDCKFAAAAAAKIwCBQAAAIDCKFAAAAAAKIwCBQAAAIDCXq9AMe6YR1UedMb ujRip44yloz/zDYHRZgM5CX3uH/zjzgYnwc9j5jfu D5Xw8lg5j6JWkzvZCDJY5VE/DZsJoOT4DJHBreekfU3w4lEVtFsj46KfBy7PfxxiZ uGrYaFwAAgHSvUKBwiVpr6P6Os3qccaclMpqbZ frYdQWGbZ8SVytK/fuM/8w7TfUh205bdrRdNJW74n0p944I2kPW4GkWCfDrWFbzc6No2Y26dXjk2KViJ r6bXbej6bQPxeR02699462WUWafjWUw03LgiGb/3UMO2L9OqhQlohwema4b6rlg4AAKCaNl6gmA3OpTfRidlUTG4aI8s4zZu5 PO55kVfpXsTub1Lq7sdy3VvonK0U7FftX83 h lu8jQmnKhZzr8ZGuSVYJ7pfLyRv/CfUdp3pgEfHJ7F6opVom8zobV9C6O3FtrRvx2Q617qYoCOgylSxQAAAA7ZeMFilr3Xubze18CGp VlnCTH75O/NBtcyVDXMl 41Hb2JA/qv/B3au P1b9DMbng9FGl2dFx6kcqaZ48ytT9rdlEvi2XRRY8I K3WxpHdfcKAADgbdjRTtm2ZnvS6IuX60bN5O5W165fLhNtk w2JJLz1Y/Uu47/tY9Nmh/kyatiN011JtIe3Sxr4ncG8Vs33aRMF77OPuxP4QgAACCLHSpQuH4CpqNq3dRsj9Lalo v1Ti6tU7OdLX2Qc5URjy88neEVfPW7Xh8xtcqIW PAs2Iqo34rddQWr6O0y0ZFb5LFBScbmxnbwAAgArZoQJFsNPstP9gEq/4pwe5BDa1Bj6Jns9I2pOe1BdJXV0ej3UL WMxLXnGHdvpeKeyYeK3XsvO06bj rC1hg7Z2nK6dlhHIQUAAGBzdrTJk0pbux9NB RJ79p2BvbzatcvQzXwpjnORB79Dfm1SFOeptwEkrq5XBw96AbyokcZf9K17cGa5LqeoUui45P0a iF 66P7sJinZgXuynh8zbz8EvqjAAAA7JqdLVAsuCTVzyasy0edLtTei2nJH8rwZk8mtbO157Fsf4L G2QeTYOsnJvmTZT2YWupGX6bq9f0uVSkTv7VonurHWPXk2l86SyqAaUn9UQAAAHbMjhQo9I AhX4gzNWie0nqQtxjSxeaYvO 82W7dNc5OH58Tfc9qEtP vJxZ9ueEL Na16YOz6BuxS1rlzqOxf 3/vQVMxO9G G Du8AwAA7Kp5QVm/Ou03zLjRoT0flRyn7X3oM2oHvxfHjrMcGv2p 0SbzlViGPhc4mYUYpav0VffzkZPNwviF09Pd6NGbTWPxjywao6NZTRG9v3od7LGPm48M SIS1Z6uiju fnZvUIRxK8c4lcO8SuH JWzr/E70P o5CI33e694FehEL9yiF85xK cl5cXOTw8dH8hL JXDvErh/iVQ/zK2df47X4fCgAAAABbQ4ECAAAAQGEUKAAAAAAURoECAAAAQGEHure5e53Lu3fv3CsAu0gd4VAAB AcYWf8kQv/3KIXznErxziVw7xK4f4lUP8yiF 5RC/cvY1fjR5AgAAAFAYBQoAAAAAhVGgAAAAAFAYBQoAAAAAhVGgAAAAAFAYBQoAAAAAhVGgAAAAAFA YBQoAAAAABYn8f4grUA0bAP3xAAAAAElFTkSuQmCC

Thanks again for any help on either side, though if I had my preference, I would choose the second method to solve.

Gary31227

georgiboy
11-28-2023, 02:17 AM
If i understand correctly then you could create 2 temporary stacks of data within the formula and use HSTACK to join them to the original data, you would then use the created 2 column ranges to pass to the VSTACK.

Like the below and attached:

=LET(range1,A2:A8,range2,B2:B11,
road,TEXTSPLIT(REPT("Road|",COUNTA(range1)),,"|",1,1),
shop,TEXTSPLIT(REPT("Shop|",COUNTA(range2)),,"|",1,1),
VSTACK(HSTACK(road,range1),HSTACK(shop,range2)))

To apply it to your data it would be easier to see the spreadsheet, but you get the picture from the attached.

Aflatoon
11-29-2023, 03:59 AM
FWIW, you could also use EXPAND there:


road,EXPAND("Road",COUNTA(range1),,"Road"),
shop,EXPAND("Shop",COUNTA(range1),,"Shop"),

georgiboy
11-29-2023, 04:16 AM
Thanks @Aflatoon,

EXPAND is something i need to 'expand' my knowledge with :giggle (sigh - bad joke i know)

Aflatoon
11-29-2023, 08:20 AM
Excellent pun... ;)

garyj
11-29-2023, 09:27 PM
Hey, EXPAND is a good fit there. Thanks for that.

I actually tried both ideas (@Georgiboy & @Aflatoon)... but with the effort to keep the #spill array working, and the length of that first line of code, it gets confusing. EXPAND worked well, except that after adding the text ("Road"/"Shop") as an extra column, the same problem occurred in the last column - in that it never changes the color to 192, even if the value in column E is "Shop" (as per):

IF(E5="Shop",192,VLOOKUP(A5,"Equip_tbl",11,FALSE)

So I deleted the changes and chose instead to write the 192 shop color into the code.
- BMFTotinList is the name of a cell that counts the spill total rows: =ROWS(A5#)
- BMFTotinShop is the name of a cell that uses COUNT(filter function for the second stack).
- The difference is the number of VBA iterations for getting the shop color from the chart, and then the rest get the 192. The VBA code snippet looks like this...



With wks
ctR = .Range("BMFTotinList")
ctRShp = ctR - .Range("BMFTotinShop")
For ctR = 1 To ctR
Set iCell = wks.Range("A" & ctR + 4)
mybus = iCell.Value
mydrvr = iCell.Offset(0, 1).Value
If iCell.Offset(0, 12) = False Then myleft1 = "" Else myleft1 = iCell.Offset(0, 12).Value
If iCell.Offset(0, 13) = False Then myleft2 = "" Else myleft2 = iCell.Offset(0, 13).Value
If iCell.Offset(0, 14) = False Then mywd1 = "" Else mywd1 = iCell.Offset(0, 14).Value
If iCell.Offset(0, 15) = False Then mywd2 = "" Else mywd2 = iCell.Offset(0, 15).Value
mytop1 = iCell.Offset(0, 16).Value
mytop2 = iCell.Offset(0, 17).Value
mybk = InShp.Interior.Color 'Index 'this is for buses in shop, reassign next if on road
If ctRShp > 0 Then
ctRShp = ctRShp - 1
mybk = iCell.Offset(0, 19).Value
End If
If myleft1 = "" Then GoTo draw_week2
draw_week1:




This approach worked, and so I will not continue to find a resolution for my question above. What do I learn? Well I learned a bit about working VSTACK with HSTACK, and I learned how to work EXPAND. I solved the real problem - how to treat the shop buses different (visually, on the shop map). So I will mark the thread as solved, even though I didn't solve two of my workarounds. :)

Thanks for your help.

Aflatoon
11-30-2023, 01:19 AM
The other thing you could learn is that it's quite hard for people to help if you post pictures of some of your data and formulas out of context... ;)