Не скрывать скрываемые строки при добавлении строк - Страница 2

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не скрывать скрываемые строки при добавлении строк (Макросы/Sub)

Не скрывать скрываемые строки при добавлении строк

Anis625

Дата: Вторник, 05.03.2019, 16:15 | Сообщение № 21

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

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

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

Excel 2013

_Boroda_,
Два раза попробовал. Файл зависает. Только три кнопки спасают чтобы закрыть файл.

Ответить

_Boroda_

Дата: Вторник, 05.03.2019, 16:35 | Сообщение № 22

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Ловите
[vba]

Код

Sub tt()
    Application.ScreenUpdating = 0 'отключаем обновление экрана
    r1_ = Cells(1).SpecialCells(xlLastCell).Row 'самая-самая последняя рабочая  строка в файле (у нас 26) - это как на листе нажать Контрл Енд
    Range("11:" & r1_).EntireRow.Hidden = False 'открываем все строки
    r_ = Cells(Rows.Count, 2).End(3).Row 'а вот теперь последняя строка в столбце В
    For Each c In Range("A11:A" & r_)
        If c = "" Then
            c.Rows.EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = 1 'включаем обновление экрана
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Anis625

Дата: Вторник, 05.03.2019, 17:13 | Сообщение № 23

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

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

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

Excel 2013

_Boroda_,

Работаеееееееееееееет и файл не виснет =) Спасибо Вам большое.
Если есть степень доктор экселевских наук я бы вам вручил =)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не скрывать скрываемые строки при добавлении строк (Макросы/Sub)

Страница 2 из 2
«
1
2