PDA

View Full Version : Workaround to Create a Checkbox in a table with cells(A:A)



garyj
09-01-2023, 08:26 PM
Hello;

This is not a question. I am writing it in case someone benefits.

I was trying to write a checkbox into a dropdown on a UserForm such as is possible with datasheets in Access. But I decided to work write off the sheet itself, which means finding a way to create a checkbox in the cell. The table lists training modules available, and by double-clicking the first cell in each row the user basically selects each module that is to be sent to the volunteers. The checkbox data is remembered because it is saved in that same cell, and can be referenced during code that populates a different spreadsheet with the new information (which volunteers get which training). I also wanted to do this dynamically so that a new row would create another instance of the checkbox.

Maybe someone has a code that will work, but here is my workaround.

So I format the column as Wingdings. I then added this code to that sheet.


Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myval As Variant
If Not Intersect(Range("IssueModule"), Target) Is Nothing Then
myval = Target.Value
If myval = "" Or myval = "¨" Then Target.Value = "þ" ' "þ" in Wingdings looks like a checked box, while "¨" looks like unchecked box
If myval = "þ" Then Target.Value = "¨"
Cancel = True
End If
End Sub


Okay, so it's a cheat, but only the coder knows that the cell is actually a Wingding view of special characters 168, and 254. The user will see this...

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAMkAAADACAYAAACuyUfNAAAAAXNSR0IArs4c6QAA AARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAB6ISURBVHhe7Z1/bFVlmse/bHb%20UWOy6mr4owJDbzupyE4x8sdtgqOp123RyCBSFxN%20VGkdjLQ7igWmoSlbgYrrtjritEo Fk2GlMl1coHetjSAO9w8M1GgltrcVOo3BcdVk8Mdssma7z/vj/Lr33HvObW/b097nQ970/HjPe95z7vN9n%20d5z72HOW%20ebY4qX3gGEYd/5G/2UYJgUsEobxQIZbo//3c73KMEwiUiS//e1vceKf79abmESW/9s7%20Mltz%20B/z/1G/mVyCw63GMYDFgnDeMAiYRgPZmVO8p8//oNeyh4dsb/jnCRHmbUi%20acH7tVrE%20ff/3CcRZLDzNpwa2xsLGuFyW1mr0iyWCbO1Xi0rgTv/KtHqbsZC/URE6V0fbFqc/0N42pzosePD9t9yuK9mCiTJ5LLMdy1oh7XrGjDS5f1tqnEzdrHW2YcV2P%20TVepxVtvwAK1lAE TPX52kUIk36BnX5s2clXuqnsLPdNh7OPELWwab5k43%20PV5jO4%200ldfv%2013g7Efm/b3vwnDOvtE%20N7XPrzD2rx46/Qq5YyYKLHZ5klP9PethiPztXbphAXkXyDl%20qex8qeUZzVWwRnBz7Ayv8Y1GvTR88%20Ldx96f uS6AwmUmYivQf6lPAOfKW3ZMZEj59N/K3%20a3H5U/xhQCzkofnlajwulUue5dj72DMqlmcG2fEA04GIy3%20OihuFl/kQo4sLUHErhT5fjuIx4Wnm3ozGtdcj78ar6BPSfPkDYh8NoiH6vd4gcooS1N1KCx8PmIZubBPtv n9THtaUUjtyDx3fm93jxXWUri%20g%20jpsc/A1mp/81JeHMvshuQoVT5WggpZGez9EpXE%20eU/yEKZ7phD9GcXr0a%200Z3be0/fpnq6hfsm%20f/k1Dr/%20KV7FDboN1d9Ruu5n6LrF8WlyklEMXP5GL1%20HyH33491NBXpd8dmxt5whGY3un%20l9qfBz jLNOGzafF/0QHq6ePJyqg57X1f4UHkVoJFtlugg/TB%20sw8jow9YfpCkQAa2HS3%20OxiV63QPRbp1p4IJsH6%20M0l0gWUaEYk/ZBSIQ/SnE79bfoNctZN8NgQhuvJ6EV4yOpwpNgQjybi3Eb8qulsvJIpn7MzxQqBY7dj6Pa%20qUkSYasg h7Fu//wBmSkeEuroulFIqfYz471pZQZ5T68WbGyX9iXmGU5r3PmWXX7j1o3Pkv2F5fj6e2bHGtL8p0IkZ MK1/5HiffGcVhGg0fM/KYJz/E4S9V3fDiZKNIxWjvgGrjuVHE9LasHT/3em20P%20Dwc6qfj1EepgIR/15E0HuAjjdzOKs95UVIjHdfL/eY90mfS3JrnmsOI7yJrNer8y4SVZ7ol2zbup95i6%20XM2wunuQ6PN78azRHtNYGhJE%20j8Xmi E5cjmGPHNFFSNaE745SeXktKsWmgY8RdTNoX8cMomW/upVLH/m1WadZilb0qwldEbkbiKxV%20xO8m4Gwbbey5ckn8eOPP%20J//vpXfPf9d/j22yv49i9X8Gzzs671RZk2yOWbIYVm%20PzXuEThwm/MKWUVRmQEhW7PGKHI5T/h/Y/lVuCmq/xNu070%20GxhipGsijyZuh8l%20N3DSjjS%20BNFQve04by6p8MfGsIVwiHhShukgegjQzyKFOE WGeSmajLCX6PrkduxVG6zjeiX/1uP9KOo%205UOi371Ojr0tgFXkfg45vJX6Jfrt2PrfdfJJcwtIHEYuZF/yAek/Le17mkpjit/%20QuuXLmCltYW297kf8HBCmPyMhXGVHL5a8TkaKxyCMNw5bCbzdmyuQlhZxI/YNTNFjMkTU4i0LnIUT3ipxJAtjCFNHHcPIK97NnTjG9JIPv2vey6314Cg23kjNnCi2ZjJA8cZKQ 6dJHLNIo/ls3ZssvUpl50TKWbpQ%20vTopIzlPSLJ%20JGEk75QnnjRFeM/fvtXexhU628oJbAujnGLPOB9hzzAjtBilhfytrOYm9vLq/w3V7YgkM9pHzz%20rPwiU3Y405%20xMQluSpEPDLr/GM%20XyoD5V6tmj8JIRPNpGE774Zpea%20q%20m%20/AwdWXpqnySSzz7/Qj0T%20RUl7XqGafHObjXCF5ajVhpzGFtlbmALncxCAhO7EvFzjFmHEvr9%20vwUktUNfKE2Evl 52kxyYHYrCRqszCT5YRWD/%207hPI%20QYxq5MQ%20/03mCLHXF6BjP11zsYnhYtdUhZ56%20wutG8k3nqtOhncjTzPAuCySJ5Kf3PajyED3DJSnMQ%20U ja/FRcxg/1ZsimyhfoeRejfz%208HNMch1x7gfNnET0z5xUIJbmuc/IuHmE8Zbg8BUanhvQ8b6GRuvmXusJfiA4P%20oeAoqp61vdp2bTcvlPeMacHRP8gNifdfId7cNj vx%20le2JPtkVoR314PTvfYJi1X5Vf/o/Zu54T//UOf1U%20E8SzCzHDZDwAlRvFw0Ux6SCWM5sGnm48EveZi5tHGG9hMqN0sTEF62T%20TXqBRv2Le nEmMGtFImdus1WYjLhofDnSkZNYz3Ni72Tri5xTw%20z1JFksTGYMRwdlnmRN/ypGRf703IdoOK83zBD4N%204%204ZwkdzFFwqRHiINFkptIkZT9RH43nknD58WbUbX2Pty/6VW9hckV2JP4pP31Y1Ik4i%20TW8zKnCTbiHcBs0hyl9k7BcwwWYJFwjAesEgYxoMZJxLx%20/eXZtjDKGZmM62Ju/o9u/XdTl%20In%202m%20MnuZMGJe24z4zxJqq/GM9PBMA6uvBaFK/dhRG%20ZPPS55lnloY6p%20QbY9IuksBwfJfxKMansEL%20zz%20y3K7OKS/vwkM04VKnBab07Fzi9rRi7sAc9I1cwIMqBDehrLMaOk7pCGkY6SlPcrx7s8CG2wHsSEZJds/MLPPDyg%20arjnKJ09tIEHdsRcEBbRy69DR8go1TMoJrTtaQoZXi4CW9LlmIdV3Un65NmKe3TA4 96D0EFN97j3WeBYUopj%20DFyffmwRaJCpnge1NkrmFGAE3HlqK7e9dwc479UbNvMreKTDOoLAQ C28D%20o6/bQ4KI%2092oY9ii7K7Jv8lRgERiXo74zVJL6kbReWO3BSIiMFPHT8LrHka6%20brTWmQHmdbj/orwjG7l5FeQG9P3GeQpo5sc/1rtHQWu%205Q%2040QRe5LrEv9UCGOqpt8vuT8QpVUISR5rCc2AOe2Yv9JdWyk8SwqDvT6ujeZY t5DXQIhkqHz%20v3DA914VLwl5fxbatYrstb9zSu5wKW3ET1HIUYog5Hy0CpsxBEVkmkvI411Pf CKGar1YTu2ImIzXK86y3bTNsoBQCO38GqizhuVafpF/YjEn9ZtHUEFGXedGfcLI6f8olD3k8ora8T2DXT%20ViyTdVy4s1XWO7zeyk0SvWs2EALZF%20oz %20zbw3p5giCR/SRjvvlwuE/Ozf3wTd%2038QCX0UzzVG0QKFljG6BidRUkaocnQdhuvuBT0YL8cce3GZ4zKXTgl8ws/dTJkDQnA7EcEpWTcVqg0jGESf0XE6ueyiBDgJ7iY8lwqwRahZzGFXTg3YLtu5Vm8Z7pew0b7vZN lFQ7rvQZiQHAMAPPvCVBOYrxOaED8lw95aK613sySy9gTU5mHOEbfBNYsd47El4YgXrh0eH2Ccc jQSeOnTlZR%20cXhHuvFU6d7xLluwYIUodPpbcKYhafpxRtd5JmkwRuhmRKdfTBxRxyvvYNZRFu JJIaCxcFK3CO/JG9SeDuad1ivEMpZ5udD%20NGMRnbyoSZsZUccbzfupkFQrJDEPceChdqKVntho26/0R7JTGrYRysONZEtBSLMzKf8elQ0H7VDOFnoESifAm7zbfj8eX6PcA5zQRPNJAAeihZxOmXTNAC y3tNKmfOtlE5lpWbqNKmlxE4xwsLKHsolCxuKEtO2LWeWDFE85Zw%20kXCSXrix1vc0xVnkddjv 2Acl5lG7bfpmaUnA/NhnHR171QQutrrHYKTcxkmfmMnzqEfC5xFsMTfReQFKU1S2aWpPzKQOU0wvPY78GI9CAKvw8VPd EDhiMU3BawcItJRD%20sO7AhIWfQIYGP5yQij%20lpgNMoXyx0HOunDuZvwiY5u6T2j98oVU7iD O%20SZ9zsiGS6h4RsvweRxlusHEPfn4l/TYU81Ht7UGwPBXGEf5noB/6CY/YQM3TKwJ0hVqrtQYA9CTMNvIZehydS09BJs3MBgUXCTCkqtHOGTuJ5xWBDn%203ZSrBgkTBTjv1 5j1HSPsGfZlgkDOMBv3fLJ5y45y5SJPwGR3%20IWS5%20g2PuwZ7EJ2KKXIjk1KlTeguTK/BzEh8IcbBIchdO3BnGAxYJw3jAImEYD1gkDOMBi4RhPGCRMIyDIbSWzMGcklZaUrBIAsxQawnmz KlGVK9bRFE9Zw5KWo2PcWajrpMM01FKEJTLY5EwmROtngQjrkL32BjGdIm3ALWhOahOHiEmmXzU nKE%20nKmhJQWLhAkk%20TX1JBug/eiUqyQJFslsYqgVJQlhi30kdg3f3LyCbsdtFI9WU7vl7bQUkyO9OIcj7PPoQ6aEi0J6SSP7a2vf ljsYJIZvSWGpRxvyGvU2scwimS2IDz5Ui0XdVsgy1l2F9nLLSPKXr0YY7bAPztGj7QiHgc4TNjO JXyAJVGFFmV63Udam2iXzRUtcnedMjQ5MfPTBL9HqcuppGKuXG0GPNv5y2MKyOFpQi5DNyEUd6o LZN1Fndec6cxDw04adshVVLJLg045y%206gnizAgO0NobaItVd1osxt2WRuEPcdq9yrvkb8cq0k QVggzhMH%20KtTXL0Ks84RpJEI4qFoBF42kwWcfUuK8znJ0kwGfgaE/6hX21pJ0u9ts/aL8oV403gml8SGc6Iwh3HLQdpzIMYx2/LSRQNkWFknwcSa0qnTLeN0ijgsxYdfJZi1GQqAfg9IA8rFcqKR/UAli6AQ6UYRQ2QpUxS5QK4IolEYyk4j/PqTCus54i1ByuTNMGxqkFsRm%202BBRYZ%20GnE91IdFBZb3ceCnjSTyWSSzAv3hp2YRDLuRIZc eNYdOdILiGTKDEIrCOgyLHqUx3T3USksGffAiv%20aM9D7tTckhUJU9lDOL3eN4k2kbLJLZQH4B mSAZlctMkAydwuQt9LoKuWIyB4nT0K9GXeVhxPFDg2TqGYdaRCZ98IH0PrFa7DWa0%2033p3NHX nX8tOECi2RWUIYtbiEKJdIikqiqt%20b8DUHEKJltarc8Rn4BmU//UeyleMUz1AoVUUodwwUVn2ky6YMPKBeQzZneRLUfq7WScImYLDCTbrc64gm6MXvnp41kWCSzBBG iGDNJVqzdL2d5HIk0oUKuGGL20V3mJe1oj/kItfJrIHJd41yGKDLpgzc6f7Il1KJ94yGj2X5TEeK2B3/JdULoXG0l8n7aSIR/megD/mVibsOehGE8YJEwjAcsEobxgEXCMB7we7d8wol77sJvcPTJ58Wb5WtO%20Q2OuQd7Ep/wu4BzF35O4gMRZrFIchdO3BnGAxYJw3jAImEYD2acSD479hZeOq9XGGYKmNbE/bNjbVi8f1Sv%20SSyFt9tEv8l/dTBiXtuM%20M8ydK8G/QSM1FOb7sWhSv3YUSvBw3Zv209em2qGcbBler%20TL9ICsvx0dEmfJeu7LgdS5FHJbcY6Si1/TfORinFwUu6AjMuMr2vgfckIiS7ZucXeODlB/FAod6YU2zAK7b/yrmnAdh1x7XYcVLvng2crElrpJOD131diHVdtK9rU7BFonIWoPnlajw%20V2/MceZVPo0K%20nu4Z7rCkNlJuvsaEJF8g5fq6nFNXQyf6S1GUl%205gwXiRnFooV7SyNHYFj645B oyxjf2J8X6OgZP2O6WtySGKw91DOs9Gh99MZDtr3%20Nls7KkdytPcf53NrK4Hxe2O%20rce2BE MnQ%20U/xB/Edy4FuPHrsG%20D8W2rWK7IWLyxRdRjF6W2rcJiys7K7rA9TGtF62MKHPmzHVkRsxiI%208I2Hr BCjJ/QsreudGSDOFWkEtr9nnavseLUZKvnpi51lu6nOgQ20tNRs841K2wBwaBUi8ad1W0dQcW4r6mwiy vR8qXC7rwaBEEn%20kjDefblcJuZn//gm7tr5gUrop3iqN5i8ho22UXIjjpAh9GLdfL0bPdjfeBYVB1qxTG%20R8fQTZHjnunBKGm8Pekk QxQ2bzTrzKnvxyhq94pthnDp%20ltpps51fxO5Gf/z0JUPW0PXujuiVCEqpz33H39YCmMj5vO6rRXBykrlhbBX3YmCUHG8emmvD%20Knak%20PYRv8GG kZoZHUk7ZeGMEh/Dq%203PnBZZAij0XUKFiSPkhlx6W1Ez6Vpx09fssmEzudxX20EKnGP/JK8SeHtaN7xIOchLhij/%20EXk0OJigNGuGEv7iPjZDPVfZno%20dLdV0GgRCK8ybvN9%20PxJdfpDUwiyyIilNiK/caoNz8fIigdvJiQPNvxU4fClAVeU%20xe7fg6TxbJ4vmS7quN6RcJJeuLV9TjGs/yPOr4B5TAnZux/Tb7qBfBIxQu9DVaybNEzPiYyauO5RtfwGm5biTyekUzLyTCjmfNdpLruJ1LzIoZzzj89MUFUmcx BdnDF/W6b8Z5PjeS7qtFsDwJ44OF%20MW9ZMy2xFSEC8bDMDMuf7EQPV2bME9VwbLdfWQEVrK6L9SnYnE b8yrbqI41FeteJ/FcxYjeayXyfvqSxPxN2CTCHZ1bZPKgdFzncyX5vhrwLxN9wF9wzG3YkzCMBywShvGARcIwHrBIG MYDfu%20WTzhxz12kSPgNjv4Qs1z8Bsfcgz2JT/hdwLkLPyfxgRAHiyR34cSdYTxgkTCMBywShvFgxomE3%20DITDXTmrjPpDc4cuKeu8w4T8JvcGS i1XMwp6QVQ3p9spl%20kfAbHF0YQmsJGcKcNKU6qusyk03gPUluvsExHzVnxjA2pkt3FW0LoyVu 29ZWpqoy2SFaTYNPCVpd3FOgRcJvcGSCQEBEwm9wnBByFLSFYi7xuozj7XUSwjW5n7YNtZYkt2N v39a2qlsNR0tuI/JQK0roWMcp9Taz3cT9hNEns%208p8hCjzyVubkCT7vrlvvJ2WoqhNqT229sKhEj4DY7jRxpIOdB thGFjcbSgFiGbQQkjaCqKW6FavAXh9vIkowRtC12o1/W6URWjdoRBHV3h2LZOG1D%208tUUBLbjqK2d6NF2hMNA5wmbwcYvkPlVYYURIQohhWqxqFv3RxQ KKdvLXQyd%20lSOblXnTA0FoglQW6Faap3aOlOTtFfidf1lber89pDW3lYgRMJvcBwvUeyVBtIG K0OhfKaePvBYJww7FUbgMKD85VhNhtxut25BuAVxM9cpwwppN8nbYp0nlACT2hnCYH8V6usXWXU IIRxUrdB9HEJrk1jvhiOtKmuDsNNY7V6nZyJxdafKv4TYyAMIgaRL0XxffwqCk5PwGxwzZ2gQ/fRHjMCOUEKGDnYSZ8tCIG1lgXwsF9bWP6gEMXQCnShCqGwFeZwLiMs6USiNGFYcxwU6t7VuUSZV 2Y9BuzMxxZWA8HJ0neGWeFqBKCZ2/YFK3PkNjuNDjKRmKGGWM1CDpzAQMgoKwuLmPgrJyLazgQy5tNcaOtEJrF5O0gmhKKzDsOhRCshs oZYWdmoWocA9anJCHq6bLiJWG0oOGx1M/PoDJRJ%20g2OG5BeQSYmB3D70JiBGdzFy17vE89lAhi4xmYPEyUUskhauPIwIZ4YGSRJ2b6D77B bqyLAsTJ5Ir3sRqjkjQ7T2cvepW0kWrn/6RcJvcJwAZdgiR9N1TiMRsbqRuLsYZbQ6W%20GWQAki1rkOTe2Wx8gvoLP2H8VeslBnaKX6LBJy hwegPosoMVNjLmsTXkHMSiXMshn4vf5QEaXtMVxQMaKDYHkSJmPyaTSNt8CcupSlqQhxcyaoDG1 6NsfYL2aL5GROllAhVwwxuxeQeUk72mO2UEsj%20mzMZpl9Lu%20XM0ve%20UUi4sFrNwV07Sh3 jbt8Xn9%20DcR8h9Ene1P8y0Qf8Bcccxv2JAzjAYuEYTxgkTCMBywShvGA37vlE07ccxcpEn6Do zefF2%20WrznlNzjmHuxJfMLvAs5d%20DmJD0SYxSLJXThxZxgPWCQM4wGLhGE8YJEwjAcsEobx gEWSI5zedi0KV%207DiFwbxsGV9vXJQp9nnlUe6hjW%202YOLJIAM9JR6jAwWbb16L3B5/S2YuzCHvSMXMGAKAc2oK%20xGDtO6gppCNK1s0iCzm02Ixs5gopDq7LgARZiXRe117UJ8/SW7NOD3kNA8b33WOdYUIhi%20jN40ac3mZRrzxwWyYwigkcalgLnunDqkt4UWBZi4W1A3/G3TaMeebcLfViKsrsW6i2ZMH3XziKZYcxbcItesnFpHx5KCE28QhpnjqJIDHGM/EHWnVeD03LNwq0NC/JWT2wgo96K/SdVbhJpPIuKA71YN19XyZDEa5fnpxBM9S%20hLz7vSaprNjlZwyKZaYxc/EQvaehDLLxjKwoOGGEJFYr9D6/PLEkWxhJpBLa/Z7TTh7Lj1ThIo/ay6j0UJr2GXruRkRHuo3Cq4ok0IdudrXhlDagvVm6y8069bxwkXbuAQrCNOKL6bISPPu9Jums29 heuZ08ysyDDrKPRGGue1qMxjdAvvkbrR5zGp42zr/GFpNHfnWGcOn4WxQ1ttlFe5C161J9/D8oodDrcYyXOKnTagNKURt%20DHTQybzy0FMV0LM4N2DyO8iwZzXQlXbvBBryyW7zV0MDvPfG4Z ur/fun5WlkkgYfClYgRDtDoiIY%20DJhGMYzhczSaR%20xGolgWoVAHn%20Cin/j90tuIUjsFC1LlCgvxi3spHzh0wmFgWLMcy%20R6Mqe3rcJhYcAjvXiji5Ju8kQbzZBN9Tv1%20 TRpr12T1Aef98Trmi8NYZD%20CO/DIgk6jhmeK3ij0vah6g8yNbdggWPUHT/zKp%20Whr5PjP7awNwMUaFntho2awOOYKeYndJCOdjxLAloKRYukDtTk%207aU5Hle1JBIRuLZC YzPx/ileL2MMjgdA%20FHLcV%20pvi1e2kn5qNoFSEK8ffxmkRapEBP%20KRX/TF7e1ZQtlFYYwzzMkifu%20J1zXb9rNIZjR6WpSSV8fMDSWuG72Sageqnb5GK2kVYcvBlaW2dR2 uUAi0URi5/flHEkpQif0akR5E4fehYub4vSde12ztZ5HMcOZV9pozN%20ZU5vpP5IxNJjNJop2eBmDXHUY7xY jemzDa37kZ20US7uNZx7LdV6i9pY5%20RRpvoRxFh0/jmIHzi9974nXNxn7%20ZaIP%20JeJBmKk1dO5k/q0PliwJ2H8YyTsvsO42QGLhPHN6batHs9GZicsEsY3Is8YGGlN%20WxktsIiYRgP%20L1bPuHEP XfhNzhmgJjl4jc45h7sSXzC7wLOXfg5iQ%20EOFgkuQsn7gzjAYuEYTxgkTCMBywShvGARcIwHr BImBlPtHoO5pS0Ykivu5FYx88xBiySmcBQK0rm0IfqKNWI6t1BZqi1JEVfo6im6yhp9WOm0wuLJ ODIES9Ui0XdYxgbs0q8pR/lPkdCZmKwSAKMGIXL28NoiY%20hrUxv1OTXnMHYmRrk63Vm8mCRBJYhnOiMAVX1qPGhBOlxqqPq rwjH7F7GJVyjqjaG0FpC250bXeN4ER6pEMpoK1thn78%20CMxrFCWhvoGfOklEq61jRNHnZZEEl aETEBoJF4X0Bh%200l6Mc3SokM7yM%20OATw7XuKqo6vnwgVhtC6EK9biuOlnD7lIZ9wvjL26vQ ra8lXtRE63qnxk%20dRKTwy2EeI68NtQjRtbFIAs6iAsuNOEdwa6SzIMNwxGU0OjeRdVR1O8O1s jaQTsjg92buBcItiJuN5aOmXjTUiRNpVUJCsvdblnLamilRHKWDwi1bYPaAwk5xLRZ%206iQSxd 7aGN2mNvMY%207WxSAJO/6BlfTIP0SOd64detcL2IQviuCAithXOrYKyFaKBftia98eiAmceFCpCGDFciOt1V6xR3SrdtDVD hgapx86BIwk/dRLRxwjv6hCydj8skqCSX4BF9CeW3vrSoz/81CxCJrY026lKmEFU5QyLJLiUYUtLmIa3Joz7UYIWWvvR5KAqKmOSIqiMJx8FoqIf%20gedIV78 AvmRMDJJndzx0Qd9PXbvmoSfOol4HMMiCTD5NQcpMY6hNpQ8GzWY3kVoDKGVO4%20nZF5EElX11 hRyqMgpSJX8qmUHMUpmzcaiqFYN%20ZqB88K7D2UQUaI9lxpfnUTUfYrVrnMOSGLSgxP3oEPJ4x ly%20Xo2yoqXQ6gFJdA%20npPIPCbx%20PL%20pGcvdkGKOk1FccSFwBKp6pazRaotSr4difzE8 NOHsjY9o6avZbx1EhH3Kd4C89yyNBXJe8y/TPQB/zJRIUdkMcWcJVHMFNiTMIwHLBKG8YBFwvimrI3yoxwLtQQsEobxgN%2075RNO3HMXfoNjBgiR8B sccw/2JBnCniT3kCJZtWqVXmUYJhFO3BnGAxYJw3jAImGYtAD/D6ZUqEseuQfiAAAAAElFTkSuQmCC

31020

I think it is slick, and it works dynamically without extra code. But sometimes my 'slick' is built to need improvement at a later date. :think: Does anyone foresee problems?

Gary

Paul_Hossler
09-01-2023, 09:50 PM
Not exactly sure what you want since your code is for a double click event but you're using drop downs

1. One way is to use Arial MS Unicode font and Data Validation (Sheet1 in attachment)

31021



2. Another is to use VBA to add checkboxs to the cells that 'need' them and just then the linked cell normally (Sheet2)



'https://stackoverflow.com/questions/14722444/excel-how-to-add-checkbox-with-vba-and-linking-to-cell-next-to-it
Sub Macro1()
Dim r As Long
Dim c As Range

With Worksheets("Sheet2")
For r = 2 To 5 ' 5 last row
Set c = .Cells(r, 1)
c.Font.Color = vbWhite ' hide TRUE or FALSE
Call .CheckBoxes.Add(Left:=c.Left + 0.3 * c.Width, Top:=c.Top, Width:=0.7 * c.Width, Height:=c.Height).Select
With Selection
.Caption = ""
.LinkedCell = c.Address
.Name = c.Address
End With
Next r
End With
End Sub

garyj
09-02-2023, 09:25 AM
Not exactly sure what you want since your code is for a double click event but you're using drop downs


Thanks Paul, and both are good ideas. The trouble is the alterations that need to be done by the user in adding another course.

Clarification: What I had meant by dropdowns is that a user would select a course on a 2 column dropdown menu on a UserForm, the first button being a chkbox and the second the course. The dropdown would remain there until all selections are made and then the user would select 'OK'. As I saw various problems I opted to go straight from the sheet without a dropdown, and select instead from a checkbox.

I added a copy of my sheet on this, and you can double click on the first column. You can also add dynamically by typing in another course and it still works. The difference is that the code requires a check of the wingding value rather than true or false, but the user doesn't need to know that.

Gary31023