Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar question
I was going to use the code below to set the Calendar during UserForm
initialization but I realized that if rng(1, 4).Value = blank that I wanted the calendar to open with the correct month and year but no day selected. If I eliminate the If rng(1, 4).Value = "" Then Calendar2.Value = Now() The Calendar will open with no day selected, but it will not necessarily come up with the proper month and year (I tried resetting the date on my compute and the Calendar did not come up with the correct month or year). Current Code: If rng(1, 4).Value = "" Then Calendar2.Value = Now() Else Calendar2.Value = rng(1, 4).Value End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar question
try using = Date()
"Patrick C. Simonds" wrote: I was going to use the code below to set the Calendar during UserForm initialization but I realized that if rng(1, 4).Value = blank that I wanted the calendar to open with the correct month and year but no day selected. If I eliminate the If rng(1, 4).Value = "" Then Calendar2.Value = Now() The Calendar will open with no day selected, but it will not necessarily come up with the proper month and year (I tried resetting the date on my compute and the Calendar did not come up with the correct month or year). Current Code: If rng(1, 4).Value = "" Then Calendar2.Value = Now() Else Calendar2.Value = rng(1, 4).Value End If |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar question
sorry disregaurd what i have posted
"Mike" wrote: try using = Date() "Patrick C. Simonds" wrote: I was going to use the code below to set the Calendar during UserForm initialization but I realized that if rng(1, 4).Value = blank that I wanted the calendar to open with the correct month and year but no day selected. If I eliminate the If rng(1, 4).Value = "" Then Calendar2.Value = Now() The Calendar will open with no day selected, but it will not necessarily come up with the proper month and year (I tried resetting the date on my compute and the Calendar did not come up with the correct month or year). Current Code: If rng(1, 4).Value = "" Then Calendar2.Value = Now() Else Calendar2.Value = rng(1, 4).Value End If |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar question
Maybe (if correct means the current month and year)...
Option Explicit Private Sub UserForm_Initialize() Dim rng As Range Set rng = Worksheets("sheet1").Range("a1") If rng(1, 4).Value = "" Then With Me.Calendar2 .Month = Month(Date) .Year = Year(Date) .Day = 0 End With Else Me.Calendar2.Value = rng(1, 4).Value End If End Sub "Patrick C. Simonds" wrote: I was going to use the code below to set the Calendar during UserForm initialization but I realized that if rng(1, 4).Value = blank that I wanted the calendar to open with the correct month and year but no day selected. If I eliminate the If rng(1, 4).Value = "" Then Calendar2.Value = Now() The Calendar will open with no day selected, but it will not necessarily come up with the proper month and year (I tried resetting the date on my compute and the Calendar did not come up with the correct month or year). Current Code: If rng(1, 4).Value = "" Then Calendar2.Value = Now() Else Calendar2.Value = rng(1, 4).Value End If -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calendar question? | Excel Programming | |||
monthview calendar question/ want the calendar to display weekdays only.. | Excel Programming | |||
calendar question | Excel Programming | |||
Calendar Question | Excel Discussion (Misc queries) | |||
Calendar question | Excel Programming |