Calendar Control - closing out
 

Hi - I'm a newbie with VB programming, so this may be a simple
solution which I'm just missing, but....

I'm using the Calendar Control version 11 within my spreadsheet to
allow a user to select a date for a specific cell. I have set up the
form to become visible once a button is clicked.

Afterwards, I'm trying to put code inside the AfterUpdate() sub which
will close the Calendar Control (or at least make it not visible). My
code is ery simple:

Private Sub frmCalendarBox_AfterUpdate()
frmCalendarBox.Visible = False
End Sub

The bad news is that this isn't working. Any thoughts???

PS - I also tried to trigger the close based on the value in my taget
cell (F6) being changed. For this I used the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F6").Value 1 / 1 / 2006 Then
frmCalendarBox.Visible = False
End If
End Sub

But no luck with that, either.

Any help someone could give would be appreciated!!!

Thanks,

-Mike

Calendar Control - closing out
 

See my code page Mike
http://www.rondebruin.nl/calendar.htm

--

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


wrote in message ups.com...
Hi - I'm a newbie with VB programming, so this may be a simple
solution which I'm just missing, but....

I'm using the Calendar Control version 11 within my spreadsheet to
allow a user to select a date for a specific cell. I have set up the
form to become visible once a button is clicked.

Afterwards, I'm trying to put code inside the AfterUpdate() sub which
will close the Calendar Control (or at least make it not visible). My
code is ery simple:

Private Sub frmCalendarBox_AfterUpdate()
frmCalendarBox.Visible = False
End Sub

The bad news is that this isn't working. Any thoughts???

PS - I also tried to trigger the close based on the value in my taget
cell (F6) being changed. For this I used the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F6").Value 1 / 1 / 2006 Then
frmCalendarBox.Visible = False
End If
End Sub

But no luck with that, either.

Any help someone could give would be appreciated!!!

Thanks,

-Mike

Calendar Control - closing out
 

On May 15, 11:54 am, "Ron de Bruin" wrote:
See my code page Mikehttp://www.rondebruin.nl/calendar.htm

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm



wrote in oglegroups.com...
Hi - I'm a newbie with VB programming, so this may be a simple
solution which I'm just missing, but....

I'm using the Calendar Control version 11 within my spreadsheet to
allow a user to select a date for a specific cell. I have set up the
form to become visible once a button is clicked.

Afterwards, I'm trying to put code inside the AfterUpdate() sub which
will close the Calendar Control (or at least make it not visible). My
code is ery simple:

Private Sub frmCalendarBox_AfterUpdate()
frmCalendarBox.Visible = False
End Sub

The bad news is that this isn't working. Any thoughts???

PS - I also tried to trigger the close based on the value in my taget
cell (F6) being changed. For this I used the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F6").Value 1 / 1 / 2006 Then
frmCalendarBox.Visible = False
End If
End Sub

But no luck with that, either.

Any help someone could give would be appreciated!!!

Thanks,

-Mike- Hide quoted text -

- Show quoted text -


Thanks Ron!! It wasn't exactly what I was looking for (hoping to have
the control close after a date is selected - without the user needing
to click outside the Calendar), but it's close enough and I'm happy
with it. Thanks again!

-Mike