Как в VBA скрыть неиспользуемые строки при условии

[berliozz]

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

[valerij]

Сообщение от berliozz

Подскажите, как написать в ВБА макрос, чтобы при нажатии кнопки скрывал пустые строки?

Макрорекодером это запросто делается

Sub Макрос1()
    Rows("10:10").Select
    Selection.EntireRow.Hidden = True
End Sub

Ну а кнопка
Здесь

[EducatedFool]

Sub HideBlankRows()    ' скрывает все пустые строки
    Dim sh As Worksheet, ro1 As Range, ro2 As Range, ro As Range, rowss As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        Set ro1 = .UsedRange.Cells(.UsedRange.Cells.Count).Offset(1): Set ro2 = ro1.End(xlDown)
        Range(ro1, ro2).EntireRow.Hidden = True
        For Each ro In .UsedRange.EntireRow
            If ro.Text = vbNullString Then If rowss Is Nothing Then Set rowss = ro Else Set rowss = Union(rowss, ro)
        Next
        If Not rowss Is Nothing Then rowss.EntireRow.Hidden = True
    End With
    Application.ScreenUpdating = True
End Sub


Sub ShowHiddenRows()    ' отображает все скрытые строки
    Application.ScreenUpdating = False: ActiveSheet.Rows.Hidden = False: Application.ScreenUpdating = True
End Sub

У макроса один недостаток - если на листе заполнена всего одна ячейка, то скрываются все строки листа. (сам не понял, почему...).
Если количество заполненных ячеек больше одной - всё работает нормально.

Макрос обрабатывает активный в данный момент лист.
Если в момент запуска макроса ни одна из книг Excel не открыта, вылетит ошибка.

Если в строке присутствуют ячейки с пробелами, строка считается заполненной.

[Bu$ter]

Сообщение от valerij

Макрорекодером это запросто делается

Sub Макрос1()
    Rows("10:10").Select
    Selection.EntireRow.Hidden = True
End Sub

Ну а кнопка
Здесь

Сначала необходимо задать условие поиска пустых строк.
А

Rows("10:10").Select

все навсего выделит только 10 строку

[berliozz]

Извините, может я не очень понятно объяснил: у меня есть итоговая таблица, которая которая формирует результаты из нескольких других. Итоговая таблица состоит из 25 строк. Но на самом деле в зависимости от введенных данных в другие таблицы количество заполненных строк может быть меньшим, даже одной. Остальные заполняются по условию "". При печати приходится пустые строки скрывать. Надоело. Хочу автоматизации. Должен же быть выход.

[berliozz]

Сообщение от valerij

Макрорекодером это запросто делается

Sub Макрос1()
    Rows("10:10").Select
    Selection.EntireRow.Hidden = True
End Sub

Ну а кнопка
Здесь

Валерий, то как скрыть 10 строку я уже знаю, надо задать условие при которой она будет скрыта, а вместе с ней еще несколько строк

[EducatedFool]

Извините, может я не очень понятно объяснил: у меня есть итоговая таблица, которая которая формирует результаты из нескольких других. Итоговая таблица состоит из 25 строк. Но на самом деле в зависимости от введенных данных в другие таблицы количество заполненных строк может быть меньшим, даже одной. Остальные заполняются по условию "". При печати приходится пустые строки скрывать. Надоело. Хочу автоматизации. Должен же быть выход.

Чем Вам не подходит решение, предложенное в посте #3?

Запустите макрос HideBlankRows, и все пустые строки будут скрыты.

Макрос ShowHiddenRows, наоборот, отображает все скрытые строки.

[berliozz]

Сообщение от EducatedFool

Чем Вам не подходит решение, предложенное в посте #3?

Запустите макрос HideBlankRows, и все пустые строки будут скрыты.

Макрос ShowHiddenRows, наоборот, отображает все скрытые строки.

Если применить код, то строки в которых введена формула, которая при недостижении показателей которой ей присваивается "", не скрываются, так как они не пустые - в них введена формула.

[EducatedFool]

строки в которых введена формула, которая при недостижении показателей которой ей присваивается "", не скрываются, так как они не пустые - в них введена формула

Согласен. Потребуется немного изменит код.

Было бы неплохо, если бы Вы прекрепили к сообщению Ваш файл - чтобы было на чём тестировать код. (возможно, что-то будет мешать скрывать строки помимо формул)

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

[berliozz]

Размещаю, что-то подобное