Доброго времени форумчане. Помогите подправить макрос. Макрос для автоматической постановки даты в ячейки при редактировании определенной ячейки. Сам макрос работает, но он не реагирует, если в в той самой определенной ячейке работает формула и ставит туда значения, макрос не срабатывает и не ставит дату.Сам код и пример.
[vba]Код
Sub ВсеВместе()
Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("D2:D13")) Is Nothing Then 'если изменененная ячейка попадает в диапазон
With cell.Offset(0, -1) 'вводим в соседнюю слева ячейку дату
.Value = Now
End With
End If
Next cell
End Sub
[/vba]