Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Update" calendar on userform?
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Update" calendar on userform?
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Update" calendar on userform?
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Update" calendar on userform?
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Update" calendar on userform?
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 . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Update" calendar on userform?
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
"CELL("FILENAME") NOT UPDATE AFTER "SAVE AS" ACTION | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
Automatically click "Update Links" & "Continue" | Excel Programming | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel |