G
Guest
Hello:
I have a macro to invoke the calander control when a particular is active or
selected. When I select the cell and the calander control appears I find the
date I want, double click and that date drops in the active cell. the problem
I found is when I inserted the calander control from Insert object pull
down my paste function is greyed out. When I deleted the calander control my
paste function became available.
Here is the code that I have in my spreadsheet:
Private Sub Calendar1_DblClick()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell = Calendar1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A100"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else: Calendar1.Visible = False
End If
End Sub
any help as to why my paste function is unavailabe (greyed out) when I
insert the calander control?
Thank you
I have a macro to invoke the calander control when a particular is active or
selected. When I select the cell and the calander control appears I find the
date I want, double click and that date drops in the active cell. the problem
I found is when I inserted the calander control from Insert object pull
down my paste function is greyed out. When I deleted the calander control my
paste function became available.
Here is the code that I have in my spreadsheet:
Private Sub Calendar1_DblClick()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell = Calendar1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A100"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else: Calendar1.Visible = False
End If
End Sub
any help as to why my paste function is unavailabe (greyed out) when I
insert the calander control?
Thank you