Страницы: 1
RSS
Быстрое протягивание множества столбцов одной кнопкой
 
Добрый день, помогите написать макрос который бы протягивал всю таблицу в выбранном диапазоне (и вывести кнопку) или подскажите способ разом их протягивать.
в приложенном мной файле есть две шапки таблицы, правую шапку я выделил зеленым, вот ее хотелось бы протягивать кнопкой. Данная таблица будет скрыта с формулами будет скрыта на защищенном листе и руками протягивать не выйдет.
 
Сергей020487,
как вариант
Код
Sub ывв()
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(4, 39), Cells(4, 73)).Copy Range(Cells(4, 39), Cells(lLastRow, 73))
End Sub
 
тестируйте
Возможно Вам стоит перейти на умные таблицы - в них формулы сами протягиваются при расширении таблицы вниз.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
evgeniygeo, нечего не происходит
 
JayBhagavan, при выполнении этого макроса появляется только одна строка под формулами
 
Сергей020487, протягивание идёт согласно выделенному диапазону. Выделите ячейки и выполните макрос. Не устраивает - опишите до куда макрос должен протягивать?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
на сколько и когда нужно увеличить размеры таблицы?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
JayBhagavan, Понял, все заработало конечно же. Я вот не шарю совершенно в ВБА, а можно прикрутить кнопку? Вообще и так пойдет, но в идеале вообще протягивать формулы бы до конца левой таблицы. Тоесть человек вставил инфу в таблицу, запустил макрос и протяжка прошла до конца текуще таблицы.
 
Ігор Гончаренко, #8
 
Сергей020487, советую перейти на умную таблицу. Как кнопку сделать и привязать к ней макрос Вы можете найти через поиск.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan, спасибо
 
Сергей020487, почему я против вешать макрос на событие:
1) если столбцы с формулами скрыты, то смысл экселю "дёргаться" (отслеживать изменения на листе) и протягивать формулы?
2) с протягиванием формул лучше, ИМХО, справляются умные таблицы, если нет противопоказаний.
3) чтобы не создавать кнопку и не скрывать её от других пользователей, можно одной ячейке на двойной клик привязать запуск макроса (для того, кто будет видеть эти столбцы). Например, привязать запуск макроса к двойному клику по AN1:
в модуль листа Sheet1
в отдельный модуль

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan, спасибо, все работает
 
JayBhagavan, Разрешите внести поправочку. Могли бы вы протяжку формулы у двух столбцов: 31 и 32 сделать либо до конца листа либо до конца самой правой таблицы. Там сидит ВПР которая обращается к правой временной таблице, а она всегда длинее самой левой, и таким образом столбцы 31 и 32 не протягиваются до конца самой правой таблицы.
 
Сергей020487, макрос заполнения не привязан ни к правой, ни к левой таблице, а к самой нижней строке листа, где хотя бы одна ячейка была изменена пользователем. Разберитесь, что означает:
Код
SpecialCells(xlCellTypeLastCell)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
Страницы: 1
Наверх