ms project popup calendar in excel?

  • Thread starter Thread starter Baboo
  • Start date Start date
B

Baboo

is there anyway to envoke the handy calendar popup that is available as a drop
down in ms project date fields into excel for a similar purpose? thanks!
 
Dick,
Thanks for this. It workes exactly as I need.
But as a beginning coder, I don't understand what the "Me." in
"ActiveCell.Value = Me.Calendar1.Value" is doing.
I tried changing it to something else and get an error message.
I get how the other code is working , but the 'Me.' prefix has me puzzled.
Thanks.
Alan
 
Alan

The sheet's module is really a class module, but it's a special class module
because it has the sheet's events built in. It also has events for any
controls on the sheet built in. When you're in a class module, the Me
keyword refers to the class, in this case the sheet. You could just as
easily have

ActiveCell.Value = Sheets("Sheet1").Calendar1.Value

but if you ever changed the sheet name, this line wouldn't work. Me gives
you a way to reference the sheet regardless if you change the name or the
position of the sheet.

In a userform's class module, Me refers to the userform. In the
ThisWorkbook class module, Me refers to the workbook.
 
Thanks for the clear explanation. I replicated the sheet 3 times in
the workbook, and the control works on every sheet! I now understand
that by using 'Me' as the reference, I was able to get that to work
easily.
But. . . Why oh why doesn't the VBA help show me 'ME' when I go to the
'index' tab and the first entry field says: 'type keywords'?-
Before asking you my question, I tried that , and 'me' is not
referenced.
Now that you told me that 'me' is a keyword, I went back to help,
looked 'me' in the keyword section under 'CONTENTS', and there it is
with an explanation.
Go figure.
Alan
 
Quentin

Instead of using

If Target.Column = 3 Then

use

If Target.Address = "$A$10" Then

That way it will only work on A10 and no other cells. Obviously change
$A$10 to whichever cell you want.
 
Thanks Dick!!!
It works great now...

-----Original Message-----
Quentin

Instead of using

If Target.Column = 3 Then

use

If Target.Address = "$A$10" Then

That way it will only work on A10 and no other cells. Obviously change
$A$10 to whichever cell you want.

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.





.
Click to expand...
 
Back
Top