Private Sub Calendar1_Click()
UserForm5.TextBox1 = Calendar1.Value
UserForm5.TextBox1.SetFocus
If UserForm6.Caption = "date" Then
UserForm3.TextBox1 = Calendar1.Value
UserForm3.TextBox1.SetFocus
Else
UserForm6.Caption = "date1"
UserForm3.TextBox2 = Calendar1.Value
UserForm3.TextBox2.SetFocus
Else
UserForm6.Caption = "date2"
UserForm3.TextBox3 = Calendar1.Value
UserForm3.TextBox3.SetFocus
End If
UserForm6.Hide
End Sub
ممكن المساعده ولكم جزيل التقدير والاحترام