PDA

View Full Version : VBA Calender - Add Date to Text Value instead of Activecell



malleshg24
03-02-2021, 07:19 AM
Hi Team,

I have one vba calender the code adds date to Active cell , I need small Modification here.

Instead of Activecell , date should be printed on Forms text box.


So in short - Open forms from main module, Calender to pop up,

user will select date and should get printed on Text boxes on forms, and will save that date in a Variable.


I unable to do it on forms. Below is attached macro file.



Thanks
mg

Paul_Hossler
03-02-2021, 07:48 AM
try this

malleshg24
03-02-2021, 08:21 AM
Hi Paul ,

Thanks for your help, I want calender to open after clicking on click event on forms command button,

Whatever date select , date should be printed on text box.

Steps
Click on Assigned Macro Button( Shapes here)
Forms to display
user will fill form
user will date via clicking Select date command which is on forms.




http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATQAAADMCAYAAAD9N19fAAAZN0lEQVR4Ae2d/c8dxXXH54/oX1CpJlHtH2rnWv2l/aG8CdO6INSCQTWbxK30pJUpUikFjG216uO2OLGj2AVMDG4cjJ3rRNAGhcQJgeAUOy 3DY6EEoH88jgEqlZ91PYnJHSqM7tn7 zc2b337tvMnftFGu3uvJyZPfOdz57Zu35Qz3zjEiHBB9AANNCWBn5/w4C dewZ r9LP o1cZ/q Cs/JST4ABqABtrSwI2/8qv0vz/5AX1w5ou9Ju5TPfvNnxISfAANQANtaYCB9j jC/TLU0/T y9kic zJPl81OdS9oJ1rfOP0funjo1tnTqW2uQyyzb3qb786s8ICT6ABqCBtjTAQFv/4Xl670tHJ9PJcd6Tj 6hu/7wT/L05KOP0Xsnj9Jk/h6d77SX9fGLLx3Vfarnv/tz0unv7ialVJbupr UfOfxi/Q76jfoj76ctXXWqVPGdmUM6fHX/vRcOr7W qgzrrI2ZX6w76MtX5X1VzY 5Of6DlI/cc4PA 2/L7xO1589TNePp2nt2cPESa75yDAz/ Prf3z4EWc 21o7nqbcBtuTdPyw7lO98No79MLze2iDuoce5vPseuffZ eSVzgepxvVZtr5fFWdsrKqtnYZXytSv3s8HVdhDKZ9u51Z1uV5Wb/F/EN/tpnUr hQ6Xjn3WMRbt6ruay2bT9rONEvfnnJh6fMdD 6/x36NpTT9DVp7P01EG6yomvs/yjDz2s4fXRRx RJIaanPORr7ket7uW2ZLj1afZ3sE8n/tUp19/l07/ww5SGx nz/P5TOk43aQ20/2nZq1v1qtq6yg79ThtUDvoryrH5WhXWd8cT5Pzsn7tfPu6bp9N7TRtX3fcaDfbuorDTwK0y0cP0 OUjB4iPV7Ik5/p45AAd YuHNLQ /PBDshPDjMu1HWl/JLUleXK8cuSAhqg688a7dOYNFrqiDbtfpfSa87J0moEi28Ad9EhefzPdf7qqDpe9SvdvlLaKbno i7Sff2m4/Pu7HZVfnpTZueiLt65HtY3tKty x6Rx3Nt7s3iZtcXm26HfvyLfgBb8YdjfsfjwFu/ghs5vbyPMzm/o6Pb9p 2ZSKvOnYZN9I/eq58AoK/Zn2jTGnfc5r LvsnnP78nlMMns2mAgfazY5 jV27cOFP669 7XUPtgw8 IEkMM86f1QbX4z7V8PxlStNrlGTwufmg5D1HN6vNlJzOrg/uoA27X6PheTPfPL9Mw7xOai tL/b4aNXP y8rS 2MxyS2TDvmucNOPiZpax/N9nyuSG1/LvXLQQbbDnpUjzMtk7F8YTdDyfBPfi mvcuk623cS18wbIz9UrQ5PL2XNuQ2i2XF/op9FP1ax/e2T3A9XhvwxTy mAdoArNr166RneaFmgba2e9foUI6s5duUIpu/uwVOpud5xFVttDPfj9dTJ88U1FHt72XHrPtm21nKnudPrlxM m uP5n780jJ4ZJmm Mh uUjtu611lsmeNluwymfNxWv4V8I5JUph sNg4/Pbbd8H9pf5Yde5yFPuW 7TaSj2NhDeTzCL/U8YsA7dxtW hb27bQuW3pUc7PbfsEnbvtE/Q3d27Xkdk777xDkhhics5HvuZ6XF/bY5u3sc30mvMkaaB97c2rZKejf76F1B0n6Gtf2Uc3qHtpz0SdE3SL2kKf srV8jqztK2yK2WmHfP8zdfpU5uyMbxpjIfbFepN3p 30KdClumbW6zaR8dlbGZZXke92eNp6qsMI50rHvuUHTL57L7KO3P7sO4dthM59ioUxhTiY9QZ2J t2GsF15PaYaD9/Pjn6bt3/XZJ i2dz7B6 2388TXf/sHd2mI2fnltsZ9cJ/qxQvX6MVD nTZ6 RPr/wPfr0JkU3PPg9evHCP9EtSs6lnI cvyVrU1bHtFPW1sy37cq1olsOZfUO3Udq0356ksd8dj/dUBiDjGfcLr2HrC23MdNctsR2eq8ynicf3EIqH4Np3/SPmc/ndlnRZnpf99FePdZiWbG/1L8ylhf5fvKx1PG9PU5cF/RiagfnxbVk YOB9u7Jp j8zm30xs7bdTp//zbSaec2nc9lB 7doeHFIOPE1 d33l6az2W5DbbH1zqlNrlP9dLF6/TSxZN0a/7iX5G68ySl dfppa/up49NlHH9LbTrq9y2rM6k3VsPp/X33Zltx8x XOMw 9Dl52nXpqztpvvo1k3jMUzYdI47G2 lLevetG/G/bx0mMGRjuFjD 4v kHblfs22uT5JWWFsVrtqvozytSd91ljKc7pdN bvsF5rv/C3MEvs/iFgXZleIIufuZuuviZe6wkeenxBytmuZTdQxd1vnGt7cg1H miytZyvrgPtU///AXhAQfQAPQQFsaYKBd//qQRg/t6jj9MY0e4pT2w32qf/nRe4QEH0AD0EBbGmCgvf dl mtfQ/QW3sfoEv7HqBLfNybXnPeW/t2p W6zm56a 9uupTnpde6vc7Lrvdm9TI7tk3uU339x 8REnwADUADbWngjo//Jn372DP0n//6Wq J 1Qvj35JSPABNAANtKWBZ557mfhvonGk1mfiPtU3/u19QoIPoAFoIAYNqFf /QNCgg gAWggBg2ob/7kPwgJPoAGoIEYNKDW19fJTvydlZ1nXqMc/jH1YJ9DH9CHrQnzukt9OIFmdo7zSeDDJ/AJNBCmBgA0R4QKsYYpVswL5mWaBgA0AK3y9cI0AaEckAlJAwAagAagQQPRaABAg5ijEXNIkQLG4 idyBdAANAANGohGAwAaxByNmBEV YmKQvK7E2hdfifCNw/7 E6pahFAH9BHXX04gVZlDGV4CkID0ECoGgDQsOXElhMaiEYDABrEHI2YQ40aMK7 IloADUAD0KCBaDQAoEHM0YgZkVB/kVCovgbQADQADRqIRgMAGsQcjZhDjRowrv4iRyfQ8B0QvgOqWoRN9UH4z5sHVlZWov4O1Am0KjG jrL nTay 5tW8traG1LMPTpw4QQy0WHXF9wWgYcvZu8AFaDEvrBDvDUDDYu99sYe4ENoeE4DmJ8oH0AA0AK0 DDQBoAFrbD0mxhy1nBwtWnIuje ECaG6/dK0XRGhY7IjQOtAAgAagdQVvRGgdLNiuJisWuwAagNaVlp1Aa/qdUejtd 3aRUj1fdB0fgE0v0BrOn8ht3cCrSt6hmKXYRbKWBZtHG34DkDzC7RF09w84wXQsOWcC 4Amh8YzbOoy riR4FIF/tci3J0gLZuPUCjWX0xb/1Z7QZSby7flYzZa4Q2WqXBYHX2 Sy5hzJohJwPoEU0mabQeFHODKl5AeWsP6RkHigG7PcggcaQUkr/G0V vzNYHZVHnXWBVtbO6pv7T4YzRHFl9jqcewCtQ eagOn7vE gjQ5sTRcagJZDpt0IbUiJGtDqSCAypCQZ5n1NaKsuSMra2fl8PQvU7HY9rDUArQcnTwiuhz7LgJ bDRz/tt9IBXiQ64koo2SoRQJbP4 SyPDIw61tbVGfUJgtwsY7hRWgMtISGLt1kcOGoSQn0TJC4yrUdtinzzRHXiFYH4 tCBGjakzEYeaPVQR455mNYd9grHUt7 gDQZIIiO5YBrQDXYUKKn/QaWmOIaejpaMtaSAItOZo c WZ5Qt0Hh7Q1mmYZLApRGb2/GTvznLYlJRnsJnYNubtLMA48y3bMr iKb4utLPqF8qs/sRWjePSAi3k70wYOk3HVwo0Da/xk1gxuGwY6ToJDe26 ome5dvbS9tGDTEWYOuxPfuuqf/b3XIaC56BwfOgH0TF92o6nyM5gQUfjShsotz2sbSbKd8AlN2P/CBh2rPriJbsvhpeC9Cazl/I7Zf2s42JHwU0oMaRWLrVnAI0G1wsOBe8XHkNxekLcCFGaEVfZDAxgWH6WvLlaJbp Sv5FXSe lKXj7LVtW1LHTvfHk L1wK0or MB0KLffnqA0CTSbSgk28tXfl6a8MLx/GLllVfT6wrT/pdsGNwQGMwmFvNHBRl8yPAKimv2nK63tXl/QkYDLtWmX6fZkZouT2jTYd6ANA6dK4vgnO/estZ2G6kL5XzdzFK0dYkST/tYBiZdc2ozFVmwav4Q4MDgAvm4 CAZr1gH794z95TmXPHMDEhw d2Oc HlS/v00QfEz8KmDbMiGzdeL/Hn5MkSeEbuII9q08l4GtRHwBai870CTC77zYWpW1zWa7b8F1n79Ai1Wtb2gLQIhVIG4uyLZEtmp 02fAegyfa03yOABqCVf6AZqW mARZA6xdC0 ZjnnIALdJF28ainEdIMdVtw3eI0PxAcWmBFvJ3JgyHpuNrY1HGBKl57oV919T/AJpfoDWdv5DbL 1nG/MsYtQdL8A2HgYA2tiffWpraSO0Pp3so682FqWPcYfQZxu A9AAtK60jAgt0veEXQkGQPMDozbmExFapIu9jUXZhsAW0UYbvkOE5geKABqAhs82LA0AaH5g1Mb DD0CzxNyGU0Ow0caiDOE fIyhDd9xhMaLC6l/H6ysrET9kF7ad2i8MJHq aApSHlRIfnzQdP5C7m9E2ghf2fCzsT4VOVTFv6Bf6qgE7M nECrcgbKFvcdCuYOcxe7BgC0SN8Txi5c3B/g7NIAgAagVW5fXaJBHmASqgYANAANQIMGotEAgAYxRyPmUKMGjKu/iBZAA9AANGggGg0AaBBzNGJGJNRfJBSqr51Ai/k7FZ4I3B 06pakNDH4urDCbSqyUYZnoLQADQQqgYANGw5seWEBqLRAIAGMUcj5lCjBoyrv4gWQAPQADRoIBo NAGgQczRiRiTUXyQUqq8BNAANQIMGotEAgAYxRyPmUKMGjKu/yNEJNN/f4eAvmfb/l0zF5/zXZH3P/7T eYz4rxsP8B/enOb/kMudQPP9ROHFhb9o2v9fNF1bW9OrxPf8T ufB8ljRWrXB7Lupvk/5PKggdbNMyhOq00XNz9AFg1oIS sRRwbgNbR ydxbJzo6eauBEZ1rIu/xUboi5Hvkcca jgXbXyig0UbtzleRGh1CBBgmyYwEiE3sWGKqutzAK2bl yig67nr0v7AFqAcKozpCYwEiE3sdGlSG3bABqAZmtCrgG0OvQIsE0TGAFo3QBCFtmiHEUHizJe1 zgBtADhVGdIABqg5Frg8 RFCzTf35mIY ss7GVt0ybQfM//tP55jvl 51msqDsd LLupvk/5HJEaJEQsE2ghb74AbTpcKozhwK0Om1DaQOgAWgkQm4CxT4FDaABaGV6A9AANABt1u8pR6s0GKz SaNb6C1ZPHmxlsFiEfAANQFtuoDGklNL/fpHfDQ1WR Xv5uoCraqdq/ q h1CEkDryLni2EhY08ttNNkuir b2Ojz6c0O5bE273NIiRrQ6ki2cENKkmG53bqgKW03Z/8drTfxo hArhfxiAitF9x030kTGImQm9joU/ztAi2hoQsUhcgpg54JJle5tsOQGkd8yXBEq4PxdTEC5LqO/qUffUwoydqbtpKhQLi9o igz7lsuy8ArXvW9NJDExiJkJvYaFuYVfbaA9o6DZMMNoXIzAJNATD8Dq2kfD2F1wRspL0DnM7 pT4fJYIcJqTM8w7e5YkOqnwfepkTaL6/MxHH9kKCSDppAiPxt9jwPf/T m8TaPkC1cBQpBhsGiTjqIrHoziSKoCmotwGl7Sz881ru38Gltmu7Ny00fBcdDDN/yGXO4GWT3JDB9W1I46NhDW93IbAqI7Pxd9NbNTpt26bToCmtZ5FXiY8zDUg XI0y/h83ny7vUR YkeOtm0zf8JG/S2o6KDuvITQDkDrBTfdd KCURpZ2JFEem2KT4TssmHWC W8NaAxGMytZg4KBpui8q1jSXnVlrPsXZmrfxmHHAG08h9qLKADaN2zppceymDkgpoNpqUFWgags Y MXzwZJsbLfeXaAtrlAh4jX6Ao78qKPwoUfzDI35EJyOQoduW9mZlvLWh7bue5Fh3M0ya0ugBaL7 jpvpMyoLHgxgtWOZ90IuQqGyEJl73JYw1pTDGMRXSwyPcCoHXPml56mAYjhlqZUEXI02yUte87H 0Cr/56saq5EB1V1Qi8D0HrBTfedNIGRCLmJjT6FDqABaGV6A9C6Z00vPTSBEYDWDSDKFl2o aKDUMc3y7icQKvanrDRrsvFsb2QIJJO2gRa1/Pb1D5PGd/vLAJHndlhLeuu6fz4bO8Emm8RiGMjYU0vt9Em0HzP/7T AbTZITXNl2a5rDszb9HOAbRecNN9JwBaN4t80RZ0k/ECaC1 A2NOhDi2ewzE0wOABqCZa6jOuay7Om1DaYMILRKmAWgAWlOoAGiI0ILBIYAGoAFo64QILRgkNRv IsgGNowmk9n2wsrKy0L8eA2jNOBJM62UCGi86pO580DTS89neCTSf35GwM2QvHwwtFmAgbQLN9/yj//J/psbrA/4p948TaD4JC6DVo2ebQPM9/ gf7wPragBAq8eP4FoBaIBAXQjE1A5ACw5N9QYEoAFoMYGp7r0AaPX4EVwrBlqTX/34JXsTKNYVINoBxG1qAEALDk31BtTGr34AGuDSJlx82AoWaLy4kPr3AePUhxDRJ2DahgaCBFq9G AWt2vJAG8KCDQDKhwacQMN3LuXfufAkwT/wT9VihT786cMJtKrJQhmevNAANBCqBgC0jv6BfagTjnEBRjFrAEAD0PAjADQQjQYANIg5GjHHHH ng3maLrAE0AA1Agwai0QCABjFHI2ZEMbNFMTH7CUAD0AA0aCAaDTiBhu9o/H1Hw09P B/ r4qioI9yfTiBVuVMlCGshwaggVA1AKBhuxHNdiPURYZx9fcAANAANAANGohGAwAaxByNmBEJ9Rc JheprAA1AA9CggWg0AKBBzNGIOdSoAePqL3IE0AA0AA0aiEYDTqDhO5fy71z4aQv/wD9VURf04U8fTqBVTRbK guf4Wv4GhqYTwMAGrYb0Ww3sPjnW/wx gtAA9AANGggGg0AaBBzNGKOMeLAPc0XdQJoABqABg1EowEADWKORsyIZuaLZmL0F4AGoAFo0EA0 GnACbdm/o2nrf9gLO/N7YGVlBd/5KX/fcXHUtsjr3wm0GEPRee6Jl Ha2hpSzz44ceIEMdDmmSvUxTbT1ACA5thuCNBMR G8 4UDoHXv49h1DKABaMFERAAagNYUuAAagAagOTTQdGGhvR84A2gOMWPL6UeMiND8 D0m AJoABoiNIcGYlrky3QvAJpDzIjQ/EQKiND8 D0m4DmBtsjfofDkNB0/gOZnYQnQms4f2i/vd2xOoMVE7Dr3AqD5BVqdOUMbP3MWmt8BNGw58Q7NoYHQFirGMxuwATSHmBcmQhut0mCwSiPHPS ziApAt5yKOHWOeDThd wlAc8DAK9AYUkrp94D8LmiwOiqPoOoCzWxnnjt80bUATfsAWhhQMOdk0c4BNMci9ge0ISVqQKsj EfaQkmTYPtDMewbQyv1r gnnC EnAM0hVL9AS2hoj8mGjlzrY0LJQCK6DIZWfjIc0WpWJxmu07q0Xx/nT40G7TF1cI0ITR5kONaNDAE0x8L0B7R1GiYZnMzILAdQJnS55qMR0Y1WB6T4nZqZP0xISR0 l3J59ya2HH6oK6q67QA0gKyudqSdE2jL/h2PT6DJxKxrEClSDDYbOnItR4ERX6uEhma 69yVJzY8HgVoy64/3H/97 icQMsXlUdx xxDEEDTvud3ahagOF AJEeZJ76265t15FyOpi2x4fEoQPM59 h7saNEAM2xgL0BjUHj2mpyPoMqG2thaylbx/V10vl2ROeCl51n2Pa5oAG0xYaJT 1I3wBaSECzXtLn774EVtnnHIMkSb8/06CTHwRU n6M78cGlkBP8uWY3bu8t6v8RMThJxFRW0cADUBrqiUAzbFQvUVojrE0neBFag gAWhN9QqgOSACoPlZWACaH783hUhI7QE0AC2YDyYBNACtKRwBNAANQHNooOnCQns/cHYCbdm/g8GW048YJUJbdv3h/vEdWqtRBoDmF2iIbvz4Pwa/OyO0GG6syT0AaH4WlERoTeYObf3MXSh B9Ac708AND LAkDz4/dQYNTGOAA0AK3V7XoTUQJoAFoT/XBbAA1AA9AcGmi6sNDeD5wBNIeYecvJ0QJS/z5YWVkJBrCAkh8oNfE7gOYAGi8qJH8 aCJotF08CLU5Z06g4TuY t/B8OTAf/Bf1SKFPrrThxNoVZOBsuV AmL Mf8hawBAc2w5Q54wjA1AgQbKNQCgAWh4CQ8NRKMBAA1ijkbMiFzKI5dl8Q2ABqABaNBANBoA0CD maMS8LFEI7rM8EgXQADQADRqIRgNOoOE7me6 k GnK/wL/1ZFWdBHfX04gVblbJSVh7vwDXwDDfjVAICG7UY02w3AxC9MQvA/gAagAWjQQDQaANAg5mjEHEKEgDH4jRIBNAANQIMGotEAgAYxRyNmREd o6MQ/A gAWgAGjQQjQacQMN3MPW/g GnFPwH/1VFK9BHd/pwAq1qMlCGsB4agAZC1QCAhu1GNNuNUBcZxtXfAwBAA9AANGggGg0AaBBzNGJGJNRfJBSqrwE0A A1Agwai0QCABjFHI ZQowaMq7/IEUAD0AA0aCAaDfw/ZV5kqB/VmVoAAAAASUVORK5CYII=

Paul_Hossler
03-02-2021, 09:16 AM
How does this differ?

28040

28041

malleshg24
03-02-2021, 12:23 PM
Hi Paul,

Attached is the Amended file, this way I was looking,


needs to add click event for submit and cancel,
for submit value should printed in a cell value
and for cancel macro shoud exit,


But still there is some issue , date is not getting printed in a cell value.



Thanks
mg

Paul_Hossler
03-02-2021, 01:24 PM
Uncomment this line and see if it works




g_sDate = CDate(CmdBtnGroup.Tag) ' <<<<<<<<<<<<<<<<<<<<<<<<<<