Snasui Excel Forum

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$E$6" Then
    With ActiveSheet.Calendar1
           .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
    End With
Else
    ActiveSheet.Calendar1.Visible = False
End If
Application.EnableEvents = True
End Sub

Code: Select all

Private Sub Calendar1_Click()
        ActiveCell.Value = Calendar1.Value
End Sub

Code: Select all

Private Sub Calendar1_Click()
[e6].Value = Calendar1.Value
Unload Me
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If (Target.Address = "$B$1" Or Target.Address = "$D$1" Or _
        Target.Address = "$G$4" Or Target.Address = "$G$5" Or Target.Address = "$G$6" Or _
        Target.Address = "$G$7" Or Target.Address = "$G$8" Or Target.Address = "$G$9" Or Target.Address = "$G$10") Then
    With ActiveSheet.Calendar1
            .Visible = True
            .Top = ActiveCell.Offset(0, 0).Top
            .Left = ActiveCell.Offset(0, 1).Left
             If Target.Value <> "" Then
                    .Value = Target.Value
            End If
    End With
Else
        ActiveSheet.Calendar1.Visible = False
End If
        Application.EnableEvents = True
End Sub
Private Sub Calendar1_Click()
        ActiveCell.Value = Calendar1.Value
End Sub