How do I check if an Excel cell's Date is within one week?
-
30-09-2019 - |
Question
I'm using VBA in Excel 2010 to make a simple birthday reminder program. I have a column of dates (Column D). How do I check if a cell is within one week of today?
I'm not sure what the VBA syntax for the conditional statement would be:
For i = 2 To MAX_ROW
cell = ActiveSheet.Cells(i, 4)
If (Date(cell) - Date(Now()) <= 7) Then
MsgBox(ActiveSheet.Cells(i, 1)
End If
Next
Solution
If the cells contain actual birthdays, you will need to change the year to the current year, say:
If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow