Re: ho do i insert calendar into xls worksheet

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Calendar1 is the name of your calendar

When you are in Edit mode you can see and edit the name in the formulabar on the left
Be sure that it is named Calendar1


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"tmirelle" <tmirelle@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:D312A204-B93B-4A11-B072-B75C4456BBF1@xxxxxxxxxxxxxxxx
Still won't work for me, I'm not sure how to identify the range (it's column A)

But clicking anywhere in the *** after I have added your code to the work*** gives me error 424.

& highlights the line:

Calendar1.Left = Target.Left + Target.Width - Calendar1.Width

I don't know what I am doing wrong.

"Ron de Bruin" wrote:

Change the range in the code to the range with your date cells

See also this note on my site

Note: you can use this if your range is not one area
If Not Application.Intersect(Range("A1:A20,C1,E1"), Target) Is Nothing Then


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"tmirelle" <tmirelle@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:5DDF4036-3DAC-4E36-82B2-4BDCE38A5EA4@xxxxxxxxxxxxxxxx
>I am trying to get the calendar to pop up everytime you are in the date > column... to help the user get it in in the right format.
> > Is that possible?
> > "Ron de Bruin" wrote:
> >> Hi
>> >> When you use the code from my page you only have to add the calendar to the work***
>> with Insert Object
>> >> Read the page again
>> http://www.rondebruin.nl/calendar.htm
>> >> >> >> -- >> >> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>> >> >> "tmirelle" <tmirelle@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:5B6D7920-FFA3-4381-B7D6-C6D9C5A8E602@xxxxxxxxxxxxxxxx
>> > How do you tell what the calendar is named?
>> > >> > I tried just using calendar.... but that didn't work either.
>> > >> > I folled the instructions on this page: >> > http://www.fontstuff.com/vba/vbatut07.htm
>> > >> > & then I inserted this code on the ***:
>> > >> > Private Sub Calendar1_Click()
>> > ActiveCell.Value = CDbl(Calendar1.Value)
>> > ActiveCell.NumberFormat = "mm/dd/yyyy"
>> > ActiveCell.Select
>> > End Sub
>> > >> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> > If Target.Cells.Count > 1 Then Exit Sub
>> > If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
>> > Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
>> > Calendar1.Top = Target.Top + Target.Height
>> > Calendar1.Visible = True
>> > ' select Today's date in the Calendar
>> > Calendar1.Value = Date
>> > ElseIf Calendar1.Visible Then Calendar1.Visible = False
>> > End If
>> > End Sub
>> > . >> > >> > "Ron de Bruin" wrote:
>> > >> >> Hi Drahos
>> >> >> >> Maybe the Calendar you have add to the work*** is not named
>> >> Calendar1
>> >> >> >> Check out the name
>> >> >> >> -- >> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >> >> >> >> >> "Drahos" <Drahos@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:2A65A316-4E60-4E39-80F1-94605C61145D@xxxxxxxxxxxxxxxx
>> >> > Hi Paul,
>> >> > I need to use in my Excel Form a calender as described. I have done what
>> >> > was recommeded on the webside you are reffering to. While choosing a cell
>> >> > from the range where should be the calendar I receive the Runtime error "424"
>> >> > - object required and the Debug shows this line:
>> >> > Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
>> >> >
>> >> > If choosing a cell outside of the range I receive the same runtime error and
>> >> > the Debug shows this line:
>> >> >
>> >> > ElseIf Calendar1.Visible Then Calendar1.Visible = False
>> >> >
>> >> > I use the Excel 2003.
>> >> >
>> >> > Please, can you advice me what the problem is.
>> >> > Thanks a lot.
>> >> >
>> >> >
>> >> > "Paul B" wrote:
>> >> >
>> >> >> halina, here is one way,
>> >> >> http://www.rondebruin.nl/calendar.htm
>> >> >> -- >> >> >> Paul B
>> >> >> Always backup your data before trying something new
>> >> >> Please post any response to the newsgroups so others can benefit from it
>> >> >> Feedback on answers is always appreciated!
>> >> >> Using Excel 2002 & 2003
>> >> >>
>> >> >>
>> >> >> "halina" <halina@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
>> >> >> news:A52E80BC-379C-4DD3-ADDE-4521100AE2F9@xxxxxxxxxxxxxxxx
>> >> >> >
>> >> >>
>> >> >>
>> >> >> >> >> >> >> >> >>
>>

.

Quantcast