Passing Calendar DateClicked Variable

[jstevens]

I'm having a challenge passing the DateClicked from a calendar in a UserForm and passing it to a text box in the form. The challenge is with a From and To date and passing the variable to their respective text boxes.

UserForm1.CommandButton1 = "From" uses UserForm1.Textbox1
UserForm1.CommandButton2 = "To" uses UserForm1.Textbox2
Public strDate

Step 1) Click on UserForm1.CommandButton1 to show the calendar form

Code: Select all

Sub CommandButton1()
   CalendarForm.Show
      UserForm1.Textbox1 = strDate    'This is where the challenge is with passing the variable
End Sub

Step 2). In the Private Sub MonthView1_DateCick(ByVal DateClicked As Date)

Code: Select all

'declare a variable strDate
strDate = DateClicked
Unload CalendarForm

Any assistance would be appreciated,
John

[HansV]

Declare strDate as a public variable in a standard module (not in either of the userform modules):

Public strDate

[jstevens]

Hans,

That did it.

Regards,
John