Юзерформа для формирования таблицы по столбцам

[strannick]

Добрый день, уважаемые формучане!
Честно говоря всегда старался избегать юзерформ, но тут видно пришло время. Прошу наставить на путь истинный. Суть в чем. Имеется объемная таблица с данными по людям. Столбцов эдак в 100. Но количество столбцов может изменяться в большую сторону, то есть могут добавляться столбцы с индивидуальными признаками типа "размер сапог" или "размер противогаза".
В некоторых столбцах формулы. Из этой всеобъемлющей таблицы необходимо формировать различные таблицы из различного набора столбцов. Мысль появилась такая - сделать юзерформу с перечнем всех столбцов, в ней отмечать те столбцы, из которых необходимо получить нужную таблицу и по нажатию кнопки эта таблица верстается на новом листе. Так вот в связи с тем, что с юзерформами дел не имел, помогите как сие реализовать. Приложил часть своей таблицы. Если возможно, пример юзерформы выбора столбцов и переноса на Лист2 только значений.
Заранее спасибо!

[Казанский]

Может, и не надо юзерформы?
предложить юзеру выбрать по одной ячейке из каждого столбца, который надо перенести, с Ctrl или Shift (а можно и не по одной), и такой макрос:

Sub bb()
On Error GoTo 1
Intersect([A1].CurrentRegion, Selection.EntireColumn).Copy
With Sheets("Лист2").Range("A1")
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With
1
End Sub

[hziben]

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

[Робин]

Вот вам файл, примерно то что вам надо. ТОЛЬКО ЧУТКА ДОРАБОТАТЬ

[Робин]

ДА. забыл пароль на открытие листа - 123

[strannick]

Сообщение от Казанский

Может, и не надо юзерформы?
предложить юзеру выбрать по одной ячейке из каждого столбца, который надо перенести, с Ctrl или Shift (а можно и не по одной), и такой макрос:

Sub bb()
On Error GoTo 1
Intersect([A1].CurrentRegion, Selection.EntireColumn).Copy
With Sheets("Лист2").Range("A1")
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With
1
End Sub

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

[strannick]

Сообщение от Робин

Вот вам файл, примерно то что вам надо. ТОЛЬКО ЧУТКА ДОРАБОТАТЬ

Ага, посмотрю что там. Спасибо за подсказку.

[strannick]

Сообщение от Робин

ДА. забыл пароль на открытие листа - 123

Посмотрел. Это совсем не то. Это ввод данных в таблицу. За это, кстати, тоже спасибо, потому как у меня ввод данных идет с листа. Переделаю наверное тоже в юзерформу. А необходимо по запросу юзера из такой общей таблицы формировать другие таблицы с разным набором столбцов. Я вот тут накидал юзерформу. Юзер давит на кнопку на листе "Сформировать таблицу". Открывается юзерформа с полным перечнем столбцов исходной таблицы и чекбоксами. Юзер отмечает чекбоксы перед теми столбцами, которые ему нужны для формирования выходной таблицы. Например, Фамилия, Имя, Год рождения. Нажимает кнопку внизу юзерформы "Сформировать таблицу". И на листе 2 получает выходную таблицу с таким набором столбцов.
P.S. Робин, пароль не сработал. Открылось все так.

[Казанский]

> Я вот тут накидал юзерформу.

В xlsx юзерформы не сохраняются! Выкладывайте в формате xls или в xlsm (хуже).

[strannick]

Сообщение от Казанский

> Я вот тут накидал юзерформу.

В xlsx юзерформы не сохраняются! Выкладывайте в формате xls или в xlsm (хуже).

Виноват, не тот архив прикрепил.