Автор: Reaper. Добрый день, нужен макрос для печати четных и нечетных страниц с разными полями. Есть такой, но он печатает все листы как четные. Я плохо разбираюсь в кодах и вообще не пойму как его исправить. Помогите, пожалуйста!Sub PrintActiveSheet() Dim ws As Worksheet Dim oddPages As Boolean Set ws = ActiveSheet oddPages = False With ws.pageSetup .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) End With If ws.Index Mod 2 ...

Автор: TheArhus. Добрый день! Прошу решить следующую проблему: Есть файл (во вложении) Отталкиваясь от столбцов "K" и "O" нужно добавить строки по следующему условию: Если в столбце "K" ячейки не равны 0 (нулю) и если в столбце "O" ячейки не равны 0 (нулю) то К каждой такой строке нужно добавить строку сверху. В этой строке ячейки со "Стоимость руб." нужно зачеркнуть. Такую добавленную строку нужно форматировать как нижнюю, включая формат данных ...

Автор: al.tarin. Здравствуйте! Необходимо чтобы сработал макрос после того, как произойдут вычисления в книге, но workbook_sheetcalculate не работает, помогите пожалуйста!

Автор: magistr_ken. Привет, знатоки. Нужна ваша помощь, слева то что написано буквами это СКЮ, сверху(2001,2002, и т.д) это код магазина. А то что между ними это продажи. Мне нужно привести это в вид где все это стоит вертикально. При этом для каждого СКЮ должны повторяться все коды магазинов,и рядом стоять продажи этого СКЮ в этот магаз. Пример как должно выглядеть показал.

Автор: Арина Иванова. Можно ли из данной таблицы вывести все значения для одного определенного элемента списка? Например, мне нужно узнать цвет и форму всех яблок, которые по вкусу кислые или сладкие и составить сводную таблицу (или что-то наподобие), в которой для кислых и/или сладких будут выведены их признаки из других таблиц. п.с.: таблица про яблоки для примера, в оригинале данных больше и сфера другая.

Автор: Артём Б. Всем добрый день! Есть легкое непонимание, т.к. на одном пк макрос работает корректно и переносит значения ячеек из таблицы "Таблицаисточник" в "Таблицаприемник". При попытке скопипастить макрос с заменой путей на актуальный, выходит ошибка 9, т.к. макрос не видит листа "Лист1" в "Таблицаисточник", но если добавить лист под названием "Лист1" - все значения исправно встают куда им нужно, но не в ту книгу. Вопрос в следующем, ...

Автор: Nat A. Добрый день! Рабочий файл Excel объемный, с графиками и сводными. Для уменьшения размера файла в параметрах нескольких сводных таблиц (не всех в файле) сняла флаг "Сохранять исходные данные вместе с файлом".   Впоследствии исходные данные потребовались, но поставить флаг обратно нет возможности, т.к. при попытке выбора "Параметры сводной таблицы" выдается сообщение "Отчет сводной таблицы был сохранен без данных. Для обновления отчета используйте команду & ...

Автор: Владислав. Опишу проблему максимально коротко: Функция ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ при выводе информации с иерархией в power pivot выдает разные ссылки: Как у меня работало раньше: =ПДСТ("[Measures].[Сумма по столбцу Т.]";$A$3;"[инф].[Маршруты]";"[инф].[Маршруты].[Маршрут].&[Маршрут1]") - для данных по маршруту =ПДСТ("[Measures].[Сумма по столбцу Т.]";$A$3;"[ ...

Автор: Роман Мухамедов. Добрый день! Подскажите пожалуйста, как в сводной таблице можно произвести в начале сумму определённых столбцов и потом произвести деление на определённый столбец? Уже месяц бьюсь и не могу найти решение проблемы. В качестве примера, прикладываю таблицу с расчетом данных. Столбец AHT считается суммой нескольких столбцов и делится на значение определённого столбца.  Заранее спасибо!

Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 10. Понимаю что скорее всего нужно взять это все в массив и использовать\внедрить For Each, но никак не получается разобраться. Заранее благодарен.Private Sub CommandButton1_Click() Dim m As Integer Dim x As Integer Dim out As Integer m = Cells(2, 1) x = Cells(2, 2) out = Cells(2, 3) For i = m To x Step -x If i > 0 Then i = i - out ...

Автор: Estelio Ammen. Подскажите, пожалуйста, как можно реализовать следующее: Необходимо обновлять все запросы и подключения (я так понимаю это ActiveWorkbook.RefreshAll) Далее сохранять файл. Сделать цикличность выполнения макроса. Есть несколько оговорок - изначально я сделал просто обновление запросов и сохранение книги, но в этом случае эксель не успевает обновить запросы перед сохранением, так что я предполагаю нужно сделать задержку между обновлением запросов и сохранением книги. Вот что ...

Автор: Мария Рычагова. Добрый день! Есть таблица, в которой находится 12 продавцов одного товара, фото во вложении. Есть товары, у которых 1 продавец, есть у которых 12. Нужен макрос или формула, благодаря которой номер продавца из столбца будет переносится на новую строчку + не будут добавляться пустые строки (если у товара не 12 продавцов, а меньше) + будут автоматически заполнятся данные о товаре, т.е. будут повторятся все значения, которые есть в других столбцах. 

Автор: Сергей Тихомиров. Здравствуйте, стоит задача составить макрос для копирования данных с одного листа по критериям в другой. На просторах интернета нашел похожую, но все равно иную и попытался этот макрос переделать по нужную мне задачу. И вот он вроде бы работает, но криво. Прошу помощи разобраться. Сама задача звучит так:  Нужно чтобы данные с листа 2 копировались на лист 1 по критерию в столбце С. Подобных строк в листе 2 будут около 250, а листе 1 зависит от заказа. Sub Копирование() ...

Автор: Николай Гуляев. Добрый день, подскажите, как можно сделать сводную таблицу с многоуровневой структурой, при этом что бы считал общий процент с каждого уровня, файл прилагается. Буду рад любым идеям, т.к в ручную вбивать формулы в большое кол-во задач очень трудоемко