Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Private Sub cmdDate_Click() Load frmCalendar frmCalendar.Show Me.txtDate.Text = frmCalendar.Calendar1.Value ' now unload Unload frmCalendar End Sub
Private Sub cmdClose_Click() Me.Hide End Sub Private Sub UserForm_Initialize() If IsDate(ActiveCell.Value) Then Calendar1.Value = DateValue(ActiveCell.Value) Else Calendar1.Value = Date End If End Sub Private Sub Calendar1_Click() Me.Hide End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.