Условие макроса сравнение дат и времени работает не корректно.Как это исправить? - VBA

Формулировка задачи:

Sub Макрос_1()
 
For i = 5 To Sheets("Ввод Данных").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Ввод Данных").Range("A" & i) > Sheets("Ввод Данных").Range("B1") Then
    
    Sheets("Ввод Данных").Range("C" & i).ClearContents
 
    End If
Next i
 
End Sub
Этот макрос удаляет значения в ячейках начиная со строки 5 по всему столбцу C при условии что если в столбце А этой же строки так же с 5 строки значение в ячейке больше значения из ячейки B1 и это значение дата и время вот в таком формате 03.04. 00:15 и если дата в ячейке из столбца А больше то условие выполнено,но условие работает не корректно,даты не верно понимаются макросом.Вопрос кто знает как прописать код чтобы макрос работал нормально?

Код к задаче: «Условие макроса сравнение дат и времени работает не корректно.Как это исправить? - VBA»

textual
.Range(.Cells(5, 13), iCell(0, 3)).ClearContents

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ