Как в excel скрывать несколько строк, если их ячейки либо, пустые либо =""?

Question

[partyzanx]

Как в excel скрывать несколько строк, их ячейки либо пустые либо ="" ?

нужно чтобы исчезали полностью строки и не печатались,
по самой последней ячейке из диапазона строк 5:29

т.е. сейчас должны стать скрытыми полностью строки 16:29
потому что последняя заполненная строка 15 (ячейка E15)
и чтобы строки 16:29 на принтере не печатались

т.е. должны быть автоматически скрыто (м.б. по умному фильтр настроить?)
Внимание! Ячейки диапазона строк 5:29 могут содержать формулы

Файл https://yadi.sk/i/FPqZazjymfSCwQ

Answer 1

[partyzanx]

Нашёл решение. Для каждого листа где нужно убирать строки, делаем следующее:
1. Сделать невидимые формулы справа от основного содержания листа, которые проверяют являются ли ячейки из столбцов b и e одновременно пустые, например, =ЕСЛИ(И(B19="";E19=""); ""; 1). И сделать фильтр по пустым ячейкам
2.создать макрос в каждом листе где есть фильтр, который автоматически обновляет фильтр:

Private Sub Worksheet_Activate()

ActiveSheet.AutoFilter.ApplyFilter

End Sub

В последнее время я сам нахожу ответы на свои вопросы.

Comments

[Пычев Анатолий]

Замечательно
то что вы написали равно

И не нужно ничего писать

[partyzanx]

Пычев Анатолий,
Макрос делает автоматическое обновление, а ваш вариант ручной.
Текст вопроса читайте, нужно сделать автоматическое обновление без вмешательства пользователя.

[Пычев Анатолий]

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

К тому же если пользователь отключит режим фильтрации, то макрос вызовет ошибку.

в дополнение,
что бы не вкладывать макрос в каждый лист можно записать его один раз в модуле книги, там есть это событие

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

[partyzanx]

Пычев Анатолий, спасибо попробую.

Но для задачи такого автоматизма более чем достаточно, потому что данные берутся из 1 листа и распределяются по другим в которых макросы. Изменив что то в первом листе, нужно кликать чтоб посмотреть на изменения в другом там где фильтр и макрос...

[Пычев Анатолий]

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

[partyzanx]

Пычев Анатолий, да я заметил) поэтому поставил макрос там где фильтр. Как проверку прописать?)

[Пычев Анатолий]

По памяти,
If Activeshèet.autofiltermode then

Answer 2

[pestunov]

Просто отфильтруй пустые ячейки (см. скриншот).

Comments

[partyzanx]

1. Нельзя чтобы исчезали строки начиная с 30
2. А если в столбце b будет больше пассажиров чем в столбце е ?

[partyzanx]

John Smith, дело в том, что в таблицу регулярно заносятся данные, но фильтр при этом не обновляется. И заполненные строки не видны. Как быть?

[partyzanx]

John Smith, сколько у Вас стоит vba по обновлению листа написать при переключении на него?

[partyzanx]

John Smith, Нашёл решение. Для каждого листа нужно создать макрос:

Private Sub Worksheet_Activate()

ActiveSheet.AutoFilter.ApplyFilter

End Sub

[partyzanx]

John Smith, программисты до ужаса тупоролые. Я даже захотел за деньги сделать макрос. В итоге програмист написал такой гавнокод, что даже функции в документе слетели, и на матах начал заставлять меня за код заплатить, когда я ему дауну сказал, что его год гавно и я нашёл другое решение.

Даже за деньги гавнокодят!

[Пычев Анатолий]

Уважаемый, Вы просите помощи и тут же поливаете всех грязью. Нехорошо, да и не делает Вам это чести.

[partyzanx]

Пычев Анатолий, Вам скинуть переписку с "платным" программистом? Чтобы вы поняли обоснованность моих слов.

[partyzanx]

Пычев Анатолий,

[partyzanx]

John Smith, к самокритике можно проще относиться) Всем известно, что программисты хуже строителей) Надо проще воспринимать такую отчасти правду)

Answer 3

[Пычев Анатолий]

Выдели строки целиком, потом прав. клик на выделениии, команда "скрыть"

Comments

[partyzanx]

Нужно автоматическое скрывание в зависимости от заполненности

[Пычев Анатолий]

Понятно.
тогда либо макросами, либо решение John Smith в комментарии выше

[partyzanx]

Пычев Анатолий, дело в том, что в таблицу регулярно заносятся данные, но фильтр при этом не обновляется. И заполненные строки не видны. Как быть?

[Пычев Анатолий]

Что значит "фильтр не обновляется "?
Кем заносятся данные? Если человеком , то пусть отключает фильтр. Если программой, то надо дописывать программу

если же ни один из вариантов не подходит и логика действий сложна, надо писать макрос

[partyzanx]

Пычев Анатолий, Нашёл решение. Для каждого листа нужно создать макрос:

Private Sub Worksheet_Activate()

ActiveSheet.AutoFilter.ApplyFilter

End Sub