Как заставить код читать обновление величины в ячейке?

[Brucebelg]

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

[motorway]

Покажите ваш код, скажу, что можно сделать

[SAS888]

При непосредственном изменении значения ячейки (вручную, макросом и т.п.) наступает событие Worksheet_Change. Т.к. в этом случае у Вас все работает, то, видимо, макрос запускается именно по этому событию. Если же значение в ячейке является результатом вычисления на листе Excel, то вышеупомянутое событие не наступит. Запуск Вашего макроса нужно "привязывать" к событию пересчета листа Worksheet_Calculate.

[Brucebelg]

Вот первый код, который Change и который работает

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [c10].Address Then
ActiveSheet.UsedRange.EntireRow.Hid den = False
Range(Target + 14 & ":22").EntireRow.Hidden = (Target > 2 And Target < 9)
End If
End Sub

Вот второй, как Вы посоветовали

Private Sub Worksheet_Calculate(ByVal Target As Range)
If Target.Address = [i23].Address Then
ActiveSheet.UsedRange.EntireRow.Hid den = False
Select Case Target
Case 0: Range("24:24").EntireRow.Hidden = True
End Select
End If
End Sub

Второй не работает, пишет Procedure declaration does not match description of event or procedure having the same name

Не подскажите, как поправить второй и объединить оба в один рабочий?

[SAS888]

Вот второй, как Вы посоветовали

Я так не советовал. У события Worksheet_Calculate нет аргумента Target. Это событие наступает при пересчете в любой ячейке листа и в модуле листа прописывается как Private Sub Worksheet_Calculate(). т.е. без аргументов.
В Ваших примерах всегда разные процедуры.
Скажите, в каком случае (при каком событии) что Вы хотите сделать.

[Brucebelg]

Хочу следующее - в зависимости от значения в ячейке С10 (от 3 до 8) нужно скрывать линии, при С10=3 -> от 17 до 22, С10=4 -> от 18 до 22 и тд до С10=8.
При этом в ячейках K28,K29 и K30 калькулируются некие величины (либо 0 либо больше 0). Требуется,чтобы при K28=0 сворачивалась линия 32, а при любой другой величине - оставалась видимой. И точно такие же операции нужны для ячейки К29 и линии 33 и ячейки К30 и линии 34.

[SAS888]

Посмотрите пример во вложении. Подробности в файле. Что не так?

[Brucebelg]

Я приложил настоящий файл (формат XLSM). Требуется, чтобы скрывалась строка 24, если в ячейке I24=0, строка 25 , если I25=0 и строка 26, если I26=0. Не знаю можно ли использовать ячейки в скрываемых линиях, но так же не работает, если пытаться вставить формулу из, скажем, I25 в L2 и использовать L2 в условиях кода.
Когда после существующего кода я вставляю

Private Sub Worksheet_Calculate()
If [L2] = 0 Then Rows(24).Hidden = True Else Rows(24).Hidden = False
End Su

начинается мелькание на экране и все вешается

Не могли бы Вы взглянуть?

[Brucebelg]

в предудщем сообщении. спасибо

[SAS888]

Когда после существующего кода я вставляю...
...начинается мелькание на экране и все вешается

В Вашем файле нет кода по событию Worksheet_Calculate. А что все-таки нужно, я не совсем понимаю. Ну, да ладно. Сделайте следующее:
Первой строкой кода напишите Application.EnableEvents = False, а последней - Application.EnableEvents = True. Это запретит обработку событий на время выполнения процедуры. Как раз это в Вашем случае и происходит. Сам код обработки пишите какой требуется. Скрыта строка с которой работает код или нет - без разницы.