Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ed Ed is offline
external usenet poster
 
Posts: 279
Default Pop Calendar in User Form

I have created a calendar (frmCalendar) as shown below coding:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

And I have the problem when I try to use this calendar to enter the date in
a text box (StartDate) of another Userform:

Private Sub StartDate_Change()

ActiveCell.Value = frmCalendar.Show

End Sub

The calendar pop up but when I click at the selected date, there is no input
into the text box.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 19
Default Pop Calendar in User Form

Hello Ed,

Thanks for using Microsoft Newsgroup Support Service, my name is Colbert
Zhou [MSFT] and I will be working on this issue with you.

If we want to make your selected data appear in the textbox, we need to set
the TextBox.Value instead of the ActiveCell.Value in your codes. Another
place to be modified is that we need to handle the textbox's KeyPress
event, instead of the Change event. The reason is setting value will also
cause the change event fire. So we are trapped in a dead loop. Please try
the following codes which work in my side. If you have any future questions
or concerns, please do not hesitate to let me know, I will be happy to
provide future assistance.

In the formCalendar,

Public MainForm As MainForm

Private Sub Calendar1_Click()
MainForm.TextBox1.Value = Calendar1.Value
Unload Me
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub


In the MainForm,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Set frmCalendar.MainForm = Me
frmCalendar.Show
KeyAscii = 32
End Sub

I also upload a Marco Enabled workbook that implements this demand in my
Sky Driver, please feel free to download it and have a test,
http://cid-c2e0d62e8a095a30.skydrive...blic/Test.xlsm

Have a good day!

Best regards,
Colbert Zhou (colbertz @online.microsoft.com, remove 'online.')
Microsoft Online Community Support

Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
.

==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/en-us/subs...#notifications.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://support.microsoft.com/select/...tance&ln=en-us.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 19
Default Pop Calendar in User Form

Hello Ed,

I am writing to check the status of the issue on your side. Could you
please let me know if the sample works for you or not? If you have any
questions or concerns, please feel free to let me know. I will be more than
happy to be of assistance.

Have a great day!

Best regards,
Colbert Zhou , remove 'online.')
Microsoft Online Community Support

=================================================
Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
.

This posting is provided "AS IS" with no warranties, and confers no rights.
=================================================

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Add calendar to VBA User Form Wanna Learn Excel Discussion (Misc queries) 0 November 3rd 08 05:07 PM
Date field in user form & Loading a user form on opening workbook Balan Excel Programming 1 May 24th 08 03:40 PM
adding date from user form with calendar to next row [email protected] Excel Programming 1 March 4th 08 03:07 PM
How do I format a cell, so the user must use a user calendar? nathan Excel Discussion (Misc queries) 0 January 16th 06 05:26 PM
Loading a calendar (user form) from another project (personal.xls) Ollie[_2_] Excel Programming 1 September 25th 05 09:33 PM


All times are GMT +1. The time now is 04:26 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"