Post #149

Друзья, а во вложении прикрепляю готовый файл примера файла с уже встроенными макросами и просто код в текстовом формате, для тех, кто боится скачивать xlsm файлы :) Напоминаю, на вот эти строки в коде нужно обратить внимание, если ваша таблица отличается от моего примера: Set WatchRange = Me.Range("H:AG") Где "H:AG" это диапазон столбцов в которых мы проводим проверку на изменение. If cell.Value <> "" And Me.Cells(cell.Row, "G").Value = "" Then и Me.Cells(cell.Row, "G").Value = Date Где "G" это столбец с нашей датой