The reason I was so surprised is Jacob wrote this....
Me.Calendar1.Value = Date
and you wrote back saying this...
"I replaced the "Date" with "Today' -it works perfect."
If you had done what you said you did, you would have ended up with this...
Me.Calendar1.Value = Today
which would not have worked at all; hence, my surprised reaction.
--
Rick (MVP - Excel)
"Hennie Neuhoff" wrote in message
...
Rick, I used Ualmanak.Calendar1.Today
--
HJN
"Rick Rothstein" wrote:
Jacob - thanks very much. I replaced the "Date" with "Today' -it works
perfect.
You did? And it worked? How... Today is not a VB function?
--
Rick (MVP - Excel)
"Hennie Neuhoff" wrote in
message
...
Jacob - thanks very much. I replaced the "Date" with "Today' -it works
perfect.
Thanks again
--
HJN
"Jacob Skaria" wrote:
Not sure whether I have understood you correctly. Try
Me.Calendar1.Value = Date
Me.Calendar1.NextMonth
OR
Me.Calendar1.Value = Date
Me.Calendar1.NextYear
--
Jacob (MVP - Excel)
"Hennie Neuhoff" wrote:
Hi. Guys,
Excel 2003 - I've got a calendar on a userform displaying January
2010
This is my code:
Ualmanak.Caption = "Kies die besprekingsdatum."
Ualmanak.Calendar1.Today '<------ This works fine and highlight
today's
date
'Ualmanak.Calendar1.nextyear '<------ this display the calendar
as
January 2011
'Ualmanak.Calendar1.nextmonth '<------ this display the calendar
as
February 2010
Ualmanak.Show
If Not bContinue Then End
On Error GoTo fout
With Ualmanak.Calendar1
Range("BronInlig!Datkies").Value = .Value
End With
Unload Ualmanak
Exit Sub
fout:
MsgBox "Die fasiliteit is nie op jou rekenaar aktief nie - sien
Hulp" _
, vbInformation, Title:="Fasiliteit nie geinstalleer."
End
End Sub
My question - how do I "update" the calendar on the userform ? Or
alternatively if today = 19 May 2010 and I use either:
Ualmanak.Calendar1.nextyear '<------May 2011 must be displayed on
the
Userform
Ualmanak.Calendar1.nextmonth '<------ June 2010 must be displayed
I know there's some ways around this, I also know some smartass in
our
orgnisation would change the calender's date [Jan 2010] on the
userform.
--
HJN
.