Страницы: 1
RSS
Вставка текущей даты без изменений, Вставка даты без изменений
 
Добрый день! столкнулся с проблемой, в таблице, где ведется учет товара необходимо каждый день проставлять дату внесения информации, функция ТДАТА и СЕГОДНЯ обновляет дату каждый день, то есть учет товара слетает, уже прочитал множество похожих статей, есть решение через макрос, но у меня на маке он не работает почему то...

Лист книги - "Двери"
Диапазон для тригера функции - J:J100
Столбец для даты - U

Private Sub Worksheet_Change(ByVal Target As Range)
  ThisWorkbook.Sheets("Двери").Select
  For Each cell In Target   'проходим по всем измененным ячейкам
     If Not Intersect(cell, Range("J2:J100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
          With cell.Offset(0, 11)         'вводим в соседнюю справа ячейку дату
             .Value = Date
             .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
          End With
     End If
  Next cell
End Sub
Изменено: Pavel Mukhachev - 27.02.2023 11:47:16
Страницы: 1
Наверх