По таблице с всеми фирмами создать листы по каждой фирме

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

По таблице с всеми фирмами создать листы по каждой фирме (Формулы/Formulas)

Newton

Дата: Четверг, 15.03.2018, 08:18 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Добрый день! Помогите, пожалуйста, решить проблему: есть таблица с данными по продажам всех фирм. На основе этой таблицы необходимо сформировать акты по каждой из фирм. Я вижу это так: макрос должен создать отдельный лист на каждую фирму, в который будут подтянуты данные из исходной таблицы. Примеры исходной таблицы и акта прикладываю.

К сообщению приложен файл: 4228951.xlsx (9.4 Kb) · 1768251.xlsx (12.1 Kb)

Ответить

and_evg

Дата: Четверг, 15.03.2018, 09:42 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 481

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

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

Excel 2007

Добрый день. Мне кажется самый простой и лучший вариант сводной таблицей

К сообщению приложен файл: 8006610.xlsx (13.2 Kb)

Ответить

sboy

Дата: Четверг, 15.03.2018, 09:57 | Сообщение № 3

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата and_evg, 15.03.2018 в 09:42, в сообщении № 2 ()

самый простой и лучший вариант сводной таблицей

Согласен =)
Сводную "причесать" под акт и макрос который каждую фирму напечатает (для удобства исходные данные поместил в соседний лист)
[vba]

Код

Sub Newton()
Application.ScreenUpdating = False
    With ActiveSheet.PivotTables(1).PivotFields("Наименование фирмы")
        .ClearAllFilters
        For x = 2 To .PivotItems.Count
            .PivotItems(x).Visible = False
        Next
        For x = 1 To .PivotItems.Count
            ActiveSheet.PrintOut
            If x = .PivotItems.Count Then Exit For
            .PivotItems(x + 1).Visible = True
            .PivotItems(x).Visible = False
        Next
    End With
Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 1768251.xlsm (24.1 Kb)

Яндекс: 410016850021169

Ответить

Newton

Дата: Четверг, 15.03.2018, 11:48 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

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

Сообщение отредактировал Newton - Четверг, 15.03.2018, 11:49

Ответить

sboy

Дата: Четверг, 15.03.2018, 12:41 | Сообщение № 5

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Цитата Newton, 15.03.2018 в 11:48, в сообщении № 4 ()

нужно распечатать только один лист

так в фильтре выбирайте мышкой нужную фирму и потом жмите на печать.
Или я чего-то недопонял

Яндекс: 410016850021169

Ответить

Newton

Дата: Четверг, 15.03.2018, 14:01 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Файл будет рассылаться по филиалам. На местах не то что макросом, обычными функциями эксель не умеют пользоваться. Я хотел им отправлять файл с готовыми листами, чтобы они там печатали.