Solved

Popup Calendar to be active in 3 columns

Posted on 2013-01-10
13
373 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

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

This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

763 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