Добрый день уважаемые форумчане, прошу Вашей помощи, туплю
Есть столбец В и С в которые вносятся значения.
В столбце А прописана формула, которая выполняет суммирование значений из ячеек в столбцах В и С, только при условии что в ячейках содержаться числа.
Необходимо чтобы при пересчете формулы в ячейке, столбца А, автоматически (макросом) проставлялась текущая дата и время в ячейку столбца D, в той строке, которой сработал пересчет формулы (при этом если дата уже есть в столбце D, ее нужно затереть на текущую)
Написал макрос, но он почему то при пересчете одной формулы, проставляет одинаковую дату на весь заданный диапазон А3:А100
Есть столбец В и С в которые вносятся значения.
В столбце А прописана формула, которая выполняет суммирование значений из ячеек в столбцах В и С, только при условии что в ячейках содержаться числа.
Необходимо чтобы при пересчете формулы в ячейке, столбца А, автоматически (макросом) проставлялась текущая дата и время в ячейку столбца D, в той строке, которой сработал пересчет формулы (при этом если дата уже есть в столбце D, ее нужно затереть на текущую)
Написал макрос, но он почему то при пересчете одной формулы, проставляет одинаковую дату на весь заданный диапазон А3:А100
Код |
---|
Private Sub Worksheet_Calculate() Dim target As Range Dim Cell As Variant Set target = Range("A3:A100") For Each Cell In target.Cells If Not Intersect(Cell, Range("A3:A100")) Is Nothing Then Cell.Offset(0, 3).Value = Now End If Next Cell End Sub |