Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Задать область печати в зависимости от значения в конкретной ячейке.
 
#1
26.01.2020 11:38:43
Всем доброго дня!
Уважаемые форумчане, прошу оказать мне помощь.
В ячейке K25 находится формула.
Можно ли создать макрос, что-бы при значении в ячейке K25 =1 была задана область печати A1:J100,
а при других значениях - область печати A5:J100?
Заранее всех благодарен.
 
 
 
#2
26.01.2020 11:51:09
Код
If Range("K25") = 1 Then
  ActiveSheet.PageSetup.PrintArea = Range("A1:J100").Address
Else
  ActiveSheet.PageSetup.PrintArea = Range("A5:J100").Address
End
 
 
 
#3
26.01.2020 17:30:09
Kuzmich,спасибо за помощь.
Я виноват, т.к. дал не полную информацию. Дело в том, что я использую Суперфильтр на VBA, который нашел на этом сайте. При использовании Вашего кода не учитывается фильтрация.
Можно ли изменить код с учетом фильтра?

Сделал пример
 
 
 
#4
26.01.2020 21:32:19
Цитата
Сергей Эм написал:
Можно ли изменить код с учетом фильтра?
А может менять область печати с учетом фильтра =1?
Изменено: gling - 27.01.2020 20:13:12
 
 
 
#5
27.01.2020 07:30:10
gling, Спасибо, но это не то.
К сожалению, я не верно сформулировал задачу.
На листе Накладная_Массив фильтром формируются накладные на основе листа Заказ.
Однако, при отсутствии у первого клиента заказа, выводятся на печать 4 верхних строки его накладной, т.к. они расположены выше фильтра (так уж получилось).
Необходимо, что-бы при значении в ячейке K25 <>1 в область печати не попадал диапазон A1:J4.
 
 
 
#6
27.01.2020 20:14:47
Цитата
Сергей Эм написал:
Спасибо, но это не то.
Цитата
Сергей Эм написал:
в область печати не попадал диапазон A1:J4
А вы смотри вложенный в сообщение #4 файл?
 
 
 
#7
28.01.2020 08:06:58
gling,Спасибо.
Все понял. Перенесен фильтр в верхнюю строку.
Заработало!
Благодарю.
 
 
 
#8
28.01.2020 10:37:42
Цитата
gling написал:
А может менять область печати с учетом фильтра =1?

здравствуйте
а можно попросить подсказать код изменения области печати либо по формуле (в каждой строке) в ячейке AF?
либо по значению ячеек J19, J73, J127, J181.... (повторяются каждые 54 ячейки,вниз) в каждом листе (листы повторяются друг за другом вниз)

как минимум нужно печатать пока не пойдут нули=ошибки в ячейках и те дальше отпадает необходимость печати...листов много...
Буду очень признателен за помощь, спасибо!
Изменено: Вадим - 28.01.2020 15:44:29
 
 
 
#9
28.01.2020 21:13:08
Не понятно что вы хотите. Установите автофильтр по столбцу AF исключив нули и ошибки и печатайте без всякого кода.
 
 
 
#10
29.01.2020 01:29:56
Цитата
gling написал:
Установите автофильтр по столбцу
да рассматривали этот вариант с автофильтрами... но получается много вкладок и хотелось бы а автоматическом режиме менять область печати путем отсекания последующих сраниц с нулями и ошибками
а в этом не силен... и по этому попросил помощи
 
 
 
#11
29.01.2020 07:35:57
Решил применением формулы в диспетчере имен
имя Область_печати
диапазон:
Код
=СМЕЩ('Лист1'!$AE$1;;;СЧЁТ('Лист1'!$AE:$AF);-31)

область Лист
 
 
 
Страницы: 1
Наверх