AleemAM123
04-02-2011, 06:09 AM
Hi everyone,
I'm trying to create a form for data input and I want a calendar popup when you click on a particular column, column C. I have gotten it to work for one cell, C15 (the code for this is under sheet1.
The orignal excel sheet came from this site: http://www.fontstuff.com/vba/vbatut07.htm
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errH
Application.EnableEvents = False
Select Case Target.Address(0, 0)
Case "B15"
Range("B218:B219").Select
Case "C15"
Call OpenCalendar
'Case "C15"
'Call Macro2(Target)
Case Else
GoTo errH
End Select
errH:
Application.EnableEvents = True
Is there any way to do this?
The other thing is I wanted the user to be able to select a date and a time from the same control. Is there a calendar that shows the time as well?
Thanks in advance.
I'm trying to create a form for data input and I want a calendar popup when you click on a particular column, column C. I have gotten it to work for one cell, C15 (the code for this is under sheet1.
The orignal excel sheet came from this site: http://www.fontstuff.com/vba/vbatut07.htm
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errH
Application.EnableEvents = False
Select Case Target.Address(0, 0)
Case "B15"
Range("B218:B219").Select
Case "C15"
Call OpenCalendar
'Case "C15"
'Call Macro2(Target)
Case Else
GoTo errH
End Select
errH:
Application.EnableEvents = True
Is there any way to do this?
The other thing is I wanted the user to be able to select a date and a time from the same control. Is there a calendar that shows the time as well?
Thanks in advance.