Hi,

I've got the following code which enables a calendar to pop-up then
disappear when another cell not in the mentioned range is selected. As i'm
not very good at understanding and editing code, does anyone know how to edit
the below code to allow me to specify where the calendar appears, and also to
select cell B3 but have the selected date populate cell C3.

Here's the code:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Thanks,

Chris

Not sure of when you wanted to select B3 but this should do the rest, left
and top change the position, play around til you get it how you want.
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Cells(3, 2).Select 'is this where you want to select cell B3?
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height

' select Today's date in the Calendar
Calendar1.Value = Date
'*****************************************
Calendar1.Left = 100 'position here before making visible
Calendar1.Top = 50
Calendar1.LinkedCell = "C3"

'****************************************
Calendar1.Visible = True



ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub


--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"Chris" wrote in message
...
Hi,

I've got the following code which enables a calendar to pop-up then
disappear when another cell not in the mentioned range is selected. As i'm
not very good at understanding and editing code, does anyone know how to
edit
the below code to allow me to specify where the calendar appears, and also
to
select cell B3 but have the selected date populate cell C3.

Here's the code:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Thanks,

Chris

Thanks John, this is a great help

"John Bundy" wrote:

Not sure of when you wanted to select B3 but this should do the rest, left
and top change the position, play around til you get it how you want.
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
Cells(3, 2).Select 'is this where you want to select cell B3?
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height

' select Today's date in the Calendar
Calendar1.Value = Date
'*****************************************
Calendar1.Left = 100 'position here before making visible
Calendar1.Top = 50
Calendar1.LinkedCell = "C3"

'****************************************
Calendar1.Visible = True



ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub


--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"Chris" wrote in message
...
Hi,

I've got the following code which enables a calendar to pop-up then
disappear when another cell not in the mentioned range is selected. As i'm
not very good at understanding and editing code, does anyone know how to
edit
the below code to allow me to specify where the calendar appears, and also
to
select cell B3 but have the selected date populate cell C3.

Here's the code:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Thanks,

Chris

Private Sub Calendar1_Click()
With Me.Range("C3")
.Value = CDbl(Calendar1.Value)
.NumberFormat = "mm/dd/yyyy"
.Select
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("B3"), Target) Is Nothing Then
Calendar1.Left = Target.Offset(0, 1).Left
Calendar1.Top = Target.Offset(1, 0).Top
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub




--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Chris" wrote in message
...
Hi,

I've got the following code which enables a calendar to pop-up then
disappear when another cell not in the mentioned range is selected. As i'm
not very good at understanding and editing code, does anyone know how to
edit
the below code to allow me to specify where the calendar appears, and also
to
select cell B3 but have the selected date populate cell C3.

Here's the code:

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Thanks,

Chris