LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.links
Al Al is offline
external usenet poster
Posts: 1
Default pop up calendar - PLEASE HELP

Hello everyone...

I have the following code on my worksheet to popup the calendar. The
calendar worked fine when I was initially putting the code on the
worksheet, BUT when I saved and closed my worksheet and re-opened it...
the Calendar popped up right on top on the worksheet and I can't change
any dates by clicking on it.... (It just stays there - frozen). I only
want the Calendar to pop up when someone clicks on the cell C17.... NOT
EVERYTIME I OPEN THE WORKSHEET. Can someone please HELP ME fix this
problem. I will really appreciate it.

Private Sub Calendar1_Click()
ActiveCell.NumberFormat = "m/d/yyyy"
Calendar1.Visible = False
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("c17:c17"), Target) Is Nothing Then
'(adjust for your range)
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Now()
Calendar1.Visible = True
Else: Calendar1.Visible = False
End If
End Sub

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I create a schedule from a list of dates ? Gavin Morris Charts and Charting in Excel 2 October 28th 10 04:08 PM
Excel Spreadsheet to Create/Update Monthly Calendar ATL10SPRO Excel Discussion (Misc queries) 1 March 14th 06 04:22 PM
Calendar issue cjtj4700 Excel Discussion (Misc queries) 2 January 6th 06 08:21 PM
Erasing Outlook Calendar from within Excel littlegreenmen1 Excel Discussion (Misc queries) 0 June 15th 05 05:23 PM
Calendar and info for that date Jenn Excel Discussion (Misc queries) 0 January 5th 05 04:21 PM

All times are GMT +1. The time now is 12:08 AM.

Powered by vBulletin® Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 ExcelBanter.
The comments are property of their posters.

About Us

"It's about Microsoft Excel"