如何通过计算标题列中的日期来设置Excel中的提醒

Question

美好的一天！

我正在使用其中一个教程：https://www.youtube.com/watch?v=x2_y0_KDaN0这是我需要的一些更改。

此处，客户列在A列中，后续列包含日期以及与客户进行的交互。如果客户端xyz在单元格A2中，则单元格b1及以后具有月份的日期，并且单元格b2，c2，d2等已经输入通知或未决。如果客户联系超过一​​周，我希望excel设置提醒。选择为“通知”的单元输入表示已建立的联系。我需要提取联系发生的最后日期并计算日期。如果结果大于或等于7，则应显示提醒。我想在单元格突出显示的客户端名称后插入一列，并将文本指示为提醒。

我使用了以下代码：

Sub dates()

End Sub
Dim x As Long
For x = 2 To informedendcolumn
Dim informedendcolumn As Integer
Dim mydate1 As Date
Dim mydate2 As Long
Dim date1 As Date
Dim date2 As Long

informedendcolumn = Range("2:2").Find(what:="informed", after:=Range("A1"),      searchdirection:=xlPrevious).Column

mydate1 = Cells(informedendcolumn.ListObject.Range.Row, informedendcolumn.Column).Value
 mydate2 = mydate1

date1 = Date
date2 = date1

If date2 - mydate2 = 7 Then
Cells(x, 2) = "Yes"
Cells(x, 2).Interior.ColorIndex = 3
Cells(x, 2).Font.ColorIndex = 2
Cells(x, 2).Font.Bold = True

End If
Next

End Sub

无法真正摆脱出错的地方。没有错误，但代码没有运行。

提前致谢！