MonthView multiselect Start and End date into cells

Asked Sep 30 '15 at 17:18

Active Sep 30 '15 at 19:00

Viewed 665 times

I'm creating a userform, part of which includes a MonthView control set up with the multiselect option enabled. I'm trying to get the start date and end date that the users select into two different cells on the worksheet (let's say A1 and B1 for example). From what I've looked up I understand that you can get the start/end date using SelStart and SelEnd, but I'm unsure of how to do this or how this works. I can get it to put in the first date selected by using something like this:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
   On Error Resume Next
   Range("A1") = DateClicked
   Unload Me
End Sub

But that doesn't include the last date.

A workaround would be to have two separate MonthView controls programmed like the one above to put the two dates in separately, but I'd much rather use this drag to select functionality if possible.

edited Sep 30 '15 at 19:00

pnuts

58,317
11
87
139

asked Sep 30 '15 at 17:18

nickelcap

See this article https://msdn.microsoft.com/en-us/library/aa733656(v=vs.60).aspx – HarveyFrench Sep 30 '15 at 17:37
Also see here: http://stackoverflow.com/questions/12012206/formatting-mm-dd-yyyy-dates-in-textbox-in-vba/12013961#12013961 – HarveyFrench Sep 30 '15 at 17:41
I would advise against using "On Error Resume Next". It can mask errors and cause a lot of problems. – MatthewD Sep 30 '15 at 18:05

MonthView multiselect Start and End date into cells

0 Answers0