VBA code for checking a specific date occur.

[ExcelBG]

Hi all,

I would be very happy if somebody can help me with the following task:

Have a single sheet. In coloumn "A" are posted some dates.In range "B1" I have a formula that gives today`s date, in other words B1 = today. Is it possible when I activate the sheet to check a week back from the value in range "B1" and if there is a value in coloumn A range that contains in this condition to recieve a msgbox with specific text.

Thnak u in advance.

[Cheetahke]

Hi,
Yes, it's possible, but can you upload an example here?

[ExcelBG]

Hi Cheetahke,

Here is the file...

[Cheetahke]

Hi,

Here's the file with the search in, be sure you have macro's enabled, otherwise it won't work.

[ExcelBG]

It does not make any thing. Any suggestions?

[Cheetahke]

Hi,

I've changed a little bit in the code, can you try again?

[ExcelBG]

Hi Cheetahke,

I appreciate your help. Now the vba code is working, but there is something that was misunderstanding. The vba code works only for one date in our case this date is:

 searchDate = DateValue(.Range("B1") - 7)

and it returns as a answear 15.10.2015, but if this date does not exist we have six dates more that meet the requirement and the code does not consider this.

Nevertheless thank you for your help.

[Cheetahke]

Hi,

but if this date does not exist we have six dates more that meet the requirement and the code does not consider this.

Sorry, but this was not clear in you question, nor in your example of the workbook. What are those six dates? Are those the days of the whole week?
If so, I'll change the code for searching.

[Cheetahke]

Hi,

but if this date does not exist we have six dates more that meet the requirement and the code does not consider this.

Sorry, but this was not clear in you question, nor in your example of the workbook. What are those six dates? Are those the days of the whole week?
If so, I'll change the code for searching.

[ExcelBG]

Hi,
Yes those are the days for the whole week.

[Cheetahke]

Hi,

Is this what you need?

[ExcelBG]

Now it is working perfect.
A lot of tnx Cheetahke! Wish u all the best.

[Cheetahke]

Will you please click on the star beneath my last post to add reputationpoints if you like my work?