Send email containing rows 14 days before expiration due date

[Musto85]

Hey all,

I have found the code below somewhere else and tried to adapt it with no success...
Beside the error I get here

Please Login or Register  to view this content.

I believe the issues are several...

I have attached a sample sheet if someone can help I would greatly appreciate it!

Basically I would have this macro called every Monday with a code that I already have as part of the workbook_open sub.
I want the code below to look in column E for every date within the next 14 days of today's date (6th to the 20th January 2023)
For example in the sample sheet it would be those employees with due date in column E from 12/01/2023 to the 20/01/2023.
Once found copy those rows (A:G) and send via email.
Also the code below should place a "Sent" in column F so that the email doesn't get sent again.

Eventually I will have two other separate codes doing the same for the 60 days (column H) and 90 days (column K) expiration dates...
P.S the tables changes as rows are added and deleted and there are a few formulas in it.

Thanks in advance!

Please Login or Register  to view this content.

[KOKOSEK]

Fix this line into:

Please Login or Register  to view this content.

Please check attached file, I've made some minor changes and results are as below:
Capture.JPG

[Musto85]

That’s brilliant! Thanks man.

Would it be a pain to modify the code so that it also send in the same email the rows with the same matching criteria (14 days) in column H and K?
But in doing so (although in the same email) can these be separated and therefore three separate tables?
Thanks again 😊

[Musto85]

Also I would I center the text alignment in the table?

I've tried to add text-align:center ; but it doesn't work...

Please Login or Register  to view this content.