Week Commencing

[Noz2k]

What I want to do is derive the date of the previous Monday from a date textbox.

the code I have at the moment is

ActiveCell.Offset(0, 69) = CDate(txtDate.Value) - Weekday(CDate(txtDate.Value), vbMonday)

However this returned 15/05/2011 (which was Sunday), where am I going wrong?

 

[JamesW]

Hi,

By previous Monday do you mean a week last monday (9th), or the monday just gone (16th)?

9th:

CDate(txtDate.Value) - (Weekday(CDate(txtDate.Value), 2) + 6)

16th:

CDate(txtDate.Value) - (Weekday(CDate(txtDate.Value), 3))

 

[Noz2k]

Thanks, I wanted the most recent Monday (so the 16th)

Will this still work if the day was a Monday?

So if txtDate = 16/05/2011 would the result be the 16th or would it be the 9th?

 

[Noz2k]

Also what I wish to do with that information, is on a button click, find the first instance of this weekdate occuring (in columnBS).

and then populate another sheet with all the corresponding values in the that row.

and then find the 2nd instance and populate a different part of the sheet with those corresponding values.

I'm fine with referencing the form and getting it to populate how I wish (I think).

But I'm not sure how to find the first instance? and then the 2nd?