ms project popup calendar in excel?

[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!

 

[Alan]

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

 

[Dick Kusleika]

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.

 

[Alan]

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]

Dick,

Could you provide the code to restrict it to a cell?

Thanks!!
Quentin

 

[Dick Kusleika]

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.

 

[Quentin]

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.





.