Фиксация даты смены значения ячейки

Пользователь

Сообщений: 2 Регистрация: 17.03.2025

17.03.2025 08:06:11

Добрый день!
Подскажите пожалуйста, как сделать так, чтобы при изменении значений ячеек столбца "C" c "В работе" на "Завершено" в столбце "D" фиксировалась дата изменения значения, при этом необходимо, чтобы значение не менялось на следующий день (как в случае использования формулы "Сегодня()".

Прикрепленные файлы

Задачи.xlsx (40.46 КБ)

Sanja

Модератор

Сообщений: 19323 Регистрация: 10.01.2013

17.03.2025 09:23:38

Макросом. В модуль листа

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)) Is Nothing Then
  If Target.Count = 1 Then
  On Error Resume Next
  Application.EnableEvents = False
    If Target = "Завершено" Then
      Target.Offset(, 1) = Format(Date, "dd.mm.yyyy")
    Else
      Target.Offset(, 1) = Empty
    End If
  End If
End If
Application.EnableEvents = True
End Sub

Прикрепленные файлы

Завершено.xlsm (47.27 КБ)

Согласие есть продукт при полном непротивлении сторон

fsllnirek Пользователь Сообщений: 2 Регистрация: 17.03.2025	#3 17.03.2025 11:54:14 Большое спасибо!

Читают тему