Calendar Form Update
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
NFL wrote:
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" wrote:
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
--
Dave Peterson
.
--
Dave Peterson
|