Solved

Popup Calendar to be active in 3 columns

Posted on 2013-01-10
13
354 Views
Last Modified: 2013-01-11
Greetings Experts,

I have a spreadsheet and need to have a popup calendar in the following columns:  K, S, U, and V.  I am not versed in ActiveX or building macros.  So if you could show a step by step process I would appreciate it.  

I have attached a sample file with the calendar columns highlighted in yellow.

Thanks in advance.
Book1.xlsx
0
Comment
Question by:Vendettta
  • 5
  • 5
  • 2
  • +1
13 Comments
 
LVL 28

Expert Comment

by:sammySeltzer
ID: 38767782
Did you try the tips on this link below?

http://danielcurran.com/instructions/insert-a-drop-down-calendar-menu-in-excel-choose-a-date/

This doesn't need code.

I tried it and it works. see screenshot. I was going to do it for you but your workbook is readOnly.
dateexcel.bmp
0
 
LVL 28

Expert Comment

by:sammySeltzer
ID: 38767814
Ok, I was able to stick the date on K but you didn't indicate what cell.

Well, you can handle the rest.
datePopup.xlsx
0
 
LVL 29

Accepted Solution

by:
gowflow earned 500 total points
ID: 38767819
Hi Just saw your post.
Let me know if this is what you want. You need to activate macroes and then move to the yellow columns and see what happens choose a date and check it out.

Let me know
gowflow
CalendarPopup.xlsm
0
 
LVL 23

Expert Comment

by:Roopesh Reddy
ID: 38767848
Hi,

Check this article - http://support.microsoft.com/kb/150774

Hope it helps u...
0
 

Author Comment

by:Vendettta
ID: 38768070
@gowflow

This is very close.  Just one final item to ask.  How do I set it up for multiple sheets within the workbook?
0
 
LVL 29

Expert Comment

by:gowflow
ID: 38768246
easy you got to do this manually.

1) Start the workbook activate macroes go to a cell that is yell to show the calendar.
2) SAVE the workbook and exit
3) Open the workbook and do not activate macroes you will see the calendar showing.
4) Move to this workbook all the worksheets that you want.
5) Activate Macroes.
6) Click on this first sheet who has the calendar click on the menu Developper and click on the button Design so it disable the macroes.
7) Click on the Calendar and copy it on to all the sheets that you have
8) go back to this original sheet and click on developper menu and Visual basic you will have a code for that sheet select the entire code and copy then in the left pane doubleclick on each sheet and paste the code there
9) Once you are finished save the workbook and exit
10) Restart the workbook enable macroes and try it.

NOTE for sure if the calendar in the subsequent sheets is not in hte same column you will need to change the column number in the code you can find it easily it is in the worksheet change event of the sheet.

Let me know
gowflow
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:Vendettta
ID: 38768455
I could not get it to work.  I've attached the file with the additional pages.  Could your implement.  I'm not sure what I am doing wrong.
Additonal-sheets.xlsm
0
 
LVL 29

Assisted Solution

by:gowflow
gowflow earned 500 total points
ID: 38768486
Here it is
gowflow
Additonal-sheets.xlsm
0
 

Author Comment

by:Vendettta
ID: 38768583
After looking closer to the file.  Can you tell me how to stop the calendar from being activated in rows 1 & 2?
0
 
LVL 29

Assisted Solution

by:gowflow
gowflow earned 500 total points
ID: 38768754
ok change this
If Not Intersect(Target, WS.Columns(11)) Is Nothing Or _
   Not Intersect(Target, WS.Columns(19)) Is Nothing Or _
   Not Intersect(Target, WS.Columns(21)) Is Nothing Or _
   Not Intersect(Target, WS.Columns(22)) Is Nothing Then

by this
If (Intersect(Target, WS.Rows(1)) Is Nothing And _
   Intersect(Target, WS.Rows(2)) Is Nothing) And _
   (Not Intersect(Target, WS.Columns(11)) Is Nothing Or _
   Not Intersect(Target, WS.Columns(19)) Is Nothing Or _
   Not Intersect(Target, WS.Columns(21)) Is Nothing Or _
   Not Intersect(Target, WS.Columns(22)) Is Nothing) Then

Just copy paste in all 6 sheets.
gowflow
0
 

Author Closing Comment

by:Vendettta
ID: 38768800
Great Job and excellent feedback!
0
 
LVL 29

Expert Comment

by:gowflow
ID: 38768820
Your welcome !!! we finally nailed it.
gowflow
0
 

Author Comment

by:Vendettta
ID: 38768957
Hey gowflow,

I have an issue.  On a different computer it does not have calendar control 11.0 on it.  Is there a different viable solution?
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Introduction While answering a recent question (http:/Q_27311462.html), I created an alternative function to the Excel Concatenate() function that you might find useful.  I tested several solutions and share the results in this article as well as t…
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now