VBA Автоматическая вставка текущей даты в ячейку умной таблицы

[Посетитель 29.11.2024]

Как сделать так, чтобы данный макрос работал с умной таблицей.
Чтобы при удалении строки из умной таблицы и удалялась дата в ячейке "AR"?

Private Sub Worksheet_Change(ByVal Target As Range)
   For Each cell In Target   'проходим по всем измененным ячейкам
   If Not Intersect(cell, Range("G4:AK100";)) Is Nothing Then
     With Range("AR" & cell.Row)
        .Value = Now
        .EntireColumn.AutoFit
     End With
   End If
   Next cell
End Sub

[Администратор]

Опишите словами, что должен делать макрос, без упоминания кода, который у вас уже есть.
Иначе я не могу понять задание.

[Посетитель 29.11.2024]

Спасибо за отклик.
На листе динамическая таблица, строки G4:AK20 заполняются данными, а в строках колонки AR автоматически заносится дата последнего изменения.

Проблема в том, что при удалении строки из умной таблицы дата из ячейки колонки AR не удаляется. В результате - пустая строка в таблице с последней внесённой датой.

Надо чтобы при удалении строки из таблицы удалялась дата из ячейки колонки AR. В таблице могут добавляться и удаляться строки.

[Администратор]

Как пользователь удаляет строку в умной таблице? Очищает ячейки строки или полностью удаляет строку?

[Посетитель 29.11.2024]

Полностью удаляет строку.

[Администратор]

Столбец AR находится за пределами умной таблицы.
И что нужно сделать в столбце AR? также удалить строку или очистить ячейку?

[Посетитель 29.11.2024]

Размер таблицы С4:ВI20 а изменения вводятся в ячейки С4:AK20. 

[Администратор]

И что нужно сделать в столбце AR? Также удалить строку или очистить ячейку?

[Посетитель 29.11.2024]

Выделяю строку в листе и удаляю.

[Администратор]

Умная таблица находится в G4:AK20.
А какой диапазон в столбце AR? AR4:AR20?

[Администратор]

Может вам лучше сделать файл-пример и на нём пояснить?
Личные данные удалите из файла.

[Посетитель 29.11.2024]

Прикреплённый файл чисто для примера. Таблица большая с права есть скрытые ячейки.

[Администратор]

В этом файле столбец AR входит в состав умной таблицы.
Поясните на предоставленном примере, что вам нужно.

[Посетитель 29.11.2024]

Добавляю новую строку в таблицу, потом заполняю ячейки в новой строке G:AK в ячейке столбца AR вставляется дата.
Если приходится удалить строку таблицы то строка не удаляется а очищаются введенные данные а дата остаётся. Как добиться чтобы удалялась строка вместе с датой?
Даже если сначала очистить данные и дату, а потом удалить строку из таблицы в финале такой же результат.

[Администратор]

Вы вручную не можете удалить строку в умной таблице или с помощью макроса?
У меня получается вручную (без макроса) удалить строку в предоставленном вами файле.