Popup Calendar Problem

[wsautrey]

Excel 2010
When I select the target cell/s the calendar appears and I am able to make selection on calendar. However, after date is selected on calendar I have to click on the date in the control to force the date to transfer to cell and make date control (DTPicker) go away. Would like to have the date appear in target cell after date selection in control and calendar to exit afterward without having to select the date again. I originally used this code in Excel 2003 but calendar control is no longer available for usage in 2010. I am sure the code needs to be tweaked to make the transition to 2010.

Thanks!



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

Set rng = Intersect(Target, D010.Range("IncidentDes"))
If Not rng Is Nothing Then
Load frmTextEntry
frmTextEntry.Show
D010.Range("SC1").Select
Else
If Not Application.Intersect(Range("AZ69:AZ77,K6,K7,K81,AQ81"), Target) Is Nothing Then
DTPicker21.Left = Target.Left + Target.Width - DTPicker21.Width
DTPicker21.Top = Target.Top + Target.Height
DTPicker21.Visible = True
' select Today's date in the Calendar
DTPicker21.Value = Date
ElseIf DTPicker21.Visible Then
DTPicker21.Visible = False
End If
End If

End Sub
__________________________________________________________________
Private Sub DTPicker21_Click()
ActiveCell.Value = CDbl(DTPicker21.Value)
ActiveCell.Select
DTPicker21.Visible = False
End Sub

 

[VoG]

The Excel 2003 Calendar Control works fine in Excel 2010 (32 bit). You can download it here http://www.fontstuff.com/mailbag/qvba01.htm

 

[wsautrey]

Am using 64 bit on this machine. Do you see anything wrong with this code to prevent it from doing what I need? We are moving to Windows 7 / Office 2010 at work and I am pretty sure it will be OS will be 64 bit. Not sure about Office.

 

[VoG]

The code looks like it should work so I'm not sure why you are having that problem.

The Calendar Control works in Excel 2010 (32 bit) running under Windows 7 64 bit but it needs special installation instructions - see second post by Jay Freedman http://answers.microsoft.com/en-us/...-control/03ad5d05-ca3f-4081-9989-e757223ebdde