Заполнение отфильтрованного диапазона

Заполнение отфильтрованного диапазона, Заполнение отфильтрованного диапазона "умной таблицы".

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

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

31.03.2018 22:52:30

Доброго времени суток, уважаемые форумчане!

Подскажите, пожалуйста, макрос для заполнения ячеек(одного столбца) только видимого диапазона "умной таблицы" текущей датой и временем. Пример прилагаю.

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

Пример.xlsx (12.08 КБ)

Изменено: BRP - 31.03.2018 22:55:21

Казанский

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

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

31.03.2018 23:00:33

BRP,

Код
Sub Кнопка1_Щелчок() ActiveSheet.ListObjects(1).ListColumns("Дата").DataBodyRange.SpecialCells(xlCellTypeVisible) = Now End Sub

BRP Пользователь Сообщений: 213 Регистрация: 27.12.2016	#3 31.03.2018 23:16:57 Казанский, огромное СПАСИБО!