ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Calendar Control 8.0 question (https://www.excelbanter.com/excel-programming/436461-calendar-control-8-0-question.html)

Robert Crandal

Calendar Control 8.0 question
 
Is it possible to restrict the date ranges of the Calendar
Control 8.0?? I only want the year 2009 to be selected
from the drop down box.

Thank you!



Mike Fogleman[_2_]

Calendar Control 8.0 question
 
You can't change what is in the drop-down for years, but you can limit the
year to 2009 on the calendar even if they select another year from the
drop-down. Put the following code in the Worksheet code module that your
calendar is on.

Private Sub Calendar1_NewYear()
Calendar1.Year = 2009
End Sub


Mike F

"Robert Crandal" wrote in message
...
Is it possible to restrict the date ranges of the Calendar
Control 8.0?? I only want the year 2009 to be selected
from the drop down box.

Thank you!





Robert Crandal

Calendar Control 8.0 question
 
Thank you! That code works great. Just what I'm looking for!

"Mike Fogleman" wrote in message
...
You can't change what is in the drop-down for years, but you can limit the
year to 2009 on the calendar even if they select another year from the
drop-down. Put the following code in the Worksheet code module that your
calendar is on.

Private Sub Calendar1_NewYear()
Calendar1.Year = 2009
End Sub




Robert Crandal

Calendar Control 8.0 question
 
Hi again Mike. I just had another follow-up question....

Do you know if I can limit the calendar to only a couple
years?? For example, what if I wanted to limit it
to 2009 AND 2010 AND 2011?? How would the
code look then??


"Mike Fogleman" wrote in message
...

You can't change what is in the drop-down for years, but you can limit the
year to 2009 on the calendar even if they select another year from the
drop-down. Put the following code in the Worksheet code module that your
calendar is on.

Private Sub Calendar1_NewYear()
Calendar1.Year = 2009
End Sub



Mike Fogleman[_2_]

Calendar Control 8.0 question
 
Private Sub Calendar1_AfterUpdate()
If Calendar1.Year 2011 Then Calendar1.Year = 2011
If Calendar1.Year < 2009 Then Calendar1.Year = 2009
End Sub

Mike F
"Robert Crandal" wrote in message
...
Hi again Mike. I just had another follow-up question....

Do you know if I can limit the calendar to only a couple
years?? For example, what if I wanted to limit it
to 2009 AND 2010 AND 2011?? How would the
code look then??


"Mike Fogleman" wrote in message
...

You can't change what is in the drop-down for years, but you can limit
the year to 2009 on the calendar even if they select another year from
the drop-down. Put the following code in the Worksheet code module that
your calendar is on.

Private Sub Calendar1_NewYear()
Calendar1.Year = 2009
End Sub





Robert Crandal

Calendar Control 8.0 question
 
Ugghhh..... Guess what Mike? I can't use Calendar Control 8.0 at
work. I can only use Microsoft Date & Time Picker 6.0.

Do you know how to do this same thing with MS DT Picker 6.0?
I tried the following code below, but it doesnt seem to work:

Private Sub DTPicker1_AfterUpdate()
If DTPicker1.Year 2011 Then DTPicker1.Year = 2011
If DTPicker1.Year < 2009 Then DTPicker1.Year = 2009
End Sub

Maybe I forgot to initialize something??

Thanks sooooooo much for your help!

"Mike Fogleman" wrote in message
...
Private Sub Calendar1_AfterUpdate()
If Calendar1.Year 2011 Then Calendar1.Year = 2011
If Calendar1.Year < 2009 Then Calendar1.Year = 2009
End Sub

Mike F



Mike Fogleman[_2_]

Calendar Control 8.0 question
 
Select the DTPicker, select Design mode, and in the property settings, set
the Max date & Min Date.

Mike F
"Robert Crandal" wrote in message
...
Ugghhh..... Guess what Mike? I can't use Calendar Control 8.0 at
work. I can only use Microsoft Date & Time Picker 6.0.

Do you know how to do this same thing with MS DT Picker 6.0?
I tried the following code below, but it doesnt seem to work:

Private Sub DTPicker1_AfterUpdate()
If DTPicker1.Year 2011 Then DTPicker1.Year = 2011
If DTPicker1.Year < 2009 Then DTPicker1.Year = 2009
End Sub

Maybe I forgot to initialize something??

Thanks sooooooo much for your help!

"Mike Fogleman" wrote in message
...
Private Sub Calendar1_AfterUpdate()
If Calendar1.Year 2011 Then Calendar1.Year = 2011
If Calendar1.Year < 2009 Then Calendar1.Year = 2009
End Sub

Mike F





Robert Crandal

Calendar Control 8.0 question
 
Thanks for the awesome advice Mike!

"Mike Fogleman" wrote in message
...

Select the DTPicker, select Design mode, and in the property settings, set
the Max date & Min Date.

Mike F




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

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com