ho do i insert calendar into xls worksheet

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" <[email protected]> wrote in message
news:[email protected]...
>

Also:

http://www.dotxls.com/free-templates...2006-calendars

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" <[email protected]> wrote in message
> news:[email protected]...
> >
>
>
>

Hi Drahos

Maybe the Calendar you have add to the worksheet is not named
Calendar1

Check out the name

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> 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" <[email protected]> wrote in message
>> news:[email protected]...
>> >
>>
>>
>>

Hi Drahos

Maybe the Calendar you have add to the worksheet is not named
Calendar1

Check out the name

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> 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" <[email protected]> wrote in message
>> news:[email protected]...
>> >
>>
>>
>>

Hi Ron,
you are right. Thanks a lot. Now one more question. I need to have in my
form severel cells containing Calendar. The problem is these fields are not
in a continuous range but they are on very different places. How can I do
this. Now I am not sure but there should be about 8 cells containing calendar.

Regards
Drahos.


"Ron de Bruin" wrote:

> Hi Drahos
>
> Maybe the Calendar you have add to the worksheet is not named
> Calendar1
>
> Check out the name
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > 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" <[email protected]> wrote in message
> >> news:[email protected]...
> >> >
> >>
> >>
> >>
>
>
>

Hi Drahos

Change the Range

If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
> you are right. Thanks a lot. Now one more question. I need to have in my
> form severel cells containing Calendar. The problem is these fields are not
> in a continuous range but they are on very different places. How can I do
> this. Now I am not sure but there should be about 8 cells containing calendar.
>
> Regards
> Drahos.
>
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> Maybe the Calendar you have add to the worksheet is not named
>> Calendar1
>>
>> Check out the name
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > 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" <[email protected]> wrote in message
>> >> news:[email protected]...
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>

Wow :o)
Ron, thank you to much.
Drahos.

"Ron de Bruin" wrote:

> Hi Drahos
>
> Change the Range
>
> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > Hi Ron,
> > you are right. Thanks a lot. Now one more question. I need to have in my
> > form severel cells containing Calendar. The problem is these fields are not
> > in a continuous range but they are on very different places. How can I do
> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >
> > Regards
> > Drahos.
> >
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> Maybe the Calendar you have add to the worksheet is not named
> >> Calendar1
> >>
> >> Check out the name
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > 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" <[email protected]> wrote in message
> >> >> news:[email protected]...
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

You are welcome

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Wow :o)
> Ron, thank you to much.
> Drahos.
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> Change the Range
>>
>> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>>
>>
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > Hi Ron,
>> > you are right. Thanks a lot. Now one more question. I need to have in my
>> > form severel cells containing Calendar. The problem is these fields are not
>> > in a continuous range but they are on very different places. How can I do
>> > this. Now I am not sure but there should be about 8 cells containing calendar.
>> >
>> > Regards
>> > Drahos.
>> >
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> Hi Drahos
>> >>
>> >> Maybe the Calendar you have add to the worksheet is not named
>> >> Calendar1
>> >>
>> >> Check out the name
>> >>
>> >> --
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >>
>> >>
>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> > 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" <[email protected]> wrote in message
>> >> >> news:[email protected]...
>> >> >> >
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

Good morning Ron,

now, thanks to you calendar works perfectly. I would like to ask for your
help again. I hope last time concerning this issue.

I have a problem with a change of size of the calendar. If I change the
size of the calendar in a new empty sheet it works without any problem. But
if I do it in my Form after exiting the design mode the calendar is displaied
2x. One is in a requested size and the other is much smaller. The smaler one
is active. The calendar in requested size is behind the smaller one and is
inactive.
Do you have an idea what is wrong?

Thanks again in advance.
Drahos.


"Ron de Bruin" wrote:

> You are welcome
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > Wow :o)
> > Ron, thank you to much.
> > Drahos.
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> Change the Range
> >>
> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >>
> >>
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > Hi Ron,
> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >> > form severel cells containing Calendar. The problem is these fields are not
> >> > in a continuous range but they are on very different places. How can I do
> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >> >
> >> > Regards
> >> > Drahos.
> >> >
> >> >
> >> > "Ron de Bruin" wrote:
> >> >
> >> >> Hi Drahos
> >> >>
> >> >> Maybe the Calendar you have add to the worksheet is not named
> >> >> Calendar1
> >> >>
> >> >> Check out the name
> >> >>
> >> >> --
> >> >> Regards Ron de Bruin
> >> >> http://www.rondebruin.nl
> >> >>
> >> >>
> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> > 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" <[email protected]> wrote in message
> >> >> >> news:[email protected]...
> >> >> >> >
> >> >> >>
> >> >> >>
> >> >> >>
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

Hi Drahos

Can you send me a example workbook private to see this

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Good morning Ron,
>
> now, thanks to you calendar works perfectly. I would like to ask for your
> help again. I hope last time concerning this issue.
>
> I have a problem with a change of size of the calendar. If I change the
> size of the calendar in a new empty sheet it works without any problem. But
> if I do it in my Form after exiting the design mode the calendar is displaied
> 2x. One is in a requested size and the other is much smaller. The smaler one
> is active. The calendar in requested size is behind the smaller one and is
> inactive.
> Do you have an idea what is wrong?
>
> Thanks again in advance.
> Drahos.
>
>
> "Ron de Bruin" wrote:
>
>> You are welcome
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > Wow :o)
>> > Ron, thank you to much.
>> > Drahos.
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> Hi Drahos
>> >>
>> >> Change the Range
>> >>
>> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>> >>
>> >>
>> >>
>> >> --
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >>
>> >>
>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> > Hi Ron,
>> >> > you are right. Thanks a lot. Now one more question. I need to have in my
>> >> > form severel cells containing Calendar. The problem is these fields are not
>> >> > in a continuous range but they are on very different places. How can I do
>> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
>> >> >
>> >> > Regards
>> >> > Drahos.
>> >> >
>> >> >
>> >> > "Ron de Bruin" wrote:
>> >> >
>> >> >> Hi Drahos
>> >> >>
>> >> >> Maybe the Calendar you have add to the worksheet is not named
>> >> >> Calendar1
>> >> >>
>> >> >> Check out the name
>> >> >>
>> >> >> --
>> >> >> Regards Ron de Bruin
>> >> >> http://www.rondebruin.nl
>> >> >>
>> >> >>
>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >> > 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" <[email protected]> wrote in message
>> >> >> >> news:[email protected]...
>> >> >> >> >
>> >> >> >>
>> >> >> >>
>> >> >> >>
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

Hi Ron,

I have sent it to your emai address mentioned on your webside
[email protected]

Thanks a lot.

Drahos

"Ron de Bruin" wrote:

> Hi Drahos
>
> Can you send me a example workbook private to see this
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > Good morning Ron,
> >
> > now, thanks to you calendar works perfectly. I would like to ask for your
> > help again. I hope last time concerning this issue.
> >
> > I have a problem with a change of size of the calendar. If I change the
> > size of the calendar in a new empty sheet it works without any problem. But
> > if I do it in my Form after exiting the design mode the calendar is displaied
> > 2x. One is in a requested size and the other is much smaller. The smaler one
> > is active. The calendar in requested size is behind the smaller one and is
> > inactive.
> > Do you have an idea what is wrong?
> >
> > Thanks again in advance.
> > Drahos.
> >
> >
> > "Ron de Bruin" wrote:
> >
> >> You are welcome
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > Wow :o)
> >> > Ron, thank you to much.
> >> > Drahos.
> >> >
> >> > "Ron de Bruin" wrote:
> >> >
> >> >> Hi Drahos
> >> >>
> >> >> Change the Range
> >> >>
> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >> >>
> >> >>
> >> >>
> >> >> --
> >> >> Regards Ron de Bruin
> >> >> http://www.rondebruin.nl
> >> >>
> >> >>
> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> > Hi Ron,
> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >> >> > form severel cells containing Calendar. The problem is these fields are not
> >> >> > in a continuous range but they are on very different places. How can I do
> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >> >> >
> >> >> > Regards
> >> >> > Drahos.
> >> >> >
> >> >> >
> >> >> > "Ron de Bruin" wrote:
> >> >> >
> >> >> >> Hi Drahos
> >> >> >>
> >> >> >> Maybe the Calendar you have add to the worksheet is not named
> >> >> >> Calendar1
> >> >> >>
> >> >> >> Check out the name
> >> >> >>
> >> >> >> --
> >> >> >> Regards Ron de Bruin
> >> >> >> http://www.rondebruin.nl
> >> >> >>
> >> >> >>
> >> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> >> > 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" <[email protected]> wrote in message
> >> >> >> >> news:[email protected]...
> >> >> >> >> >
> >> >> >> >>
> >> >> >> >>
> >> >> >> >>
> >> >> >>
> >> >> >>
> >> >> >>
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

OK

My provider have server problems the last weeks so it is possible
that I can't read your mail today (sometimes a few hours)


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
>
> I have sent it to your emai address mentioned on your webside
> [email protected]
>
> Thanks a lot.
>
> Drahos
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> Can you send me a example workbook private to see this
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > Good morning Ron,
>> >
>> > now, thanks to you calendar works perfectly. I would like to ask for your
>> > help again. I hope last time concerning this issue.
>> >
>> > I have a problem with a change of size of the calendar. If I change the
>> > size of the calendar in a new empty sheet it works without any problem. But
>> > if I do it in my Form after exiting the design mode the calendar is displaied
>> > 2x. One is in a requested size and the other is much smaller. The smaler one
>> > is active. The calendar in requested size is behind the smaller one and is
>> > inactive.
>> > Do you have an idea what is wrong?
>> >
>> > Thanks again in advance.
>> > Drahos.
>> >
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> You are welcome
>> >>
>> >> --
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >>
>> >>
>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> > Wow :o)
>> >> > Ron, thank you to much.
>> >> > Drahos.
>> >> >
>> >> > "Ron de Bruin" wrote:
>> >> >
>> >> >> Hi Drahos
>> >> >>
>> >> >> Change the Range
>> >> >>
>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>> >> >>
>> >> >>
>> >> >>
>> >> >> --
>> >> >> Regards Ron de Bruin
>> >> >> http://www.rondebruin.nl
>> >> >>
>> >> >>
>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >> > Hi Ron,
>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
>> >> >> > form severel cells containing Calendar. The problem is these fields are not
>> >> >> > in a continuous range but they are on very different places. How can I do
>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
>> >> >> >
>> >> >> > Regards
>> >> >> > Drahos.
>> >> >> >
>> >> >> >
>> >> >> > "Ron de Bruin" wrote:
>> >> >> >
>> >> >> >> Hi Drahos
>> >> >> >>
>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
>> >> >> >> Calendar1
>> >> >> >>
>> >> >> >> Check out the name
>> >> >> >>
>> >> >> >> --
>> >> >> >> Regards Ron de Bruin
>> >> >> >> http://www.rondebruin.nl
>> >> >> >>
>> >> >> >>
>> >> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >> >> > 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" <[email protected]> wrote in message
>> >> >> >> >> news:[email protected]...
>> >> >> >> >> >
>> >> >> >> >>
>> >> >> >> >>
>> >> >> >> >>
>> >> >> >>
>> >> >> >>
>> >> >> >>
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

Hi Drahos

Yes I see the same problem.

Workaround is to comment the event code in the sheet module before you change the size
If you are ready uncomment the code


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
> OK
>
> My provider have server problems the last weeks so it is possible
> that I can't read your mail today (sometimes a few hours)
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> Hi Ron,
>>
>> I have sent it to your emai address mentioned on your webside
>> [email protected]
>>
>> Thanks a lot.
>>
>> Drahos
>>
>> "Ron de Bruin" wrote:
>>
>>> Hi Drahos
>>>
>>> Can you send me a example workbook private to see this
>>>
>>> --
>>> Regards Ron de Bruin
>>> http://www.rondebruin.nl
>>>
>>>
>>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>>> > Good morning Ron,
>>> >
>>> > now, thanks to you calendar works perfectly. I would like to ask for your
>>> > help again. I hope last time concerning this issue.
>>> >
>>> > I have a problem with a change of size of the calendar. If I change the
>>> > size of the calendar in a new empty sheet it works without any problem. But
>>> > if I do it in my Form after exiting the design mode the calendar is displaied
>>> > 2x. One is in a requested size and the other is much smaller. The smaler one
>>> > is active. The calendar in requested size is behind the smaller one and is
>>> > inactive.
>>> > Do you have an idea what is wrong?
>>> >
>>> > Thanks again in advance.
>>> > Drahos.
>>> >
>>> >
>>> > "Ron de Bruin" wrote:
>>> >
>>> >> You are welcome
>>> >>
>>> >> --
>>> >> Regards Ron de Bruin
>>> >> http://www.rondebruin.nl
>>> >>
>>> >>
>>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>>> >> > Wow :o)
>>> >> > Ron, thank you to much.
>>> >> > Drahos.
>>> >> >
>>> >> > "Ron de Bruin" wrote:
>>> >> >
>>> >> >> Hi Drahos
>>> >> >>
>>> >> >> Change the Range
>>> >> >>
>>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>>> >> >>
>>> >> >>
>>> >> >>
>>> >> >> --
>>> >> >> Regards Ron de Bruin
>>> >> >> http://www.rondebruin.nl
>>> >> >>
>>> >> >>
>>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>>> >> >> > Hi Ron,
>>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
>>> >> >> > form severel cells containing Calendar. The problem is these fields are not
>>> >> >> > in a continuous range but they are on very different places. How can I do
>>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
>>> >> >> >
>>> >> >> > Regards
>>> >> >> > Drahos.
>>> >> >> >
>>> >> >> >
>>> >> >> > "Ron de Bruin" wrote:
>>> >> >> >
>>> >> >> >> Hi Drahos
>>> >> >> >>
>>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
>>> >> >> >> Calendar1
>>> >> >> >>
>>> >> >> >> Check out the name
>>> >> >> >>
>>> >> >> >> --
>>> >> >> >> Regards Ron de Bruin
>>> >> >> >> http://www.rondebruin.nl
>>> >> >> >>
>>> >> >> >>
>>> >> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>>> >> >> >> > 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" <[email protected]> wrote in message
>>> >> >> >> >> news:[email protected]...
>>> >> >> >> >> >
>>> >> >> >> >>
>>> >> >> >> >>
>>> >> >> >> >>
>>> >> >> >>
>>> >> >> >>
>>> >> >> >>
>>> >> >>
>>> >> >>
>>> >> >>
>>> >>
>>> >>
>>> >>
>>>
>>>
>>>
>
>

Hi Ron,

thanks for your kind help. The problem is that I have no idea what I am
supposed to do in the sheet module code. What "workaround" is to be
commented and in which event code. I am not an expert in Excel :o(

Please, can you explain in more details or wright an example.

Best Regards
Drahos.

"Ron de Bruin" wrote:

> Hi Drahos
>
> Yes I see the same problem.
>
> Workaround is to comment the event code in the sheet module before you change the size
> If you are ready uncomment the code
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
> > OK
> >
> > My provider have server problems the last weeks so it is possible
> > that I can't read your mail today (sometimes a few hours)
> >
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> > "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> Hi Ron,
> >>
> >> I have sent it to your emai address mentioned on your webside
> >> [email protected]
> >>
> >> Thanks a lot.
> >>
> >> Drahos
> >>
> >> "Ron de Bruin" wrote:
> >>
> >>> Hi Drahos
> >>>
> >>> Can you send me a example workbook private to see this
> >>>
> >>> --
> >>> Regards Ron de Bruin
> >>> http://www.rondebruin.nl
> >>>
> >>>
> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> > Good morning Ron,
> >>> >
> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
> >>> > help again. I hope last time concerning this issue.
> >>> >
> >>> > I have a problem with a change of size of the calendar. If I change the
> >>> > size of the calendar in a new empty sheet it works without any problem. But
> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
> >>> > is active. The calendar in requested size is behind the smaller one and is
> >>> > inactive.
> >>> > Do you have an idea what is wrong?
> >>> >
> >>> > Thanks again in advance.
> >>> > Drahos.
> >>> >
> >>> >
> >>> > "Ron de Bruin" wrote:
> >>> >
> >>> >> You are welcome
> >>> >>
> >>> >> --
> >>> >> Regards Ron de Bruin
> >>> >> http://www.rondebruin.nl
> >>> >>
> >>> >>
> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> > Wow :o)
> >>> >> > Ron, thank you to much.
> >>> >> > Drahos.
> >>> >> >
> >>> >> > "Ron de Bruin" wrote:
> >>> >> >
> >>> >> >> Hi Drahos
> >>> >> >>
> >>> >> >> Change the Range
> >>> >> >>
> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >> --
> >>> >> >> Regards Ron de Bruin
> >>> >> >> http://www.rondebruin.nl
> >>> >> >>
> >>> >> >>
> >>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> >> > Hi Ron,
> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
> >>> >> >> > in a continuous range but they are on very different places. How can I do
> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >>> >> >> >
> >>> >> >> > Regards
> >>> >> >> > Drahos.
> >>> >> >> >
> >>> >> >> >
> >>> >> >> > "Ron de Bruin" wrote:
> >>> >> >> >
> >>> >> >> >> Hi Drahos
> >>> >> >> >>
> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
> >>> >> >> >> Calendar1
> >>> >> >> >>
> >>> >> >> >> Check out the name
> >>> >> >> >>
> >>> >> >> >> --
> >>> >> >> >> Regards Ron de Bruin
> >>> >> >> >> http://www.rondebruin.nl
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> >> >> > 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" <[email protected]> wrote in message
> >>> >> >> >> >> news:[email protected]...
> >>> >> >> >> >> >
> >>> >> >> >> >>
> >>> >> >> >> >>
> >>> >> >> >> >>
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >>
> >>> >>
> >>> >>
> >>>
> >>>
> >>>
> >
> >
>
>
>

Dear Ron,
I have tried to experiment a little and I have found and I have done what
is necessary. Your advice and great support is amazing as usually.
Once again thanks a lot.
Have a nice time.

Regards Drahos.

"Ron de Bruin" wrote:

> Hi Drahos
>
> Yes I see the same problem.
>
> Workaround is to comment the event code in the sheet module before you change the size
> If you are ready uncomment the code
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
> > OK
> >
> > My provider have server problems the last weeks so it is possible
> > that I can't read your mail today (sometimes a few hours)
> >
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> > "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> Hi Ron,
> >>
> >> I have sent it to your emai address mentioned on your webside
> >> [email protected]
> >>
> >> Thanks a lot.
> >>
> >> Drahos
> >>
> >> "Ron de Bruin" wrote:
> >>
> >>> Hi Drahos
> >>>
> >>> Can you send me a example workbook private to see this
> >>>
> >>> --
> >>> Regards Ron de Bruin
> >>> http://www.rondebruin.nl
> >>>
> >>>
> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> > Good morning Ron,
> >>> >
> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
> >>> > help again. I hope last time concerning this issue.
> >>> >
> >>> > I have a problem with a change of size of the calendar. If I change the
> >>> > size of the calendar in a new empty sheet it works without any problem. But
> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
> >>> > is active. The calendar in requested size is behind the smaller one and is
> >>> > inactive.
> >>> > Do you have an idea what is wrong?
> >>> >
> >>> > Thanks again in advance.
> >>> > Drahos.
> >>> >
> >>> >
> >>> > "Ron de Bruin" wrote:
> >>> >
> >>> >> You are welcome
> >>> >>
> >>> >> --
> >>> >> Regards Ron de Bruin
> >>> >> http://www.rondebruin.nl
> >>> >>
> >>> >>
> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> > Wow :o)
> >>> >> > Ron, thank you to much.
> >>> >> > Drahos.
> >>> >> >
> >>> >> > "Ron de Bruin" wrote:
> >>> >> >
> >>> >> >> Hi Drahos
> >>> >> >>
> >>> >> >> Change the Range
> >>> >> >>
> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >> --
> >>> >> >> Regards Ron de Bruin
> >>> >> >> http://www.rondebruin.nl
> >>> >> >>
> >>> >> >>
> >>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> >> > Hi Ron,
> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
> >>> >> >> > in a continuous range but they are on very different places. How can I do
> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >>> >> >> >
> >>> >> >> > Regards
> >>> >> >> > Drahos.
> >>> >> >> >
> >>> >> >> >
> >>> >> >> > "Ron de Bruin" wrote:
> >>> >> >> >
> >>> >> >> >> Hi Drahos
> >>> >> >> >>
> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
> >>> >> >> >> Calendar1
> >>> >> >> >>
> >>> >> >> >> Check out the name
> >>> >> >> >>
> >>> >> >> >> --
> >>> >> >> >> Regards Ron de Bruin
> >>> >> >> >> http://www.rondebruin.nl
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> >> >> > 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" <[email protected]> wrote in message
> >>> >> >> >> >> news:[email protected]...
> >>> >> >> >> >> >
> >>> >> >> >> >>
> >>> >> >> >> >>
> >>> >> >> >> >>
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >>
> >>> >>
> >>> >>
> >>>
> >>>
> >>>
> >
> >
>
>
>

Hi Ron,

sorry I am to you. When I do what you have adviced at home it works. But if
I do it in the office I still have 2 Pop Up Calenders. At home I have Czech
XP Professional and Czech Office 2003. In the office I have Englich Version
of those two applications. I have not take the file from home to run it in
the office. But the home file has been originaly created in the office.

Do you have any idea?
Thanks a lot for your help.
Drahos.

"Ron de Bruin" wrote:

> Hi Drahos
>
> Yes I see the same problem.
>
> Workaround is to comment the event code in the sheet module before you change the size
> If you are ready uncomment the code
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
> > OK
> >
> > My provider have server problems the last weeks so it is possible
> > that I can't read your mail today (sometimes a few hours)
> >
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> > "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> Hi Ron,
> >>
> >> I have sent it to your emai address mentioned on your webside
> >> [email protected]
> >>
> >> Thanks a lot.
> >>
> >> Drahos
> >>
> >> "Ron de Bruin" wrote:
> >>
> >>> Hi Drahos
> >>>
> >>> Can you send me a example workbook private to see this
> >>>
> >>> --
> >>> Regards Ron de Bruin
> >>> http://www.rondebruin.nl
> >>>
> >>>
> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> > Good morning Ron,
> >>> >
> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
> >>> > help again. I hope last time concerning this issue.
> >>> >
> >>> > I have a problem with a change of size of the calendar. If I change the
> >>> > size of the calendar in a new empty sheet it works without any problem. But
> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
> >>> > is active. The calendar in requested size is behind the smaller one and is
> >>> > inactive.
> >>> > Do you have an idea what is wrong?
> >>> >
> >>> > Thanks again in advance.
> >>> > Drahos.
> >>> >
> >>> >
> >>> > "Ron de Bruin" wrote:
> >>> >
> >>> >> You are welcome
> >>> >>
> >>> >> --
> >>> >> Regards Ron de Bruin
> >>> >> http://www.rondebruin.nl
> >>> >>
> >>> >>
> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> > Wow :o)
> >>> >> > Ron, thank you to much.
> >>> >> > Drahos.
> >>> >> >
> >>> >> > "Ron de Bruin" wrote:
> >>> >> >
> >>> >> >> Hi Drahos
> >>> >> >>
> >>> >> >> Change the Range
> >>> >> >>
> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >> --
> >>> >> >> Regards Ron de Bruin
> >>> >> >> http://www.rondebruin.nl
> >>> >> >>
> >>> >> >>
> >>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> >> > Hi Ron,
> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
> >>> >> >> > in a continuous range but they are on very different places. How can I do
> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >>> >> >> >
> >>> >> >> > Regards
> >>> >> >> > Drahos.
> >>> >> >> >
> >>> >> >> >
> >>> >> >> > "Ron de Bruin" wrote:
> >>> >> >> >
> >>> >> >> >> Hi Drahos
> >>> >> >> >>
> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
> >>> >> >> >> Calendar1
> >>> >> >> >>
> >>> >> >> >> Check out the name
> >>> >> >> >>
> >>> >> >> >> --
> >>> >> >> >> Regards Ron de Bruin
> >>> >> >> >> http://www.rondebruin.nl
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >>> >> >> >> > 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" <[email protected]> wrote in message
> >>> >> >> >> >> news:[email protected]...
> >>> >> >> >> >> >
> >>> >> >> >> >>
> >>> >> >> >> >>
> >>> >> >> >> >>
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >> >>
> >>> >> >>
> >>> >> >>
> >>> >> >>
> >>> >>
> >>> >>
> >>> >>
> >>>
> >>>
> >>>
> >
> >
>
>
>

Hi Drahos

I have test it in a English version

Try it again

Note: if you are in the VBA
View>Toolbars>Edit

On the Edit toolbar you find the buttons to comment and uncomment the
selected code



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
>
> sorry I am to you. When I do what you have adviced at home it works. But if
> I do it in the office I still have 2 Pop Up Calenders. At home I have Czech
> XP Professional and Czech Office 2003. In the office I have Englich Version
> of those two applications. I have not take the file from home to run it in
> the office. But the home file has been originaly created in the office.
>
> Do you have any idea?
> Thanks a lot for your help.
> Drahos.
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> Yes I see the same problem.
>>
>> Workaround is to comment the event code in the sheet module before you change the size
>> If you are ready uncomment the code
>>
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
>> > OK
>> >
>> > My provider have server problems the last weeks so it is possible
>> > that I can't read your mail today (sometimes a few hours)
>> >
>> >
>> > --
>> > Regards Ron de Bruin
>> > http://www.rondebruin.nl
>> >
>> >
>> > "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> Hi Ron,
>> >>
>> >> I have sent it to your emai address mentioned on your webside
>> >> [email protected]
>> >>
>> >> Thanks a lot.
>> >>
>> >> Drahos
>> >>
>> >> "Ron de Bruin" wrote:
>> >>
>> >>> Hi Drahos
>> >>>
>> >>> Can you send me a example workbook private to see this
>> >>>
>> >>> --
>> >>> Regards Ron de Bruin
>> >>> http://www.rondebruin.nl
>> >>>
>> >>>
>> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >>> > Good morning Ron,
>> >>> >
>> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
>> >>> > help again. I hope last time concerning this issue.
>> >>> >
>> >>> > I have a problem with a change of size of the calendar. If I change the
>> >>> > size of the calendar in a new empty sheet it works without any problem. But
>> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
>> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
>> >>> > is active. The calendar in requested size is behind the smaller one and is
>> >>> > inactive.
>> >>> > Do you have an idea what is wrong?
>> >>> >
>> >>> > Thanks again in advance.
>> >>> > Drahos.
>> >>> >
>> >>> >
>> >>> > "Ron de Bruin" wrote:
>> >>> >
>> >>> >> You are welcome
>> >>> >>
>> >>> >> --
>> >>> >> Regards Ron de Bruin
>> >>> >> http://www.rondebruin.nl
>> >>> >>
>> >>> >>
>> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >>> >> > Wow :o)
>> >>> >> > Ron, thank you to much.
>> >>> >> > Drahos.
>> >>> >> >
>> >>> >> > "Ron de Bruin" wrote:
>> >>> >> >
>> >>> >> >> Hi Drahos
>> >>> >> >>
>> >>> >> >> Change the Range
>> >>> >> >>
>> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>> >>> >> >>
>> >>> >> >>
>> >>> >> >>
>> >>> >> >> --
>> >>> >> >> Regards Ron de Bruin
>> >>> >> >> http://www.rondebruin.nl
>> >>> >> >>
>> >>> >> >>
>> >>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >>> >> >> > Hi Ron,
>> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
>> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
>> >>> >> >> > in a continuous range but they are on very different places. How can I do
>> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
>> >>> >> >> >
>> >>> >> >> > Regards
>> >>> >> >> > Drahos.
>> >>> >> >> >
>> >>> >> >> >
>> >>> >> >> > "Ron de Bruin" wrote:
>> >>> >> >> >
>> >>> >> >> >> Hi Drahos
>> >>> >> >> >>
>> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
>> >>> >> >> >> Calendar1
>> >>> >> >> >>
>> >>> >> >> >> Check out the name
>> >>> >> >> >>
>> >>> >> >> >> --
>> >>> >> >> >> Regards Ron de Bruin
>> >>> >> >> >> http://www.rondebruin.nl
>> >>> >> >> >>
>> >>> >> >> >>
>> >>> >> >> >> "Drahos" <[email protected]> wrote in message
>> >>> >> >> >> news:[email protected]...
>> >>> >> >> >> > 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" <[email protected]> wrote in message
>> >>> >> >> >> >> news:[email protected]...
>> >>> >> >> >> >> >
>> >>> >> >> >> >>
>> >>> >> >> >> >>
>> >>> >> >> >> >>
>> >>> >> >> >>
>> >>> >> >> >>
>> >>> >> >> >>
>> >>> >> >>
>> >>> >> >>
>> >>> >> >>
>> >>> >>
>> >>> >>
>> >>> >>
>> >>>
>> >>>
>> >>>
>> >
>> >
>>
>>
>>

Hi Ron,
after some time I am back. I would like to thank you for your help. It is
strange but I have not been able to format the Calendar in the file we were
talking about. At the end I have solved the question of formatting the
Calendar in another way. I have formatted the Calendar Object in other
workbook and after that I have copied it to my workbook.

Ron, I would like to ask for your help again. The form we have been
discussing is a Single one. On the base of this Single form I have prepared a
MASS form. This is supposed to be used in cases when more than one change is
requested. In this MASS form is in one line/row all info which is on a Single
form.

The problem is that I have frozen panes on the level of 4th row. On the
2nd row in the cell M2 I need to input a date. The 3rd row's height is 40.
The problem is that the line of freezing after the 3rd row comes through the
Calendar and all dates under this freezing line are also frozen and it is
impossible to input them to the cell. In my case I am able to input only
dates from the first row in the Calendar.

Do you have an idea how to solve it? One possibility is not to use frozen
panes but I would like to have panes frozen and at the same time to be able
to input all dates from the Calendar.

Ron, thanks a lot for your help in advance.

Drahos.

"Ron de Bruin" wrote:

> Hi Drahos
>
> I have test it in a English version
>
> Try it again
>
> Note: if you are in the VBA
> View>Toolbars>Edit
>
> On the Edit toolbar you find the buttons to comment and uncomment the
> selected code
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > Hi Ron,
> >
> > sorry I am to you. When I do what you have adviced at home it works. But if
> > I do it in the office I still have 2 Pop Up Calenders. At home I have Czech
> > XP Professional and Czech Office 2003. In the office I have Englich Version
> > of those two applications. I have not take the file from home to run it in
> > the office. But the home file has been originaly created in the office.
> >
> > Do you have any idea?
> > Thanks a lot for your help.
> > Drahos.
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> Yes I see the same problem.
> >>
> >> Workaround is to comment the event code in the sheet module before you change the size
> >> If you are ready uncomment the code
> >>
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
> >> > OK
> >> >
> >> > My provider have server problems the last weeks so it is possible
> >> > that I can't read your mail today (sometimes a few hours)
> >> >
> >> >
> >> > --
> >> > Regards Ron de Bruin
> >> > http://www.rondebruin.nl
> >> >
> >> >
> >> > "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> Hi Ron,
> >> >>
> >> >> I have sent it to your emai address mentioned on your webside
> >> >> [email protected]
> >> >>
> >> >> Thanks a lot.
> >> >>
> >> >> Drahos
> >> >>
> >> >> "Ron de Bruin" wrote:
> >> >>
> >> >>> Hi Drahos
> >> >>>
> >> >>> Can you send me a example workbook private to see this
> >> >>>
> >> >>> --
> >> >>> Regards Ron de Bruin
> >> >>> http://www.rondebruin.nl
> >> >>>
> >> >>>
> >> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >>> > Good morning Ron,
> >> >>> >
> >> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
> >> >>> > help again. I hope last time concerning this issue.
> >> >>> >
> >> >>> > I have a problem with a change of size of the calendar. If I change the
> >> >>> > size of the calendar in a new empty sheet it works without any problem. But
> >> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
> >> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
> >> >>> > is active. The calendar in requested size is behind the smaller one and is
> >> >>> > inactive.
> >> >>> > Do you have an idea what is wrong?
> >> >>> >
> >> >>> > Thanks again in advance.
> >> >>> > Drahos.
> >> >>> >
> >> >>> >
> >> >>> > "Ron de Bruin" wrote:
> >> >>> >
> >> >>> >> You are welcome
> >> >>> >>
> >> >>> >> --
> >> >>> >> Regards Ron de Bruin
> >> >>> >> http://www.rondebruin.nl
> >> >>> >>
> >> >>> >>
> >> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >>> >> > Wow :o)
> >> >>> >> > Ron, thank you to much.
> >> >>> >> > Drahos.
> >> >>> >> >
> >> >>> >> > "Ron de Bruin" wrote:
> >> >>> >> >
> >> >>> >> >> Hi Drahos
> >> >>> >> >>
> >> >>> >> >> Change the Range
> >> >>> >> >>
> >> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >> >>> >> >>
> >> >>> >> >>
> >> >>> >> >>
> >> >>> >> >> --
> >> >>> >> >> Regards Ron de Bruin
> >> >>> >> >> http://www.rondebruin.nl
> >> >>> >> >>
> >> >>> >> >>
> >> >>> >> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >>> >> >> > Hi Ron,
> >> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
> >> >>> >> >> > in a continuous range but they are on very different places. How can I do
> >> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >> >>> >> >> >
> >> >>> >> >> > Regards
> >> >>> >> >> > Drahos.
> >> >>> >> >> >
> >> >>> >> >> >
> >> >>> >> >> > "Ron de Bruin" wrote:
> >> >>> >> >> >
> >> >>> >> >> >> Hi Drahos
> >> >>> >> >> >>
> >> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
> >> >>> >> >> >> Calendar1
> >> >>> >> >> >>
> >> >>> >> >> >> Check out the name
> >> >>> >> >> >>
> >> >>> >> >> >> --
> >> >>> >> >> >> Regards Ron de Bruin
> >> >>> >> >> >> http://www.rondebruin.nl
> >> >>> >> >> >>
> >> >>> >> >> >>
> >> >>> >> >> >> "Drahos" <[email protected]> wrote in message
> >> >>> >> >> >> news:[email protected]...
> >> >>> >> >> >> > 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" <[email protected]> wrote in message
> >> >>> >> >> >> >> news:[email protected]...
> >> >>> >> >> >> >> >
> >> >>> >> >> >> >>
> >> >>> >> >> >> >>
> >> >>> >> >> >> >>
> >> >>> >> >> >>
> >> >>> >> >> >>
> >> >>> >> >> >>
> >> >>> >> >>
> >> >>> >> >>
> >> >>> >> >>
> >> >>> >>
> >> >>> >>
> >> >>> >>
> >> >>>
> >> >>>
> >> >>>
> >> >
> >> >
> >>
> >>
> >>
>
>
>

I think I do this

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
If Target.Row < 4 Then
Calendar1.Top = Rows("4").Top
Else
Calendar1.Top = Target.Top + Target.Height
End If
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
> after some time I am back. I would like to thank you for your help. It is
> strange but I have not been able to format the Calendar in the file we were
> talking about. At the end I have solved the question of formatting the
> Calendar in another way. I have formatted the Calendar Object in other
> workbook and after that I have copied it to my workbook.
>
> Ron, I would like to ask for your help again. The form we have been
> discussing is a Single one. On the base of this Single form I have prepared a
> MASS form. This is supposed to be used in cases when more than one change is
> requested. In this MASS form is in one line/row all info which is on a Single
> form.
>
> The problem is that I have frozen panes on the level of 4th row. On the
> 2nd row in the cell M2 I need to input a date. The 3rd row's height is 40.
> The problem is that the line of freezing after the 3rd row comes through the
> Calendar and all dates under this freezing line are also frozen and it is
> impossible to input them to the cell. In my case I am able to input only
> dates from the first row in the Calendar.
>
> Do you have an idea how to solve it? One possibility is not to use frozen
> panes but I would like to have panes frozen and at the same time to be able
> to input all dates from the Calendar.
>
> Ron, thanks a lot for your help in advance.
>
> Drahos.
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> I have test it in a English version
>>
>> Try it again
>>
>> Note: if you are in the VBA
>> View>Toolbars>Edit
>>
>> On the Edit toolbar you find the buttons to comment and uncomment the
>> selected code
>>
>>
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > Hi Ron,
>> >
>> > sorry I am to you. When I do what you have adviced at home it works. But if
>> > I do it in the office I still have 2 Pop Up Calenders. At home I have Czech
>> > XP Professional and Czech Office 2003. In the office I have Englich Version
>> > of those two applications. I have not take the file from home to run it in
>> > the office. But the home file has been originaly created in the office.
>> >
>> > Do you have any idea?
>> > Thanks a lot for your help.
>> > Drahos.
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> Hi Drahos
>> >>
>> >> Yes I see the same problem.
>> >>
>> >> Workaround is to comment the event code in the sheet module before you change the size
>> >> If you are ready uncomment the code
>> >>
>> >>
>> >> --
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >>
>> >>
>> >> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
>> >> > OK
>> >> >
>> >> > My provider have server problems the last weeks so it is possible
>> >> > that I can't read your mail today (sometimes a few hours)
>> >> >
>> >> >
>> >> > --
>> >> > Regards Ron de Bruin
>> >> > http://www.rondebruin.nl
>> >> >
>> >> >
>> >> > "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >> Hi Ron,
>> >> >>
>> >> >> I have sent it to your emai address mentioned on your webside
>> >> >> [email protected]
>> >> >>
>> >> >> Thanks a lot.
>> >> >>
>> >> >> Drahos
>> >> >>
>> >> >> "Ron de Bruin" wrote:
>> >> >>
>> >> >>> Hi Drahos
>> >> >>>
>> >> >>> Can you send me a example workbook private to see this
>> >> >>>
>> >> >>> --
>> >> >>> Regards Ron de Bruin
>> >> >>> http://www.rondebruin.nl
>> >> >>>
>> >> >>>
>> >> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >>> > Good morning Ron,
>> >> >>> >
>> >> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
>> >> >>> > help again. I hope last time concerning this issue.
>> >> >>> >
>> >> >>> > I have a problem with a change of size of the calendar. If I change the
>> >> >>> > size of the calendar in a new empty sheet it works without any problem. But
>> >> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
>> >> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
>> >> >>> > is active. The calendar in requested size is behind the smaller one and is
>> >> >>> > inactive.
>> >> >>> > Do you have an idea what is wrong?
>> >> >>> >
>> >> >>> > Thanks again in advance.
>> >> >>> > Drahos.
>> >> >>> >
>> >> >>> >
>> >> >>> > "Ron de Bruin" wrote:
>> >> >>> >
>> >> >>> >> You are welcome
>> >> >>> >>
>> >> >>> >> --
>> >> >>> >> Regards Ron de Bruin
>> >> >>> >> http://www.rondebruin.nl
>> >> >>> >>
>> >> >>> >>
>> >> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >>> >> > Wow :o)
>> >> >>> >> > Ron, thank you to much.
>> >> >>> >> > Drahos.
>> >> >>> >> >
>> >> >>> >> > "Ron de Bruin" wrote:
>> >> >>> >> >
>> >> >>> >> >> Hi Drahos
>> >> >>> >> >>
>> >> >>> >> >> Change the Range
>> >> >>> >> >>
>> >> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>> >> >>> >> >>
>> >> >>> >> >>
>> >> >>> >> >>
>> >> >>> >> >> --
>> >> >>> >> >> Regards Ron de Bruin
>> >> >>> >> >> http://www.rondebruin.nl
>> >> >>> >> >>
>> >> >>> >> >>
>> >> >>> >> >> "Drahos" <[email protected]> wrote in message
>> >> >>> >> >> news:[email protected]...
>> >> >>> >> >> > Hi Ron,
>> >> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
>> >> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
>> >> >>> >> >> > in a continuous range but they are on very different places. How can I do
>> >> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
>> >> >>> >> >> >
>> >> >>> >> >> > Regards
>> >> >>> >> >> > Drahos.
>> >> >>> >> >> >
>> >> >>> >> >> >
>> >> >>> >> >> > "Ron de Bruin" wrote:
>> >> >>> >> >> >
>> >> >>> >> >> >> Hi Drahos
>> >> >>> >> >> >>
>> >> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
>> >> >>> >> >> >> Calendar1
>> >> >>> >> >> >>
>> >> >>> >> >> >> Check out the name
>> >> >>> >> >> >>
>> >> >>> >> >> >> --
>> >> >>> >> >> >> Regards Ron de Bruin
>> >> >>> >> >> >> http://www.rondebruin.nl
>> >> >>> >> >> >>
>> >> >>> >> >> >>
>> >> >>> >> >> >> "Drahos" <[email protected]> wrote in message
>> >> >>> >> >> >> news:[email protected]...
>> >> >>> >> >> >> > 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" <[email protected]> wrote in message
>> >> >>> >> >> >> >> news:[email protected]...
>> >> >>> >> >> >> >> >
>> >> >>> >> >> >> >>
>> >> >>> >> >> >> >>
>> >> >>> >> >> >> >>
>> >> >>> >> >> >>
>> >> >>> >> >> >>
>> >> >>> >> >> >>
>> >> >>> >> >>
>> >> >>> >> >>
>> >> >>> >> >>
>> >> >>> >>
>> >> >>> >>
>> >> >>> >>
>> >> >>>
>> >> >>>
>> >> >>>
>> >> >
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>

Hi Ron,

it works excelent. You are the best :o)

Thanks a lot.

Drahos.

"Ron de Bruin" wrote:

> I think I do this
>
> 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
> If Target.Row < 4 Then
> Calendar1.Top = Rows("4").Top
> Else
> Calendar1.Top = Target.Top + Target.Height
> End If
> Calendar1.Visible = True
> ' select Today's date in the Calendar
> Calendar1.Value = Date
> ElseIf Calendar1.Visible Then Calendar1.Visible = False
> End If
> End Sub
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > Hi Ron,
> > after some time I am back. I would like to thank you for your help. It is
> > strange but I have not been able to format the Calendar in the file we were
> > talking about. At the end I have solved the question of formatting the
> > Calendar in another way. I have formatted the Calendar Object in other
> > workbook and after that I have copied it to my workbook.
> >
> > Ron, I would like to ask for your help again. The form we have been
> > discussing is a Single one. On the base of this Single form I have prepared a
> > MASS form. This is supposed to be used in cases when more than one change is
> > requested. In this MASS form is in one line/row all info which is on a Single
> > form.
> >
> > The problem is that I have frozen panes on the level of 4th row. On the
> > 2nd row in the cell M2 I need to input a date. The 3rd row's height is 40.
> > The problem is that the line of freezing after the 3rd row comes through the
> > Calendar and all dates under this freezing line are also frozen and it is
> > impossible to input them to the cell. In my case I am able to input only
> > dates from the first row in the Calendar.
> >
> > Do you have an idea how to solve it? One possibility is not to use frozen
> > panes but I would like to have panes frozen and at the same time to be able
> > to input all dates from the Calendar.
> >
> > Ron, thanks a lot for your help in advance.
> >
> > Drahos.
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> I have test it in a English version
> >>
> >> Try it again
> >>
> >> Note: if you are in the VBA
> >> View>Toolbars>Edit
> >>
> >> On the Edit toolbar you find the buttons to comment and uncomment the
> >> selected code
> >>
> >>
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > Hi Ron,
> >> >
> >> > sorry I am to you. When I do what you have adviced at home it works. But if
> >> > I do it in the office I still have 2 Pop Up Calenders. At home I have Czech
> >> > XP Professional and Czech Office 2003. In the office I have Englich Version
> >> > of those two applications. I have not take the file from home to run it in
> >> > the office. But the home file has been originaly created in the office.
> >> >
> >> > Do you have any idea?
> >> > Thanks a lot for your help.
> >> > Drahos.
> >> >
> >> > "Ron de Bruin" wrote:
> >> >
> >> >> Hi Drahos
> >> >>
> >> >> Yes I see the same problem.
> >> >>
> >> >> Workaround is to comment the event code in the sheet module before you change the size
> >> >> If you are ready uncomment the code
> >> >>
> >> >>
> >> >> --
> >> >> Regards Ron de Bruin
> >> >> http://www.rondebruin.nl
> >> >>
> >> >>
> >> >> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
> >> >> > OK
> >> >> >
> >> >> > My provider have server problems the last weeks so it is possible
> >> >> > that I can't read your mail today (sometimes a few hours)
> >> >> >
> >> >> >
> >> >> > --
> >> >> > Regards Ron de Bruin
> >> >> > http://www.rondebruin.nl
> >> >> >
> >> >> >
> >> >> > "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> >> Hi Ron,
> >> >> >>
> >> >> >> I have sent it to your emai address mentioned on your webside
> >> >> >> [email protected]
> >> >> >>
> >> >> >> Thanks a lot.
> >> >> >>
> >> >> >> Drahos
> >> >> >>
> >> >> >> "Ron de Bruin" wrote:
> >> >> >>
> >> >> >>> Hi Drahos
> >> >> >>>
> >> >> >>> Can you send me a example workbook private to see this
> >> >> >>>
> >> >> >>> --
> >> >> >>> Regards Ron de Bruin
> >> >> >>> http://www.rondebruin.nl
> >> >> >>>
> >> >> >>>
> >> >> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> >>> > Good morning Ron,
> >> >> >>> >
> >> >> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
> >> >> >>> > help again. I hope last time concerning this issue.
> >> >> >>> >
> >> >> >>> > I have a problem with a change of size of the calendar. If I change the
> >> >> >>> > size of the calendar in a new empty sheet it works without any problem. But
> >> >> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
> >> >> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
> >> >> >>> > is active. The calendar in requested size is behind the smaller one and is
> >> >> >>> > inactive.
> >> >> >>> > Do you have an idea what is wrong?
> >> >> >>> >
> >> >> >>> > Thanks again in advance.
> >> >> >>> > Drahos.
> >> >> >>> >
> >> >> >>> >
> >> >> >>> > "Ron de Bruin" wrote:
> >> >> >>> >
> >> >> >>> >> You are welcome
> >> >> >>> >>
> >> >> >>> >> --
> >> >> >>> >> Regards Ron de Bruin
> >> >> >>> >> http://www.rondebruin.nl
> >> >> >>> >>
> >> >> >>> >>
> >> >> >>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> >> >>> >> > Wow :o)
> >> >> >>> >> > Ron, thank you to much.
> >> >> >>> >> > Drahos.
> >> >> >>> >> >
> >> >> >>> >> > "Ron de Bruin" wrote:
> >> >> >>> >> >
> >> >> >>> >> >> Hi Drahos
> >> >> >>> >> >>
> >> >> >>> >> >> Change the Range
> >> >> >>> >> >>
> >> >> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
> >> >> >>> >> >>
> >> >> >>> >> >>
> >> >> >>> >> >>
> >> >> >>> >> >> --
> >> >> >>> >> >> Regards Ron de Bruin
> >> >> >>> >> >> http://www.rondebruin.nl
> >> >> >>> >> >>
> >> >> >>> >> >>
> >> >> >>> >> >> "Drahos" <[email protected]> wrote in message
> >> >> >>> >> >> news:[email protected]...
> >> >> >>> >> >> > Hi Ron,
> >> >> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
> >> >> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
> >> >> >>> >> >> > in a continuous range but they are on very different places. How can I do
> >> >> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
> >> >> >>> >> >> >
> >> >> >>> >> >> > Regards
> >> >> >>> >> >> > Drahos.
> >> >> >>> >> >> >
> >> >> >>> >> >> >
> >> >> >>> >> >> > "Ron de Bruin" wrote:
> >> >> >>> >> >> >
> >> >> >>> >> >> >> Hi Drahos
> >> >> >>> >> >> >>
> >> >> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
> >> >> >>> >> >> >> Calendar1
> >> >> >>> >> >> >>
> >> >> >>> >> >> >> Check out the name
> >> >> >>> >> >> >>
> >> >> >>> >> >> >> --
> >> >> >>> >> >> >> Regards Ron de Bruin
> >> >> >>> >> >> >> http://www.rondebruin.nl
> >> >> >>> >> >> >>
> >> >> >>> >> >> >>
> >> >> >>> >> >> >> "Drahos" <[email protected]> wrote in message
> >> >> >>> >> >> >> news:[email protected]...
> >> >> >>> >> >> >> > 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" <[email protected]> wrote in message
> >> >> >>> >> >> >> >> news:[email protected]...
> >> >> >>> >> >> >> >> >
> >> >> >>> >> >> >> >>
> >> >> >>> >> >> >> >>
> >> >> >>> >> >> >> >>
> >> >> >>> >> >> >>
> >> >> >>> >> >> >>
> >> >> >>> >> >> >>
> >> >> >>> >> >>
> >> >> >>> >> >>
> >> >> >>> >> >>
> >> >> >>> >>
> >> >> >>> >>
> >> >> >>> >>
> >> >> >>>
> >> >> >>>
> >> >> >>>
> >> >> >
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

You are welcome


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Drahos" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
>
> it works excelent. You are the best :o)
>
> Thanks a lot.
>
> Drahos.
>
> "Ron de Bruin" wrote:
>
>> I think I do this
>>
>> 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
>> If Target.Row < 4 Then
>> Calendar1.Top = Rows("4").Top
>> Else
>> Calendar1.Top = Target.Top + Target.Height
>> End If
>> Calendar1.Visible = True
>> ' select Today's date in the Calendar
>> Calendar1.Value = Date
>> ElseIf Calendar1.Visible Then Calendar1.Visible = False
>> End If
>> End Sub
>>
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > Hi Ron,
>> > after some time I am back. I would like to thank you for your help. It is
>> > strange but I have not been able to format the Calendar in the file we were
>> > talking about. At the end I have solved the question of formatting the
>> > Calendar in another way. I have formatted the Calendar Object in other
>> > workbook and after that I have copied it to my workbook.
>> >
>> > Ron, I would like to ask for your help again. The form we have been
>> > discussing is a Single one. On the base of this Single form I have prepared a
>> > MASS form. This is supposed to be used in cases when more than one change is
>> > requested. In this MASS form is in one line/row all info which is on a Single
>> > form.
>> >
>> > The problem is that I have frozen panes on the level of 4th row. On the
>> > 2nd row in the cell M2 I need to input a date. The 3rd row's height is 40.
>> > The problem is that the line of freezing after the 3rd row comes through the
>> > Calendar and all dates under this freezing line are also frozen and it is
>> > impossible to input them to the cell. In my case I am able to input only
>> > dates from the first row in the Calendar.
>> >
>> > Do you have an idea how to solve it? One possibility is not to use frozen
>> > panes but I would like to have panes frozen and at the same time to be able
>> > to input all dates from the Calendar.
>> >
>> > Ron, thanks a lot for your help in advance.
>> >
>> > Drahos.
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> Hi Drahos
>> >>
>> >> I have test it in a English version
>> >>
>> >> Try it again
>> >>
>> >> Note: if you are in the VBA
>> >> View>Toolbars>Edit
>> >>
>> >> On the Edit toolbar you find the buttons to comment and uncomment the
>> >> selected code
>> >>
>> >>
>> >>
>> >> --
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >>
>> >>
>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> > Hi Ron,
>> >> >
>> >> > sorry I am to you. When I do what you have adviced at home it works. But if
>> >> > I do it in the office I still have 2 Pop Up Calenders. At home I have Czech
>> >> > XP Professional and Czech Office 2003. In the office I have Englich Version
>> >> > of those two applications. I have not take the file from home to run it in
>> >> > the office. But the home file has been originaly created in the office.
>> >> >
>> >> > Do you have any idea?
>> >> > Thanks a lot for your help.
>> >> > Drahos.
>> >> >
>> >> > "Ron de Bruin" wrote:
>> >> >
>> >> >> Hi Drahos
>> >> >>
>> >> >> Yes I see the same problem.
>> >> >>
>> >> >> Workaround is to comment the event code in the sheet module before you change the size
>> >> >> If you are ready uncomment the code
>> >> >>
>> >> >>
>> >> >> --
>> >> >> Regards Ron de Bruin
>> >> >> http://www.rondebruin.nl
>> >> >>
>> >> >>
>> >> >> "Ron de Bruin" <[email protected]> wrote in message news:[email protected]...
>> >> >> > OK
>> >> >> >
>> >> >> > My provider have server problems the last weeks so it is possible
>> >> >> > that I can't read your mail today (sometimes a few hours)
>> >> >> >
>> >> >> >
>> >> >> > --
>> >> >> > Regards Ron de Bruin
>> >> >> > http://www.rondebruin.nl
>> >> >> >
>> >> >> >
>> >> >> > "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >> >> Hi Ron,
>> >> >> >>
>> >> >> >> I have sent it to your emai address mentioned on your webside
>> >> >> >> [email protected]
>> >> >> >>
>> >> >> >> Thanks a lot.
>> >> >> >>
>> >> >> >> Drahos
>> >> >> >>
>> >> >> >> "Ron de Bruin" wrote:
>> >> >> >>
>> >> >> >>> Hi Drahos
>> >> >> >>>
>> >> >> >>> Can you send me a example workbook private to see this
>> >> >> >>>
>> >> >> >>> --
>> >> >> >>> Regards Ron de Bruin
>> >> >> >>> http://www.rondebruin.nl
>> >> >> >>>
>> >> >> >>>
>> >> >> >>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> >> >>> > Good morning Ron,
>> >> >> >>> >
>> >> >> >>> > now, thanks to you calendar works perfectly. I would like to ask for your
>> >> >> >>> > help again. I hope last time concerning this issue.
>> >> >> >>> >
>> >> >> >>> > I have a problem with a change of size of the calendar. If I change the
>> >> >> >>> > size of the calendar in a new empty sheet it works without any problem. But
>> >> >> >>> > if I do it in my Form after exiting the design mode the calendar is displaied
>> >> >> >>> > 2x. One is in a requested size and the other is much smaller. The smaler one
>> >> >> >>> > is active. The calendar in requested size is behind the smaller one and is
>> >> >> >>> > inactive.
>> >> >> >>> > Do you have an idea what is wrong?
>> >> >> >>> >
>> >> >> >>> > Thanks again in advance.
>> >> >> >>> > Drahos.
>> >> >> >>> >
>> >> >> >>> >
>> >> >> >>> > "Ron de Bruin" wrote:
>> >> >> >>> >
>> >> >> >>> >> You are welcome
>> >> >> >>> >>
>> >> >> >>> >> --
>> >> >> >>> >> Regards Ron de Bruin
>> >> >> >>> >> http://www.rondebruin.nl
>> >> >> >>> >>
>> >> >> >>> >>
>> >> >> >>> >> "Drahos" <[email protected]> wrote in message
>> >> >> >>> >> news:[email protected]...
>> >> >> >>> >> > Wow :o)
>> >> >> >>> >> > Ron, thank you to much.
>> >> >> >>> >> > Drahos.
>> >> >> >>> >> >
>> >> >> >>> >> > "Ron de Bruin" wrote:
>> >> >> >>> >> >
>> >> >> >>> >> >> Hi Drahos
>> >> >> >>> >> >>
>> >> >> >>> >> >> Change the Range
>> >> >> >>> >> >>
>> >> >> >>> >> >> If Not Application.Intersect(Range("A1:A20,C1,C5,D20"), Target) Is Nothing Then
>> >> >> >>> >> >>
>> >> >> >>> >> >>
>> >> >> >>> >> >>
>> >> >> >>> >> >> --
>> >> >> >>> >> >> Regards Ron de Bruin
>> >> >> >>> >> >> http://www.rondebruin.nl
>> >> >> >>> >> >>
>> >> >> >>> >> >>
>> >> >> >>> >> >> "Drahos" <[email protected]> wrote in message
>> >> >> >>> >> >> news:[email protected]...
>> >> >> >>> >> >> > Hi Ron,
>> >> >> >>> >> >> > you are right. Thanks a lot. Now one more question. I need to have in my
>> >> >> >>> >> >> > form severel cells containing Calendar. The problem is these fields are not
>> >> >> >>> >> >> > in a continuous range but they are on very different places. How can I do
>> >> >> >>> >> >> > this. Now I am not sure but there should be about 8 cells containing calendar.
>> >> >> >>> >> >> >
>> >> >> >>> >> >> > Regards
>> >> >> >>> >> >> > Drahos.
>> >> >> >>> >> >> >
>> >> >> >>> >> >> >
>> >> >> >>> >> >> > "Ron de Bruin" wrote:
>> >> >> >>> >> >> >
>> >> >> >>> >> >> >> Hi Drahos
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >> Maybe the Calendar you have add to the worksheet is not named
>> >> >> >>> >> >> >> Calendar1
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >> Check out the name
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >> --
>> >> >> >>> >> >> >> Regards Ron de Bruin
>> >> >> >>> >> >> >> http://www.rondebruin.nl
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >> "Drahos" <[email protected]> wrote in message
>> >> >> >>> >> >> >> news:[email protected]...
>> >> >> >>> >> >> >> > 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" <[email protected]> wrote in message
>> >> >> >>> >> >> >> >> news:[email protected]...
>> >> >> >>> >> >> >> >> >
>> >> >> >>> >> >> >> >>
>> >> >> >>> >> >> >> >>
>> >> >> >>> >> >> >> >>
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >>
>> >> >> >>> >> >> >>
>> >> >> >>> >> >>
>> >> >> >>> >> >>
>> >> >> >>> >> >>
>> >> >> >>> >>
>> >> >> >>> >>
>> >> >> >>> >>
>> >> >> >>>
>> >> >> >>>
>> >> >> >>>
>> >> >> >
>> >> >> >
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

Ron;
I got the same error message that Drahos had.
What do you mean with "Maybe the Calendar you have add to the worksheet is
not named Calendar1". How and where can I change this name?

Thanks in advance.
Maperalia



"Ron de Bruin" wrote:

> Hi Drahos
>
> Maybe the Calendar you have add to the worksheet is not named
> Calendar1
>
> Check out the name
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > 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" <[email protected]> wrote in message
> >> news:[email protected]...
> >> >
> >>
> >>
> >>
>
>
>

hi maperalia

If you go in Edit mode (button on the control toolbox toolbar) and select the calendar you can see the name in the formulabar.
You can change it there also


--
Regards Ron de Bruin
http://www.rondebruin.nl


"maperalia" <[email protected]> wrote in message news:[email protected]...
> Ron;
> I got the same error message that Drahos had.
> What do you mean with "Maybe the Calendar you have add to the worksheet is
> not named Calendar1". How and where can I change this name?
>
> Thanks in advance.
> Maperalia
>
>
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> Maybe the Calendar you have add to the worksheet is not named
>> Calendar1
>>
>> Check out the name
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > 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" <[email protected]> wrote in message
>> >> news:[email protected]...
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>

Ron;
I got it. Thanks you very much!!!!!!!
I have found that you have been helping me in a lot of questions I have been
having in this wonderful site.
i really appreciatte you supporting in VBA.

Kind regards.
Maperalia

"Ron de Bruin" wrote:

> hi maperalia
>
> If you go in Edit mode (button on the control toolbox toolbar) and select the calendar you can see the name in the formulabar.
> You can change it there also
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "maperalia" <[email protected]> wrote in message news:[email protected]...
> > Ron;
> > I got the same error message that Drahos had.
> > What do you mean with "Maybe the Calendar you have add to the worksheet is
> > not named Calendar1". How and where can I change this name?
> >
> > Thanks in advance.
> > Maperalia
> >
> >
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> Maybe the Calendar you have add to the worksheet is not named
> >> Calendar1
> >>
> >> Check out the name
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > 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" <[email protected]> wrote in message
> >> >> news:[email protected]...
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

Hi Ron,

Thanks for displaying the information on how to load a calendar.
I have a couple of questions if you can help please?

Is there a way of when you click on the cell the calendar pops up to only
select the date once via the mouse and the pop up calendar disappears rather
than you clicking enter or clicking on other cell?
Also I am having problems changing the date format to UK - I have changed
this in the format cells section, but it reverts back to US version for each
date selected? - Is there any way you can lock the format?

Thanks

"Ron de Bruin" wrote:

> Hi Drahos
>
> Maybe the Calendar you have add to the worksheet is not named
> Calendar1
>
> Check out the name
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Drahos" <[email protected]> wrote in message news:[email protected]...
> > 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" <[email protected]> wrote in message
> >> news:[email protected]...
> >> >
> >>
> >>
> >>
>
>
>

Hi Darren

Which Excel version do you use ?
You have a protected sheet ?

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Darren" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
>
> Thanks for displaying the information on how to load a calendar.
> I have a couple of questions if you can help please?
>
> Is there a way of when you click on the cell the calendar pops up to only
> select the date once via the mouse and the pop up calendar disappears rather
> than you clicking enter or clicking on other cell?
> Also I am having problems changing the date format to UK - I have changed
> this in the format cells section, but it reverts back to US version for each
> date selected? - Is there any way you can lock the format?
>
> Thanks
>
> "Ron de Bruin" wrote:
>
>> Hi Drahos
>>
>> Maybe the Calendar you have add to the worksheet is not named
>> Calendar1
>>
>> Check out the name
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> > 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" <[email protected]> wrote in message
>> >> news:[email protected]...
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>

Hi Ron,

It's 2003 version.
No, It's not protected - I have created a new sheet...

Thanks for looking into this....

regards

"Ron de Bruin" wrote:

> Hi Darren
>
> Which Excel version do you use ?
> You have a protected sheet ?
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Darren" <[email protected]> wrote in message news:[email protected]...
> > Hi Ron,
> >
> > Thanks for displaying the information on how to load a calendar.
> > I have a couple of questions if you can help please?
> >
> > Is there a way of when you click on the cell the calendar pops up to only
> > select the date once via the mouse and the pop up calendar disappears rather
> > than you clicking enter or clicking on other cell?
> > Also I am having problems changing the date format to UK - I have changed
> > this in the format cells section, but it reverts back to US version for each
> > date selected? - Is there any way you can lock the format?
> >
> > Thanks
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> Maybe the Calendar you have add to the worksheet is not named
> >> Calendar1
> >>
> >> Check out the name
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > 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" <[email protected]> wrote in message
> >> >> news:[email protected]...
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

Hi Ron,

Ignore my previous reply - I've managed to fix the problem of the date - i
didn't see the fomat within the code..
Thanks anyway

But do you know if there is a way of when you select the cell and a date,
just one click on the date to remove the calender rather than selecting
another cell or pressing enter and is there an icon you can use..? (pretty
much similar to a web based calendar form..?)

Thanks in advance..


"Ron de Bruin" wrote:

> Hi Darren
>
> Which Excel version do you use ?
> You have a protected sheet ?
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Darren" <[email protected]> wrote in message news:[email protected]...
> > Hi Ron,
> >
> > Thanks for displaying the information on how to load a calendar.
> > I have a couple of questions if you can help please?
> >
> > Is there a way of when you click on the cell the calendar pops up to only
> > select the date once via the mouse and the pop up calendar disappears rather
> > than you clicking enter or clicking on other cell?
> > Also I am having problems changing the date format to UK - I have changed
> > this in the format cells section, but it reverts back to US version for each
> > date selected? - Is there any way you can lock the format?
> >
> > Thanks
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Drahos
> >>
> >> Maybe the Calendar you have add to the worksheet is not named
> >> Calendar1
> >>
> >> Check out the name
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
> >> > 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" <[email protected]> wrote in message
> >> >> news:[email protected]...
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

Hi Darren

You can use a macro and assign it to a button if you want
Delete the selection change event and use this in the sheet module

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Calendar1.Visible = False
End Sub


Copy this in a normal module

Sub Call_Calendar()
With Sheets("Sheet1")
If Not Application.Intersect(.Range("A1:A10"), ActiveCell) Is Nothing Then
.Calendar1.Left = ActiveCell.Left + ActiveCell.Width - .Calendar1.Width
.Calendar1.Top = ActiveCell.Top + ActiveCell.Height
.Calendar1.Visible = True
' select Today's date in the Calendar
.Calendar1.Value = Date
ElseIf .Calendar1.Visible Then .Calendar1.Visible = False
End If
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Darren" <[email protected]> wrote in message news:[email protected]...
> Hi Ron,
>
> Ignore my previous reply - I've managed to fix the problem of the date - i
> didn't see the fomat within the code..
> Thanks anyway
>
> But do you know if there is a way of when you select the cell and a date,
> just one click on the date to remove the calender rather than selecting
> another cell or pressing enter and is there an icon you can use..? (pretty
> much similar to a web based calendar form..?)
>
> Thanks in advance..
>
>
> "Ron de Bruin" wrote:
>
>> Hi Darren
>>
>> Which Excel version do you use ?
>> You have a protected sheet ?
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>>
>> "Darren" <[email protected]> wrote in message news:[email protected]...
>> > Hi Ron,
>> >
>> > Thanks for displaying the information on how to load a calendar.
>> > I have a couple of questions if you can help please?
>> >
>> > Is there a way of when you click on the cell the calendar pops up to only
>> > select the date once via the mouse and the pop up calendar disappears rather
>> > than you clicking enter or clicking on other cell?
>> > Also I am having problems changing the date format to UK - I have changed
>> > this in the format cells section, but it reverts back to US version for each
>> > date selected? - Is there any way you can lock the format?
>> >
>> > Thanks
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> Hi Drahos
>> >>
>> >> Maybe the Calendar you have add to the worksheet is not named
>> >> Calendar1
>> >>
>> >> Check out the name
>> >>
>> >> --
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl
>> >>
>> >>
>> >> "Drahos" <[email protected]> wrote in message news:[email protected]...
>> >> > 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" <[email protected]> wrote in message
>> >> >> news:[email protected]...
>> >> >> >
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>