DatePicker

[AhmedAbdelhai]

Hi
I'm trying to put a DatePicker in my sheet in Column A.

I've used the tutorial below to do that.

https://github.com/Amallard/excelTricks/blob/master/DatePickerToCells.md

However, I need the datepicker range to start in column A from Cell 2 so that it doesn't mess up the table header.

Here is the sheet

One more thing, I don't know why every time I close the sheet, the excel shows an error that it stopped working and trying to recover the sheet.

Please help.

Thank you

 

[mumps]

Click here to download your file. Just click on any cell in column A.

 

[AhmedAbdelhai]

Thanks Mumps
It looks pretty neat
However the datepicker still appears when I click on the table header "Date".
I need the datepicker to start from A2

 

[mumps]

Replace the macro in the worksheet code module with this one:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    If Intersect(Target, Range("A2:A" & LastRow)) Is Nothing Then Exit Sub
    CalendarFrm.Show
    Application.ScreenUpdating = True
End Sub

 

[AhmedAbdelhai]

Thanks!
Works perfectly!

 

[mumps]

You are very welcome.