Add one line in the click event

Private Sub Calendar1_Click()
UserForm2.ActiveControl.Value = Me.Calendar1.Value
UserForm2.ActiveControl.SetFocus
Unload Me
End Sub


Good night



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Hi Steen

Try this basic example

Add two userforms to the workbook
One with only the calendar named Userform1

Add this code event

Private Sub Calendar1_Click()
UserForm2.ActiveControl.Value = Me.Calendar1.Value
Unload Me
End Sub

And one with the name Userform2 with this code

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.Show
End Sub


Run the userform named Userform2 to test



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steen" wrote in message ...
Useform

"Ron de Bruin" wrote:

Hi Steen

Userform or Sheet ?

See this page
http://www.rondebruin.nl/calendar.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steen" wrote in message ...
Hi

Im pretty new in VBA but have managed to create the Calender following the
information given in http://www.fontstuff.com/vba/vbatut07.htm. Now i wood
like to use this for inserting dates in a form (Start Date and EndDate). I
have created the form and made all the code and is seems to work. I am using
to txt fields for entering the start og end dates. I woold like the Calendar
to be the only tool used for entrering dates (no manual date written) - how
can I do this task?

/Stony