PDA

View Full Version : [SOLVED:] Comma separated list from columns


CJW_14
04-27-2021, 03:35 PM
Morning all.

Did some searching online and cant find a macro solution Im capable of adapting to my scenario.

I would like to create a comma list from 4 columns, I would like to skip empty cells so I dont end up with unnecessary comma's etc.

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA2MAAACbCAYAAADvGEPgAAAgAElEQVR4Ae2dS67r urVF3Yd04N0GJPXrVINXDpC0wUj9IdW0wQhSCZBeBHA7Uji1U0839EBKUyIpiqJlfUh6XGBfW ZvccxFci3Je5/bf//73 5f//pXZ175aYMBeraho9Yjeral5y//978dP20x0Frlta21ip7oiQ/gA0f6gOK72z// c OHxjgA/gAPnCOD5CItZWIGT1ZO esHTjDGR/AB1r0gVvXdd3tZl/MW/5rgAB6NiCiMwX0dGA08BY9GxDRmYLR8 // SM/MMAH8AF8AB94ywcUD5CMOYdqK28lbivz fZ5oGdbHoCe7elJMkYyig/gA/gAPvCuDygeIBlrKy6ws5G4DU7tK6eEnm3Jjp7t6fnuAUx9gjZ8AB/AB/ABxQMkY23FBXY2ErfBqX3llNCzLdnRsz09CaoIqvABfAAfwAfe9QHFAyRjbcUFdjYSt8GpfeWU0 LMt2dGzPT3fPYCpT9CGD AD AA oHig8mTsZ/e837rb7dG92jrfP5qNxP2ok0sao2cMO3rGqNT7GXrWq13McqMnQRVBFT6AD AD MC7PqB4oIxk7PWwf9HRGGV/7s/uZ zUm31WXvD 83l/cw6zSX38gcT9uKOtHbSiZzCP zPPK7diW2qHnktk3vw80PNx0R0c9HxTt2R1nQHm7Lh3VyxRo e7BzD1Cdou94F//7b7RTGXXv/86xu /IfuT78z6 5/ur/wF/Te4IbvX 77Bfmr4oHLk7ExeXEiI/NZXuCrg7iEJ2Oy5d2EMhlpbCqUuJsaf9ioGT1N4D765KTt NGHnN5pjp7v0Fqo /PZ3SWeeW Dj2v2DfRc0GjLxzbBvnd3 w0JkjGCHALdHB/4219/0980dpKv8bPf/bb7W1awSjKWw5o6rMmUDygeuDgZe3WP1aBIdYYkx7v7qSB5CKoUZCno6lQ HNJD f35Gr7e2Pdpqr8e6v/Wjc27fuxY/VncYPu d8/XEOhlP92b9fTxBxL3447e7kBapYJc1RFvN4CSXgXoGcxdSWbeTYKg8YeX6LnD vQ0kA m/NRrsOsFeu6lZ7g/u3vJrpIlOzN6pg5bygjGyvKBX7vf27grfKKl5Oo33Z/ /cfu73pyNiZsbrne6xy/dTclcWo3PG37/T kv8ZVm2Eck/gNbX7566/D07a jmn7lz r/q2b jJ9hjY4/WUlk7KL17L887v0UDxwbTKmrw1N2U9w6IVBk4J1Hbq6fi94H7/OouTtdhuexIXj6VoJmq4TQZz6/MZkrEU9B49Usr7oqoHn7nmpxbpnn1l9tarn6ryy6GyuhJ777Lf9DRKzF sc0LmwWZpNDUnGvit4qj5w/cf/zJ6KaU5KfH756x/GBOkWTcaM5kqG3KRuSLiUmP3n1 739r0SMdVV2yDxu4XXt87aYvrxEki1V39K2qZrzYlX1mfJPqB44NJkTE8bpq DBWfhEDS5TyPUpv9Mh/CbydiYKAXtO92x1aE JF9j/bA8sNdcfnEyJm2a0tNoquDd8YOI8od9pMV62AALHbem5zif1afxC0B2 hg9p5tZ/U2OLfttvzf754D62UmozG5Ixgj2Sg72ZrYlkjF9VXFzMjb03SdQjl9EPo ONSZxS8lWkKyNieIfu78PY/hPzxwbeFrGE/wCfUDxwKXJ2BjkLjxuUPDkJmNq4x/CJGNu3CBx3c9Oea kpUU9L/yLnei5R/DurgA94dYTb7fs Pfo bmefRKnfnRTjWRsFngXGHxg48UJQiIZ05Mxm9Do64ZjwqMESV8H1PX0NEoJVpgQ6XMvSXMTNI2V m4xpDsNXIc2eqp9wbPztYn9jD0omwYoHrk3G9BRpKdBNPBnr430dwiRjbggpcd3PTnnfnJ4K2hX 0nUJxNgh6Tvy3P0nxseprp96NHr/KYVfo ame2venAMww7X/OT8jMuAR8BHzV IASn9lfQVRytfT0KSiPfE0xmnSZYNxNvIbgXHW9xO/NZMxL7gj62Ycq9AHFA9cmY PXAm/OX67rvxbWB0nh1wR1COswD6 D4FlPavRHP5QsjF83C9uHX0MMxw/LI/HabIxInYM/krgHDxPtXkGu91XF18P/nbxF/qEeV oZjB2d7TkfoqfWe7j 3lifow8azeRn5wfuZnT03EFPb ldr2c1gXiFwQps90909QTMTWaUHE2/Ixb8ntb4NEpPxvR7WtO1/hDH Mc8wt8ZW0q2lCAulf8nHCuwDb8mEavUBxQPXJ6M2dBI/zaX7m6OwbrzO1gq856i6RCeDnd9jdFM8HZ/di/b9xB0zRKlefvNd97V92jncKd24St7Xiyx84XE3bnb7O709VKrwaDD C90zTg52o1BsvPZmFCfq dsDtLV9c1sIp9VRM/JHzavT7uVDP8GoNXymkTMeAJ67qPntKq0j1 jqdGThGH/hAGmxzIdky dbbfwrxVOT7TsWf6733Z/sX8SP5J8mT6USCmxsv0u1LVl09cb50mcnsJNdfoE0ulv/KMeeipuXqf6 M x/gPfffgqHigiGZsOVd7tQUDi7tEXfVxPAD2v12BPC9BzT5rX92X0JDDZJzCBIxzxAXzgm3xA8QDJ 2PVn e4WSNzdO6bDSwig5yXYDxsUPQ9De0nHRs9vCh6YK8EyPoAP4AP7 IDiAZKxS47vYweVuMeOQu9nEUDPs0ifMw56nsP5rFGMngQm wQmcIQjPoAPfJMPKB4gGTvrxD5xHIl74pAMdSAB9DwQ7gVdo cF0A8c0uj5TcEDcyVYxgfwAXxgHx9QPHD78ePH O8zmA/5gQE gA/gA/gAPoAP4AP4AD6AD ADx/qAzcPMDUMDmv/aIYCe7WhpZoKe6NkWgbZmw/psS09mAwEIQOAsAjo/ JriWcRPHEfinjgkQx1IAD0PhHtB1 h5AfQDh0TPA HSNQQgAIGGCej8IBlrUGSJ2 DUvnJK6NmW7OiJnm0RYDYQgAAEILCFgOIBkrEt9ApvI3ELNxPzMgmgZyaoSqqhZyVCZZqJnpmgq AYBCEAAAh4BnR8kYx6WNi4kbhuzYRbo2ZYPoCd6tkWA2UAAAhCAwBYCigdIxrbQK7yNxC3cTMzL JICemaAqqYaelQiVaSZ6ZoKiGgQgAAEIeAR0fpCMeVjauJC4bcyGWaBnWz6AnujZFgFmAwEIQAA CWwgoHiAZ20Kv8DYSt3AzMS TAHpmgqqkGnpWIlSmmeiZCYpqEIAABCDgEdD5QTLmYWnjQuK2MRtmgZ5t QB6omdbBJgNBCAAAQhsIaB4gGRsC73C20jcws3EvEwC6JkJqpJq6FmJUJlmomcmKKpBAAIQgIBH QOcHyZiHpY0LidvGbJgFerblA iJnm0RYDYQgAAEILCFgOIBkrEt9ApvI3ELNxPzMgmgZyaoSqqhZyVCZZqJnpmgqAYBCEAAAh4Bn R8kYx6WNi4kbhuzYRbo2ZYPoCd6tkWA2UAAAhCAwBYCigdIxrbQK7yNxC3cTMzLJICemaAqqYae lQiVaSZ6ZoKiGgQgAAEIeAR0fpCMeVjauJC4bcyGWaBnWz6AnujZFgFmAwEIQAACWwgoHiAZ20K v8DYSt3AzMS TAHpmgqqkGnpWIlSmmeiZCYpqEIAABCDgEdD5QTLmYWnjQuK2MRtmgZ5t QB6omdbBJgNBCAAAQhsIaB4oMxk7PXobvdn93PLzHZo83rcutvjtUNP13QhcY8YvVY2tdptNDxS z6772T3vt64Ud69Zp9z1dqyeuVZQby8Ch vJebiXVF2t 0utdn8uHOfT5wzpoWQCOj92SMb6xWI6nH4e3UepTMbhYzen2zFB5FUb38/n3TK8Pz9LQyXu w64ruVVbN6fi9/iCrulp9bF1oQn1FO r35vN3 92fLsmxnvH3Yaf t8fGX8qyt0MhZIq9na /ns7s7e5s5ZbaTDVBZZR1Phwcm1z3N2ZfZWZz7T 8GHEvPtUmUOw77PezduY96YzufDjYDJBv8m2DLfflYqn2k2m/SxHxj7p/8i2gfrc6qb Y7zMBPUOvur9pfMCSxWu8JurS tT2cLW7TTFOh8UDvOpySurEJpMdvrEnuy2kiHSb/IOpkKl 3x9vFIvJ whbNjGavOj92SMddJPt44Vg fV/e43bvH437IE6yP7V/mvlBi5nPr7s XfUrhslxokPxY4iYrRQv7RTqNPyxaZ6GezyZq6Nsfnm632ZichKjfGP2kKXcSoZ5mLpNGSiS29f 3 k7FvWntal8PNEXsYDclEUt9 3TjLxpM61NMrvOBiWhuJ XapssEHHX8fp EyMx/aa/lqglOSr2zZZ78cbd34xtcz3EOH4HTJGXLG5DzMoWRuBwTnZ3/tfstl8vXMLgupdrrdyfWXhsL5lObzXmlqr1PZvufTO/ZNfpmwhbMjiVTnxyHJmD1wvYN52BTHO7I6jAcbzcIfy 7d87nyNUUdTrZd0JfdkE3A1DuHmejtFt6NTZXHDs 0/f4dCHespAaRwvAwiVTJ EjiZlQNqszHt3NztJwWn2na1/fiDGkz9pxmN1az3bl 4D71NH2kNFsrv1LTYYbWV7f5RqhneNh1w2YnHeIapdaDw9oGywk7pe83rD3Lwt1fIv4uB/b0TdQ7/GunMijz1bU7Nd9UmfW/uM E 0fvq6qb5uTNwLVzLOjbuzcmxqIT3/jrM2KT1sxoU1 nP5vM eT6mH3EyHloWUVYjgxjb b1Q/ L741OX 9q5TRdvvtv7DI n9qDU V1nV cT5NTHBobJvfkyQb7zts/ 3WieCGomX/p9pmyJVX25WeHga3z44BkrBc6dTfK3yDDDXTYsJwEIPSOabGHbU3NYXwnAesXhA68tfL5xudv4M FdYOuQ6ju09N3r2Hze7WMS9/2W4fjhdcimL/cWdXCYJdl5Br66h6N5zEfcpLoeTYdJzjYkb/LJCy1WVZr8f/jE3RT1NZFRlF4jl52viaOhtVGBskbzX6ex577R2trzfdBwiM154OPpK b6KofPNNTTJ3zulesLqfmmyvog9N7d75qv83VDj4uZW7 /9 6Z5uSRmPVjShN6eI2PvfD1DG0a5jiux3APDc6T2Zw4D/OT7Th7t73r7/IfRxojjvf76n79UCvXrzi/RGM6I4ZPOJ E5oPX0LdjvjivMw7o7Z/DnuQ ANnwmzHu2kidD6mybz87jD46P3ZLxkyH nE3P8Eef3/Aeoc5YIYAJZbMBBvi6FDmTbCwl4T2Nlgv4dcbk8OCyD8XpbQvudJwuese9eJBbTG11J3DeaDFXD RWo09QNJdwGuHmZr7FIGen6xptla ZWamkl pmuoZ3jYWU2cRPYtjQbbHk/zVNLXeiZPoGfra28 v96PvP3NQkrra/txnn6Ees44n/aBmxjFDvdpvkkW9qB3fMf6ybQnWn8cz4c afP3337CIacJwxLfpc nlme88/XsbTKf6cfzl2AN9faF50lwc4/zMFPGOXvOr0x0yWrvrTPOJze2nfbBJOLVwrkGyT3Z62/e1i1e3nfdWuF7zo6QyNZrnR 7JWPjgeNl4EqepoNJB9S4SYb1zYwSh8/MAWeHW 94/mHvOs5aeSxwT9hv7B2CDzO3kYOjTO/s6iM4aJ16nwbt6kri6jr/NbJorT5ToPVWoO9wmXQ3HKb XNt8TqaeWK1ptlZ pabD2E6y5M45532opx/c3rw7uaa/tzQakrFen7gusvHb1t5svgtJteWd1Nfdf6Y7YeJ61Ws4v/Da3Y9SZf7vgZnZRPaRcZI i/Fj yZetsw3NY7f85FX/voMbArPt7U9MaxvDOc8zJQvYC92znnz1t64plVglV0jThL reeXZexyCPbGtzTgfBq8bO7byT3Z8c3l/VOV4vuuSmOv4djhtXsGpMq /ewwbHV 7J MhQex3dAUVEdkjZUvHj69Q/aBo5Kb/nVKgvo682RMgeZaeRDMxuyLTKP/6H2n9ruaLzi/PO9K4ubVdmvFxvfn9NZG g67MAjx2q5ptlZ nabrG6HLP/4 1NP0Ofn7vM1bGg3r1ayX abp9t0z/qq1F/qkw0pksvS1vqz9Z9p81cc1r/66tjak5psqC bnHsSzuc36cWrM hnWbRDMTS1i 9VUetY7f32GNgXX3r4WsTBWbphFGXzhmowgmz4KWNsC38/f2htjWkyD e9Cv/ba9nbVGJNk7W8 CXszkPMpgOJ9PTssy7mO HboczudT vW GvK1k/Zkiqz62Q6G7/t7DDsdH4ckIwNd/KCpxrLi7MXdiy34szv9k Cu8L1bmODyGA89 mLH2TqAJv68cuDwD1MLvshF/4f23QXqkY/jiy4aL30hxI3XStWGhnfLqSJlX YBaxm2kX6iw1rPgsWrB2nak37uceDqCUI8c9DPQ2bcb1Emvga9XZ4gYBhPQZ3bvlgs1d5GCDwAw 3b9toLDh3PR5f1fT2m9WI4WT1G3tPmK4ZXvPq6yYLUfFNlPYvRJxd8Rb8vpnppTst8ZW3y4J4qH f7OX58BCzN6xG/EYG4c5 HEJMJS6ym2R8XO6sAX/b2R82tiHb5Lr7 Qo9valC37d8A8kkD4T4J7O3q5B5ti2gc6yx5/nxvaO09K/dhvrTxue2quskN7Vcz0qU7qXW bP9b6njyd81Pf6X03nOPUTu98pvo0ZUuqLJjXgo6tnh2Gns6PY5Kx2V0AObnzNMsJTtyv dlH yaod8sHvZc3AFfsfqzHq//MTHT6uoDpaK085owJ 63zOPPatNpcW6e /IUnp19/lbjrNcMakXkG/5bbXAPX9kf3Mjw87SJ9euWTDbbv4esN9 ezewTJWFWahn6hr21s8I9Qz MOO6NFr2foe3PdpVtfv5/W2tpaKy9w7ekGg9XPSbJS oZlgb Heorkea9xje34S/M1hdllzu9JeG2CIC3FKSzz1o 753y X37K3dez93F//bhrxIK0f4LdtBt/XB/xmD26l7l2yweDv3VNLs87ctZwfm3753 S6y 2T0 riPPp2dm/hxEy3HD26zwe94lhzxj3F2 v2Od8Wl5fRmPOjsnT93mn82OHZGwfg/brRQHfUo9r5Uvt6vlc4tZj8Zqla5qtla/1X3Z5PXqu6bBWXrYOe1lXj557zbjtfsrWc23NrZUXpp0NPhO/9lCYub05a4zXygubVJUaGIZrnNfKC9PhCHOq1fYIGOf0qfODZOwc3qeOInFPHfTQwdY2ybXyQ40 7vPN69FzTYa38cJRFDFCPnkXgKt6IsvVcW3Nr5WXhN1 RGp8KlGVawpo1xmvlia4vKKpTAwNqjfNa QWwTx6yXm1PBrXjcDo/SMZ2hFpKVxK3FHs t2Ntk1wr/9yCK3uoR881HdbKr6R83tj16Hkek5pHKlvPtTW3Vl6zMqXYvsZ4rbyUedRuxxrntfLa54/9JRLQ dFgMlYi7nNtkrjnjspoRxFAz6PIXtMvel7D/ahR0fMosvQLAQhAoG0COj9IxhrUWeI2OLWvnBJ6tiU7eqJnWwSYDQQgAAEIbCGgeIBkbAu9wttI 3MLNxLxMAuiZCaqSauhZiVCZZqJnJiiqQQACEICAR0DnB8mYh6WNC4nbxmyYBXq25QPoiZ5tEWA 2EIAABCCwhYDiAZKxLfQKbyNxCzcT8zIJoGcmqEqqoWclQmWaiZ6ZoKgGAQhAAAIeAZ0fJGMelj YuJG4bs2EW6NmWD6AnerZFgNlAAAIQgMAWAooHSMa20Cu8jcQt3EzMyySAnpmgKqmGnpUIlWkme maCohoEIAABCHgEdH6QjHlY2riQuG3MhlmgZ1s gJ7o2RYBZgMBCEAAAlsIKB4gGdtCr/A2ErdwMzEvkwB6ZoKqpBp6ViJUppnomQmKahCAAAQg4BHQ UEy5mFp40LitjEbZoGebfkAeqJnWwSYDQQgAAEIbCGgeIBkbAu9wttI3MLNxLxMAuiZCaqSauhZ iVCZZqJnJiiqQQACEICAR0DnB8mYh6WNC4nbxmyYBXq25QPoiZ5tEWA2EIAABCCwhYDiAZKxLfQ KbyNxCzcT8zIJoGcmqEqqoWclQmWaiZ6ZoKgGAQhAAAIeAZ0ftx8/fnTmgh8Y4AP4AD6AD AD AA gA/gA/gAPnCOD9g8zKRoBjj/tUMAPdvR0swEPdGzLQJtzYb12ZaezAYCEIDAWQR0fvA1xbOInziOxD1xSIY6kAB6Hgj3gq7R8wL oBw6JngfCpWsIQAACDRPQ UEy1qDIErfBqX3llNCzLdnREz3bIsBsIAABCEBgCwHFAyRjW gV3kbiFm4m5mUSQM9MUJVUQ89KhMo0Ez0zQVENAhCAAAQ8Ajo/SMY8LG1cSNw2ZsMs0LMtH0BP9GyLALOBAAQgAIEtBBQPkIxtoVd4G4lbuJmYl0kAPTNBVVINPSs RKtNM9MwERTUIQAACEPAI6PwgGfOwtHEhcduYDbNAz7Z8AD3Rsy0CzAYCEIAABLYQUDxAMraFXu FtJG7hZmJeJgH0zARVSTX0rESoTDPRMxMU1SAAAQhAwCOg84NkzMPSxoXEbWM2zAI92/IB9ETPtggwGwhAAAIQ2EJA8QDJ2BZ6hbeRuIWbiXmZBNAzE1Ql1dCzEqEyzUTPTFBUgwAEIAABj 4DOD5IxD0sbFxK3jdkwC/RsywfQEz3bIsBsIAABCEBgCwHFAyRjW gV3kbiFm4m5mUSQM9MUJVUQ89KhMo0Ez0zQVENAhCAAAQ8Ajo/SMY8LG1cSNw2ZsMs0LMtH0BP9GyLALOBAAQgAIEtBBQPkIxtoVd4G4lbuJmYl0kAPTNBVVINPSs RKtNM9MwERTUIQAACEPAI6PwgGfOwtHEhcduYDbNAz7Z8AD3Rsy0CzAYCEIAABLYQUDxAMraFXu FtJG7hZmJeJgH0zARVSTX0rESoTDPRMxMU1SAAAQhAwCOg84NkzMPSxoXEbWM2zAI92/IB9ETPtggwGwhAAAIQ2EJA8UDlydjP7nm/dY/XFgTttpG47c7wu2ZWnJ6vR3e7P7ufF8nwety6W8WLvjg9L9KxlWGP1ZMzLstP2JOyMFEJAhAoi4 DOj9OTMRtI3W6dMaD/eXRuLmXLswO9fQ qn8 7ten DMLMn8/uPtrrJ39qo/lMMWJvmz63r1Phod5gxuK/dgh8pmfED2/ mnubVEbgo3V hMtflYxprc/2hzcBfqbnm4NR/XACoZ7yffN5/ OvN8449qS9nHKvPWkve gHAhB4j4DOj0uSMTeY6TcT/7DKn8peydire9xu3f35sk/aXPu6TmVDgmYC0du9s/maSdKcxNGfy1625dNQTYmra17rJvCZnr0fuj79cTKzmoyZNXPvHo/7IU wPrb/bXfQHhDbH97uzAbo77eiRakEwvVp/NNdb/658O4s9jpHUj6ssrPOOPakd71gXl a7bMnzfvnEwhA4AwCOj8uT8aU7OgOuh9o6SDqNx5j9JgIWUoqH5C5idImivNDorN9usliMKY7jn 2CNiRqXaKe2 aA9xL3gK7p8gICn m54NPOTYRu8NV fZk15vp713Xek F793yufE1RyZptF/RlxzJrJLWmU Vd5 8RRpB jkv26 5xX671uUXICMsN3Xym54YBaXIogVDPMBnjjAvxR9aR9oyxanpNsycJVISliniFAASKJ6Dz4/pkzEtgwkBLG/IUQPmBWF9uE7mPEzGj2Xxjs4FcJHB173yOanuJm2zXV1WmOYz1D3ojcQ/qnm5PJvCZnqFPD36pux9duOZM7nV3ficsbD8kUd6a8IFMwWjY1tQbxtfTZZvrma8HK2lbK5/b6 8Jgf3RhNC3N/8qNp/81qr5mZ7qhddSCIR6Tv4/WMgZF0gVrqNhzbMnBZxyLkOWOW2oAwEIlEJA58flyZgNpJzAzg s o3G2aNNJDYLFB9P8ztdeyQ7843ND0x7 WaHrf143tYVu787r4DTLdn/vcTdv2d6vILAZ3r2fmn60I93IyEIFPv5mYRrWE xZMZbgwGRoL/5 omsaftVYK3ftfIgGQvGi9vv/55nYPEbl k1ntvRZ3rmjkK9swiEeobnA2dcqAR7kvkddC uCRFlXzJ2UPR0UIQGBXAjo/LknGFBTaVycRMzPckoz1/SmYm3PqEyEFo6mEaL6xLQWTXkAru4O5 Jb0TxT22YD9nsMriRt znWdBD7TM/Bp7 mtfSzl/XGafi2ZtTKsp7C QZhIxmbrZZYs9fb468BdG2vlwR5h 9fadl d/cCpE65bM51P9octHvWZnltGpM2RBEI97Rnm3PwI//IoZxx7kvs1yxL2pCPXB31DAALLBHR XJKMxTYfmbrloDKB3SwIVIdvvQaHhGk7C0bnwaK1OZmIKeh1AsS37HqvssR9rxW1SyXwmZ6hTwf XNlFJ3KCIlS8mY33fxt7wZ1rz8/XT/06N1sZaeSwZS9jvieomfV5B5kXALrNVWO0zPcPeuL6aQKinOQ8mf59bxxkXrqPgOrbnuBhj5exJ LiHeQwAClRDQ dFMMjb Lop/y/1NOYJDwbYOAjgvOevrh3c TbPXQ8Flb0JWwvamtUvVJe5SOZ/XReAzPSM HfHh5eCx9/ x3AZCN erwg5L26/v96a0f/KkhGlYM3rypvLxZsZaeZCMRX7P07EoeNv3vX2LiLAMRsi5/EzPnBGocyaBUM jkrHazjg/6XQViawj9iQX0BvvIyzfaE1VCEDgWgI6PxpKxgzQIHDMZty3M1Dcn1kAasudYNMeIH4b295Ee2H ZGGxmG7W5osTd3AENiyLwmZ6xwzq4wTD UQ3Hl11/VQJm/f/Rvcy1Wz7QWg6 3PF6ex4vd80pUTMdrZWHydjUxl274w2ScB1uysRcWydG4/7wprd8puebg1H9cAKhnsclY2YqvS73srPuyt8X3OuOX9gD3J26sK2JMOXyQMAAEIRAno/Dg9GYtaw4e7Eq1RCR8AAA0pSURBVJC4u3ZKZ5cRaEtPJVtLONfKl9rV83lbetbD/ShL0TNC1iZ37k2WSJ1iPlrbc9bKi5kIhkAAApUR0PlBMlaZcDnmStycutQpn0Bbeq4FNmvl5eu1 ZmFbeq7Ntv1y9JxrbL6a/P7Tu3k/53yytueslZ9jJaNAAALtEdD5QTLWnrb2q5YNTutrp6TF2gaAtcBmrbx Cm3pWb8en84APT8leHX7tT1nrfxq xkfAhColYDOD5KxWhVM2C1xE1UoqogAelYkVoap6JkBqaIq6FmRWJgKAQhAoCACOj9IxgoSZS9T JO5e/dHPtQTQ81r e4 OnnsTvbY/9LyWP6NDAAIQqJWAzg SsVoVTNgtcRNVKKqIAHpWJFaGqeiZAamiKuhZkViYCgEIQKAgAjo/SMYKEmUvUyTuXv3Rz7UE0PNa/nuPjp57E722P/S8lj jQwACEKiVgM4PkrFaFUzYLXETVSiqiAB6ViRWhqnomQGpoiroWZFYmAoBCECgIAI6P0jGChJlL1 Mk7l790c 1BNDzWv57j46eexO9tj/0vJY/o0MAAhColYDOD5KxWhVM2C1xE1UoqogAelYkVoap6JkBqaIq6FmRWJgKAQhAoCACOj9IxgoSZS9 TJO5e/dHPtQTQ81r e4 OnnsTvbY/9LyWP6NDAAIQqJWAzg SsVoVTNgtcRNVKKqIAHpWJFaGqeiZAamiKuhZkViYCgEIQKAgAjo/SMYKEmUvUyTuXv3Rz7UE0PNa/nuPjp57E722P/S8lj jQwACEKiVgM4PkrFaFUzYLXETVSiqiAB6ViRWhqnomQGpoiroWZFYmAoBCECgIAI6P0jGChJlL1 Mk7l790c 1BNDzWv57j46eexO9tj/0vJY/o0MAAhColYDOD5KxWhVM2C1xE1UoqogAelYkVoap6JkBqaIq6FmRWJgKAQhAoCACOj9uP3786Mw FPzDAB/ABfAAfwAfwAXwAH8AH8AF84BwfsHmYSRANcP5rhwB6tqOlmQl6omdbBNqaDeuzLT2ZDQQgAIGzC Oj84GuKZxE/cRyJe KQDHUgAfQ8EO4FXaPnBdAPHBI9D4RL1xCAAAQaJqDzg2SsQZElboNT 8opoWdbsqMnerZFgNlAAAIQgMAWAooHSMa20Cu8jcQt3EzMyySAnpmgKqmGnpUIlWkmemaCohoE IAABCHgEdH6QjHlY2riQuG3MhlmgZ1s gJ7o2RYBZgMBCEAAAlsIKB4gGdtCr/A2ErdwMzEvkwB6ZoKqpBp6ViJUppnomQmKahCAAAQg4BHQ UEy5mFp40LitjEbZoGebfkAeqJnWwSYDQQgAAEIbCGgeIBkbAu9wttI3MLNxLxMAuiZCaqSauhZ iVCZZqJnJiiqQQACEICAR0DnB8mYh6WNC4nbxmyYBXq25QPoiZ5tEWA2EIAABCCwhYDiAZKxLfQ KbyNxCzcT8zIJoGcmqEqqoWclQmWaiZ6ZoKgGAQhAAAIeAZ0fJGMeljYuJG4bs2EW6NmWD6Aner ZFgNlAAAIQgMAWAooHSMa20Cu8jcQt3EzMyySAnpmgKqmGnpUIlWkmemaCohoEIAABCHgEdH6Qj HlY2riQuG3MhlmgZ1s gJ7o2RYBZgMBCEAAAlsIKB4gGdtCr/A2ErdwMzEvkwB6ZoKqpBp6ViJUppnomQmKahCAAAQg4BHQ UEy5mFp40LitjEbZoGebfkAeqJnWwSYDQQgAAEIbCGgeIBkbAu9wttI3MLNxLxMAuiZCaqSauhZ iVCZZqJnJiiqQQACEICAR0DnB8mYh6WNC4nbxmyYBXq25QPoiZ5tEWA2EIAABCCwhYDiAZKxLfQ KbyNxCzcT8zIJoGcmqEqqoWclQmWaiZ6ZoKgGAQhAAAIeAZ0fJGMeljYuJO4ls3k9OjP /OfRvYxBP5/d3Sl/2A8HS1Nltund6ffePX8O7bwxnc 7n93zHtjiDPjz6fZ365wi27HK7 NAw3gnv1yq58lz/YbhLtUzWGPGltDvj9BAa0n7gjdmYJNblmzn7AlXrlFPT28vcveeL9r/Aj3xsSNWFH1CAAItEND5QTLWgprBHCRu8PFll6/HrbvZCOvVPW63bgycbOCi5ClVZnK4e3e7PzvlX NkvD66rrPXQ AzJGNucDe2MwGD018f9KmdbHnZZG60d2x87pvS9Dx39u2NdpmeQ6Lgrwfj6/L7g1hnrbVhZbvrOavd9Wt0Tc v2v/wsYMWEd1CAAItEtD5QTLWoLoSt4ip2bukQ8LlJUrGuv7JVZ nmSdqblDolHUmYFTS5s9qnqS5dd0 /HazK9fOsbBvTzI2AuHNDgSuWZ/9DQY/EQsnM6ydp55uD vRro3pKY/6mJIM9ZO5Xty1ltoT1K1e3Xb6bNhDrlyjST1dm1NzTZVVs//hY6Nb8gYCEIBABgGdHyRjGbBqqyJxS7DbDdjmidMUvKXK q823ru7 5XDKSIMkjg3IOj7Nzz6n3hCZznNgiHz6WTflSxL0vNKDq2MfYmeUf8OifZrx78p8uoe4RNkXYd9 uolH2LV77bRLrnu3jXnvtJuKrl jKT2/av L6jMp1b/Dx0IiXEMAAt9LQOcHyViDPiBxr5 amxjFv2poghVzV3selJnYa/hKoz3knUTKBn3T77rYgMdJuEzSplzNZWDH8J6 qXQpoFv6XO3OeS1Hz3Pm2/ool gZBMr9WtBNCj2R9tdrVAe79uL1bZ xhed15K p5LpPtJuK/P6mz897t6ynzzM111RZn4RWsP/hY c5HSNBAAJNEND5QTLWhJz JCSu/ n5V2GAEV67T55SZfM74qkAzA A/FnHy2wyp7v9XoPUOF7FQy9K0fPQSX5R55foGQTKI27v8/j6sGtzvNlhEjglY8MNFpuA9WtlLRcL11py3Y9G9jdmor8zWsDT6yU9w7mF183tf54veeI5PoOPO WR4CwEIfDkBnR8kYw06gsS9dmqRQ3d2WDsBXKps9vWnRJI068ehMOsnFeSZdolxnG6PfluGnkfP 8nv6v0bPyHo0yL31Eqnjlds/X9jdnWSs/wrxo3t5T8ziWoaJmK0V9j sOTepi7Ybh7h jcb1zGDpzjXFYbZvJeY862cENfwlW cJm5X/Fv/DSLZZYhyn2 ltZM6m0LMpUscrx8cmnryDAARaJ6Dzg2SsQaUl7pVT6mT3fQe1uCg9g7hFNlQVBg2/lBhdu/fpn/9fDr EFd32f8brvIBePq45NfS9Dz5Ck3PdxVevZrMvgKb2oNGhW88uHmhZuMDQmFmVP/F1Nj0qXW2vq6L32NxvRsef z 6ibLTuS42MODN5CAAIQWCGg84NkbAVUjcUS9zrb wBLSZFnh73Lq99V8ZMl/98gS5U5AaXXn/Nn882gNpDUWMEd4LBMX8OyQUZvvw0w9bn7J/m9CR1/cb2ex8/xm0a4VM9gvRhbpnUaJEaDKDb4HtbB/fmc/Sn8aADuCppca3oSonXqrPtku3LW6FzPtve/VDJmZcfHXO/nPQQgAIFFAjo/SMYWEdVbIHHrnQGWuwTQ06VR//vm9LRJU/gUvH6dcmfQnJ6pidtE6wKtv9zHUpJQBgEI1EtA5wfJWL0aLloucRcrUFAVAfSsSq5VY1vTc/VJySqRuiu0pmdKDfMUdHqSmqq5b9m3 9i NOkNAhAohYDOD5KxUhTZ0Q6Ju2OXdHUhAfS8EP4BQ7elZ/yrjQdgK7bLtvQsETM VqIq2AQBCHxOQOcHydjnLIvrQeIWZxgGbSKAnpuwFdsIPYuVZpNh6LkJG40gAAEIfD0BnR8kYw2 6gsRtcGpfOSX0bEt29ETPtggwGwhAAAIQ2EJA8QDJ2BZ6hbeRuIWbiXmZBNAzE1Ql1dCzEqEyzU TPTFBUgwAEIAABj4DOD5IxD0sbFxK3jdkwC/RsywfQEz3bIsBsIAABCEBgCwHFAyRjW gV3kbiFm4m5mUSQM9MUJVUQ89KhMo0Ez0zQVENAhCAAAQ8Ajo/SMY8LG1cSNw2ZsMs0LMtH0BP9GyLALOBAAQgAIEtBBQPkIxtoVd4G4lbuJmYl0kAPTNBVVINPSs RKtNM9MwERTUIQAACEPAI6PwgGfOwtHEhcduYDbNAz7Z8AD3Rsy0CzAYCEIAABLYQUDxAMraFXu FtJG7hZmJeJgH0zARVSTX0rESoTDPRMxMU1SAAAQhAwCOg84NkzMPSxoXEbWM2zAI92/IB9ETPtggwGwhAAAIQ2EJA8QDJ2BZ6hbeRuIWbiXmZBNAzE1Ql1dCzEqEyzUTPTFBUgwAEIAABj 4DOD5IxD0sbFxK3jdkwC/RsywfQEz3bIsBsIAABCEBgCwHFAyRjW gV3kbiFm4m5mUSQM9MUJVUQ89KhMo0Ez0zQVENAhCAAAQ8Ajo/bj9 /OjMBT8wwAfwAXwAH8AH8AF8AB/AB/ABfOAcH7B5mEnRzBv a4cAerajpZkJeqJnWwTamg3rsy09mQ0EIACBswjo/Ph/CVImclU8iJEAAAAASUVORK5CYII=
28378

Many thanks :)
Paul_Hossler
04-27-2021, 06:34 PM
You could use a User Defined Function


28379




Option Explicit


Function JoinWithComma(r As Range) As String
Dim s As String
Dim ary As Variant

With Application.WorksheetFunction
ary = .Transpose(.Transpose(r.Rows(1)))
End With

s = Join(ary, ",")

s = Replace(s, ",,", ",")

If Left(s, 1) = "," Then s = Right(s, (Len(s) - 1))
If Right(s, 1) = "," Then s = Left(s, (Len(s) - 1))

JoinWithComma = s


End Function
CJW_14
04-27-2021, 09:23 PM
Thanks Paul, that's perfect!
jolivanes
04-27-2021, 10:23 PM
Or a different approach.

Sub Maybe()
Dim lr As Long, colArr
Dim i As Long, j As Long, k As Long
lr = Sheets("Sheet1").Cells.Find("*", , , , xlByRows, xlPrevious).Row
colArr = Sheets("Sheet1").Range("H2:K" & lr).Value


ReDim Preserve colArr(1 To lr - 1, 1 To 5)


For i = LBound(colArr) To UBound(colArr)
For j = 1 To 4
If Not colArr(i, j) = "" Then
If colArr(i, 5) = "" Then
colArr(i, 5) = colArr(i, j)
Else
colArr(i, 5) = colArr(i, 5) & ", " & colArr(i, j)
End If
End If
Next j
Next i


Sheets("Sheet1").Cells(2, 12).Resize(UBound(colArr)) = Application.Index(colArr, , 5)


End Sub
CJW_14
04-27-2021, 11:54 PM
Thanks alot, appreciate the help Jolivanes, this gives me another option aswell :)
snb
04-28-2021, 03:09 AM
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(H3&"_" &I3&"_" &J3 &"_" &K3;" ";"~");"_";" "));" ";", ");"~";" ")
p45cal
04-28-2021, 08:23 AM
There's a formula for that:
=TEXTJOIN(", ",TRUE,H2:K2)
Paul_Hossler
04-28-2021, 08:29 AM
There's a formula for that:

That's good :clap::clap:

I didn't realize that TEXTJOIN () had an option to ignore empty cells