Solved

Popup Calendar to be active in 3 columns

Posted on 2013-01-10
13
366 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
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
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
 

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

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

790 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