Calendar Form Update

N

NFL

The calendar is named USERFORM1 and here is the code for it.

Option Explicit

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"

End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

I have another form called NOTES and what I like to do is when I select a
textbox I would like enter a date by using the calendar. Here is the code I
have in my textbox.

I removed the 2nd entry because I would always get a 12/12/2003 date in the
textbox. The calendar works great, but I can't select a date. Thank you for
your help!

Private Sub TextBox60_Change()
UserForm1.Show
'Me.TextBox60 = [UserForm1].Calendar1.Value

End Sub
 
D

Dave Peterson

I'm not sure what you're doing and what code goes in what userform module...

But I'd try this in Userform1.

Option Explicit
Private Sub Calendar1_Click()
with ActiveCell
.numberformat = "mmmm dd, yyyy" 'unambiguous format for testing!
.value = me.Calendar1.Value
end with
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = format(Date, "mmmm dd, yyyy") 'unambiguous format!
End Sub


But I don't understand what you're doing with the other stuff to guess.
The calendar is named USERFORM1 and here is the code for it.

Option Explicit

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"

End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

I have another form called NOTES and what I like to do is when I select a
textbox I would like enter a date by using the calendar. Here is the code I
have in my textbox.

I removed the 2nd entry because I would always get a 12/12/2003 date in the
textbox. The calendar works great, but I can't select a date. Thank you for
your help!

Private Sub TextBox60_Change()
UserForm1.Show
'Me.TextBox60 = [UserForm1].Calendar1.Value

End Sub
Click to expand...
 
N

NFL

I'm working with 2 forms.

Userform1 is 1st form where the calendar is already made and the other form
is called NOTES:

With NOTES opened, I would like to enter a date in the textbox by using a
calendar from Userform1.

Hope that makes sense...

Dave Peterson said:
I'm not sure what you're doing and what code goes in what userform module...

But I'd try this in Userform1.

Option Explicit
Private Sub Calendar1_Click()
with ActiveCell
.numberformat = "mmmm dd, yyyy" 'unambiguous format for testing!
.value = me.Calendar1.Value
end with
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = format(Date, "mmmm dd, yyyy") 'unambiguous format!
End Sub


But I don't understand what you're doing with the other stuff to guess.
The calendar is named USERFORM1 and here is the code for it.

Option Explicit

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"

End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

I have another form called NOTES and what I like to do is when I select a
textbox I would like enter a date by using the calendar. Here is the code I
have in my textbox.

I removed the 2nd entry because I would always get a 12/12/2003 date in the
textbox. The calendar works great, but I can't select a date. Thank you for
your help!

Private Sub TextBox60_Change()
UserForm1.Show
'Me.TextBox60 = [UserForm1].Calendar1.Value

End Sub
Click to expand...
Click to expand...
 
D

Dave Peterson

Both of these userforms are open.
Userform1 contains the calendar control.
Notes contains the Textbox.

This is in the Userform1 module:

Option Explicit
Private Sub Calendar1_Click()
Notes.TextBox1.Value = Format(Me.Calendar1.Value, "mmmm dd, yyyy")
End Sub





I'm working with 2 forms.

Userform1 is 1st form where the calendar is already made and the other form
is called NOTES:

With NOTES opened, I would like to enter a date in the textbox by using a
calendar from Userform1.

Hope that makes sense...

Dave Peterson said:
I'm not sure what you're doing and what code goes in what userform module...

But I'd try this in Userform1.

Option Explicit
Private Sub Calendar1_Click()
with ActiveCell
.numberformat = "mmmm dd, yyyy" 'unambiguous format for testing!
.value = me.Calendar1.Value
end with
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = format(Date, "mmmm dd, yyyy") 'unambiguous format!
End Sub


But I don't understand what you're doing with the other stuff to guess.
The calendar is named USERFORM1 and here is the code for it.

Option Explicit

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"

End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

I have another form called NOTES and what I like to do is when I select a
textbox I would like enter a date by using the calendar. Here is the code I
have in my textbox.

I removed the 2nd entry because I would always get a 12/12/2003 date in the
textbox. The calendar works great, but I can't select a date. Thank you for
your help!

Private Sub TextBox60_Change()
UserForm1.Show
'Me.TextBox60 = [UserForm1].Calendar1.Value

End Sub
Click to expand...
Click to expand...
Click to expand...
 
N

NFL

Thank you!

Dave Peterson said:
Both of these userforms are open.
Userform1 contains the calendar control.
Notes contains the Textbox.

This is in the Userform1 module:

Option Explicit
Private Sub Calendar1_Click()
Notes.TextBox1.Value = Format(Me.Calendar1.Value, "mmmm dd, yyyy")
End Sub





I'm working with 2 forms.

Userform1 is 1st form where the calendar is already made and the other form
is called NOTES:

With NOTES opened, I would like to enter a date in the textbox by using a
calendar from Userform1.

Hope that makes sense...

Dave Peterson said:
I'm not sure what you're doing and what code goes in what userform module...

But I'd try this in Userform1.

Option Explicit
Private Sub Calendar1_Click()
with ActiveCell
.numberformat = "mmmm dd, yyyy" 'unambiguous format for testing!
.value = me.Calendar1.Value
end with
End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = format(Date, "mmmm dd, yyyy") 'unambiguous format!
End Sub


But I don't understand what you're doing with the other stuff to guess.

NFL wrote:

The calendar is named USERFORM1 and here is the code for it.

Option Explicit

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"

End Sub

Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub

I have another form called NOTES and what I like to do is when I select a
textbox I would like enter a date by using the calendar. Here is the code I
have in my textbox.

I removed the 2nd entry because I would always get a 12/12/2003 date in the
textbox. The calendar works great, but I can't select a date. Thank you for
your help!

Private Sub TextBox60_Change()
UserForm1.Show
'Me.TextBox60 = [UserForm1].Calendar1.Value

End Sub
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

2nd question - Calendar Control 8.0 2
Adding Date to another Cell 2
Calendar control code 3
Calendar Control Action 2
Calendar staying open 6
Date showing as numbers in Textbox on Userform 2
“Calendar Control†to Insert Dates 4
Userform, Calender, Problems with Todays Date 4

Top