автоподстановка имен из таблицы на другую страницу и печать

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » автоподстановка имен из таблицы на другую страницу и печать (Макросы/Sub)

mjasert

Дата: Среда, 10.02.2016, 18:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Есть табличка в заголовке которой присутствует имя (выпадающий список) и которую надо распечатать 150 раз с разным именем.
Макрос нужен, который подставляет имена из выпадающего списка (по списку, все по-порядку, исключая пустые строки, которые есть до и после блока имен) и посылает автоматом на печать получившийся результат.
Либо с другой страницы подставляет имена, где собственно эти имена сидят, разницы нет.
Может кто-то помочь с этим вопросом?

Ответить

Nic70y

Дата: Среда, 10.02.2016, 18:31 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Цитата mjasert, 10.02.2016 в 18:29, в сообщении № 1

Либо с другой страницы подставляет имена, где собственно эти имена сидят

вариант - фильтрануть и печатать

ЮMoney 41001841029809

Ответить

mjasert

Дата: Среда, 10.02.2016, 18:39 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Надо именно выбрать из списка или скопировать в эту клетку где список выпадающий. Там таблица дежурств она в зависимости от имени меняется.
Что значит "фильтрануть и печатать" я что-то совсем не понял.

Ответить

Nic70y

Дата: Среда, 10.02.2016, 18:41 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

ну так и приложите файл, где это все есть

Цитата mjasert, 10.02.2016 в 18:39, в сообщении № 3

Что значит

да просто не понял Вашего вопроса

ЮMoney 41001841029809

Ответить

Manyasha

Дата: Среда, 10.02.2016, 18:43 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

mjasert, как-то так
[vba]

Код

For Each cell In Range("имена") 'диапазон для выпадающего списка
    If cell <> "" Then
        [a1] = cell
        ActiveSheet.PrintOut
    End If
Next cell

[/vba]
подробнее только с примером!

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Среда, 10.02.2016, 18:44

Ответить

mjasert

Дата: Среда, 10.02.2016, 18:48 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

попробую спасибо.

Ответить

Страница 1 из 1
1