Имеется такой код. Когда записываю в столбец B в столбце A пишется дата и время. Нужно сделать так, чтобы писало только дату. Нужно исправить именно в коде. Формат даты менял, но при поиске через фильтр он работает криво, не определяет по датам.
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("B2:B1000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, -1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
[/vba]