Calendar ToolBox in a UserForm

[Michael Vaughan]

Hello Everyone,

I have created a userform that displays the Calendar so that when I click on
it, it will input the date in a Active Cell.
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub

Now, my question is: I don't want to put the date that I click on in an
Active Cell, that works fine. I want to be able to put the date in another
userform. I have another userform that requires a date entry: date1 How
do I click on my calendar and have it go to the Textbox (date1) in my other
Userform??? Is this possible??

Thanks.. mv

 

[Bob Phillips]

Private Sub Calendar1_Click()
Userform2.Textbox.Text = Format(Calendar1.Value,"dd mmm yyyy")
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[metsoftbaby]

Private Sub Calendar1_Click()
Userform2.Textbox.Text = Format(Calendar1.Value,"dd mmm yyyy")
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

If I want to add two date value in two different message box, How can I
do it?
suppose one is purchase date in textbox1.text and selling date in
textbox2.text
is there any way?