Скрытие строк по условию

[EducatedFool]

Попробуйте такой вариант: http://excelvba.ru/XL_Files/Sample__...__17-44-00.zip

Вот весь код:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> Range("B4").Address Then Exit Sub
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Dim cell As Range, ra As Range, hidden_ra As Range
    Set ra = Range([A6], Range("A" & Rows.Count).End(xlUp)).Offset(, 1)
    
    For Each cell In ra.Cells
        If cell.Value = 0 Then If hidden_ra Is Nothing Then Set hidden_ra = cell Else Set hidden_ra = Union(cell, hidden_ra)
    Next cell

    ra.EntireRow.Hidden = False
    hidden_ra.EntireRow.Hidden = True

    Application.Calculation = xlCalculationAutomatic
End Sub

У меня код отрабатывает моментально.
Если у вас он будет тормозить - значит, причина в пересчёте формул, ссылающихся на книгу
X:\ФИН-ПЭО\Бюджеты\Факт 2010\ГФО\Февраль\БИ\[GFO_БЮДЖЕТ_БИ2.xls]

[MaxxVer]

Спасибо огромное. Теперь всё работает как надо.