How can i pop up date for picking date of Birth when i click the cell [SOLVED]

[Kutty]

Hai Everybody!

Can anyone help me in raising automatic pop up in excel 2007 for pick up student date of birth without typing date.


https://docs.google.com/file/d/0B4zwT0SgmWDtOE1VdThsN2o5a2c/edit?usp=sharing

 

[Luke M]

Check out this tutorial:

http://www.fontstuff.com/excel/exltut02.htm

 

[Kutty]

Thanks @Luke M


I will try it.

 

[Kutty]

@Luke M

I tryed that, but cannot get it to respond to navigation by keyboard. Is there something else I need to know to achieve this?.


I'm looking to have it resemble those kind of calendars that you typically see on airline/hotel websites when booking a reservation.


Thanks!

 

[Kutty]

I want to popup in a particular column.. for example., Column B1: B10 like that.. when click with in particular cell in column B then the calendar will pop up automatically.. from that calender i picked up into that particular cell... likewise i'm looking that calendar.


Thanks!

 

[Luke M]

I am a little confused...if the user is using the keyboard already, they can type the date. The calendar control is used for people that prefer using mouse control (so they can click on a date). Or have I misunderstood completely?

 

[NARAYANK991]

Hi Kutty ,


The link posted by Luke has everything ! Include the following code in your Sheet section where the calendar control is placed :

[pre]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("$B:$B")) Is Nothing Then
Me.Calendar1.Visible = False
Exit Sub
Else
Me.Calendar1.Visible = True
End If
Me.Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Me.Calendar1.Top = ActiveCell.Top
End Sub
This will ensure that the calendar control will be visible only if the cursor is in column B.


The point Luke was making is that to go from the worksheet cell to the calendar control requires you to click on the calendar control ; once you do this , you can again use the keyboard cursor control keys to move between the days on the calendar control. But to enter the chosen date into the active cell requires you to add the following code also :

Private Sub Calendar1_Click()
ActiveCell.Value = Me.Calendar1.Value
End Sub

[/pre]
Navigating within the calendar control is by means of the cursor control keys UP , DOWN , RIGHT , LEFT , CTRL UP , CTRL DOWN , CTRL RIGHT and CTRL LEFT.


Narayan

 

[sdey73]

hi kutty,


i am not sure about what you are looking for, but i think the following link file will help you. download the file, open it, right click on any cell and choose "insert date".


https://www.dropbox.com/s/o61men4r4jf48ip/Calendar.xls


regards

sudipta

 

[Kutty]

Thanks a lot! @NARAYANK991

Exactly your code is working. Thanks to all my dear frnds.. and once again thanks for your support.


Regards

Kutty