автоскрытие строк

[евген_эчс]

добрый день, нужна помощь зеленому и не соображающему в этом деле новичку.очень сильно тормозит макрос и реагирует на ввод данных не влияющих на работу макроса.
есть рабочий макрос:
Sub Worksheet_Calculate()
Application.EnableEvents = False
For r = 13 To 112
Rows(r).EntireRow.Hidden = Cells(r, 5) = ""
Next
Application.EnableEvents = True
End Sub
скрывающий пустые строки(13:112)столбца5 на листе3, по такому принципу и на листе 2.
так вот при изменении ячеек листа1 не влияющих на расчеты включается макрос((((что не нужно и тормозит(((
я, конечно не спец, но может можно как-то конкретизировать лист и диапазон для выполнения макроса
авт. скрытие.zip

[kuklp]

Попробуйте так, второй лист:

Sub Worksheet_Calculate()
    Application.EnableEvents = 0
    On Error Resume Next
    Range("15:114").EntireRow.Hidden = 0
    Range("e15:e114").SpecialCells(-4123, 16).EntireRow.Hidden = -1
    Application.EnableEvents = True
End Sub

В третий:

Sub Worksheet_Calculate()
    Application.EnableEvents = 0
    On Error Resume Next
    Range("3:113").EntireRow.Hidden = 0
    Range("e3:e112").SpecialCells(-4123, 2).EntireRow.Hidden = -1
    Application.EnableEvents = True
End Sub

[евген_эчс]

не сработал(((((( спасибо за интерес
я вот тут посидел и подумал, в нете покапался......и вот то, что я хотел....
все работает как мне надо
кому интересно вот код:

Sub Worksheet_Activate()
Application.EnableEvents = False
Rows("12:112").AutoFilter Field:=5, Criteria1:="<>"
Application.EnableEvents = True
End Sub
как это работает:
для строк 12:112, столбца 5, запускается автофильтр по критерию "пусто (можно подставить 0)". в 5 столбец данные попадают из другого листа через формулы. ГЛАВНОЕ никаких кнопок))))все работает