Ошибка несоответствия типов при назначении даты переменной

Question

Я пытаюсь просмотреть даты истечения срока действия в столбце «G» и сравнить их с сегодняшней датой.Код перебирает 363 раза всякий раз, когда я запускаю его, но затем останавливается на ExpirationDate = Cells(x, "G").Value и выдает ошибку несоответствия типов.

Все ячейки в столбце "G" помечены как даты, как и ExpirationDate.Я не вижу разницы между строкой, в которой код всегда останавливается, и предыдущими строками, которые успешно прошли через код.

    For x = 13 To numrows
        reminderrows = Worksheets("Reminders").Cells(Rows.Count, "A").End(xlUp).Row
        expiredrows = Worksheets("Expired").Cells(Rows.Count, "A").End(xlUp).Row
        Worksheets("Training Log Test").Activate

        ExpirationDate = Cells(x, "G").Value

        If ExpirationDate > today And ExpirationDate <= ninetydays Then
            Rows(x).Copy
            Worksheets("Reminders").Activate
            Worksheets("Reminders").Cells(reminderrows + 1, 1).Select
            ActiveSheet.Paste

        ElseIf today >= ExpirationDate Then
            Rows(x).Copy
            Worksheets("Expired").Activate
            Worksheets("Expired").Cells(expiredrows + 1, 1).Select
            ActiveSheet.Paste
        Else
        End If
    Next       
End Sub

Answer 1

Пожалуйста, попробуйте заменить следующую строку:

 ExpirationDate = Cells(x, "G").Value

с этим:

ExpirationDate = Cells(x,7).Value