Date due warning on opening

[frankp80]

Hi all,

I'm using a register where i want to have a messagebox upon opening the document which gives information about rows with expiring dates, but there are
some rules i want to implement and i can't seem to find something working.

The macro has to check the following:
if the status in column K is "nog aanvragen"
and the status in column L is "GIO"
it has to check if the week in column A is between 16 and 17 weeks from the first Monday from current day
if true it has to output the info in columns A, C, O and Q into a msgbox, but also states the number of days until duedate

Note:
If the current day is a Monday, it has the check for the next Monday.
If the status in column L is "KIO" it has to check for 10 and 11 weeks.

For example:
row 8 is due on Monday week 50 (11 dec 2017), so upon opening the document on december 6 2017 it has to give row 8 as due in 5 days.
row 7 is due on Monday week 2 (8 jan 2018)

Who can help out?

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
4	Week	Jaar	Dag	Van		Tot		Aanvraagnr	Datum Ingediend	WBI nr	Status	GIO/KIO	SLS	Voertuigen	Opdrachtgever	Project Nummer	Projectnaam/ Werkzaamheden	Bijzonderheden
5				Datum	Tijd	Datum	Tijd
6
7	13	2018	ma/di	27-mrt	1:00	27-mrt	4:00	4188			Nog aanvragen	KIO	Nee	Nee	Siemens	L-004910	EBS testen	EH80
8	14	2018	za-ma	7-apr	1:30	9-apr	4:30	4192			Nog aanvragen	GIO	Nee	Nee	Siemens	L-004910	EBS testen	Amf

<colgroup><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

2018​