I am using a calendar pop up window in Excel spreadsheet to select dates. When i upload the file on to Google Docs, the settings get changed and i have to manually enter the dates.
The file attached shows how i select dates in Excel sheets from cell A2 to A20.
The code i have been using in excel is given below. However this code gives the error:
Missing ; before statement. (line 2)
Functioning code in Excel is as below- Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
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
Please help fix the issue or suggest a substitute way to do the same.