Userform with Calendar

[LearnMeExcel]

hi
in my Userform i have 3 textBoxes
project_name
Date_From
Date_To

Private Sub Project_name_AfterUpdate()
Date_From.SetFocus
CalendarForm.Show
End Sub
Private Sub Date_From_AfterUpdate()
Date_To.SetFocus
CalendarForm.Show
End Sub

when calendar activate in Date_From
i whave this code

Private Sub Calendar1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = 13 Then
    ProjectOfrm.Date_From.Value = Calendar1.Value
End If
Unload Me
End Sub

the problem is
when Calendar form activate in Date_To
what is the code to insert calendar date in it

 

[LearnMeExcel]

i think the best solution to design two form for Calendars
to be the other code

Private Sub Calendar2_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = 13 Then
    ProjectOfrm.Date_To.Value = Calendar1.Value
End If
Unload Me
End Sub

i wish if any one have another idea to add it here

 

[AlphaFrog]

Put this in the UserForm module that has the three Textboxes (UserForm1 in this example)

Private Sub Project_name_AfterUpdate()

    Date_From.SetFocus
    CalendarForm.Caption = "Select Start Date"
    CalendarForm.Show
    
    Date_To.SetFocus
    CalendarForm.Caption = "Select End Date"
    CalendarForm.Show
    
End Sub

Put this in the CalendarForm module...

Private Sub Calendar1_Click()
    [COLOR="Red"]UserForm1[/COLOR].ActiveControl = Calendar1.Value
    CalendarForm.Hide
End Sub

 

[LearnMeExcel]

thanx Alpha
but there is problem
the first date insert in the first textbox "Project_name"
not in Date_From
The Second one insert in correct place in Date_To

the code in ProjectOfrm

Private Sub Project_name_AfterUpdate()

    Date_From.SetFocus
    CalendarForm.Caption = "Select Start Date"
    CalendarForm.Show
    
    Date_To.SetFocus
    CalendarForm.Caption = "Select End Date"
    CalendarForm.Show
    
End Sub

and in calendar form

Private Sub Calendar1_Click()
    ProjectOfrm.ActiveControl = Calendar1.Value
    CalendarForm.Hide
End Sub

what should i do ?

 

[AlphaFrog]

Private Sub Project_name_AfterUpdate()
    Date_From.SetFocus
End Sub

Private Sub Date_From_Enter()
    CalendarForm.Caption = "Select Start Date"
    CalendarForm.Show
    Date_To.SetFocus
End Sub

Private Sub Date_To_Enter()
    CalendarForm.Caption = "Select End Date"
    CalendarForm.Show
End Sub

Private Sub Calendar1_Click()
    ProjectOfrm.ActiveControl = Calendar1.Value
    CalendarForm.Hide
End Sub