Два условия скрытия ячеек на одном листе

[mkm]

Добрый день! Прошу помочь разобраться. Есть условия скрытия ячеек по значению ячейки D59

Private Sub Worksheet_Calculate()
 If Range("D59").Value <> lastVal Then
        Application.EnableEvents = False
            If Range("D59").Value = "<" Then                    
                Range("A67:A71").EntireRow.Hidden = True                
                Range("A60:A66").EntireRow.Hidden = False                   
            ElseIf Range("D59").Value = ">" Then               
                Range("A60:A66").EntireRow.Hidden = True                    
                Range("A67:A71").EntireRow.Hidden = False                   
            End If
        Application.EnableEvents = True
    End If
End Sub

Пытаюсь добавить на лист еще одно условия по другой ячейке, и выдает ошибку. Дайте совет как правильно написать.

        
        If Range("AY7").Value = "ДА" Then
                Range("A180:A299").EntireRow.Hidden = False                   'Строка A180:A290 -
        End If
 включил

[Aleksandr H.]

ElseIF третья ветка, не?

и выдает ошибку.

кому выдает? Мы не видели никакой ошибки

[mkm]

Мои попытки осуществить задуманное. Приметив но на что способен
Сам код:

Private Sub Worksheet_Calculate()
  If Range("D59").Value <> lastVal Then
        Application.EnableEvents = False
            If Range("D59").Value = "<" Then                    'Условие 1
                Range("A67:A71").EntireRow.Hidden = True                    'Строка A59:A63 - отключил
                Range("A60:A66").EntireRow.Hidden = False                   'Строка A52:A58 - включил
            ElseIf Range("D59").Value = ">" Then                'Условие 1
                Range("A60:A66").EntireRow.Hidden = True                    'Строка A52:A58 - отключил
                Range("A67:A71").EntireRow.Hidden = False                   'Строка A59:A63 - включил
            End If
        Application.EnableEvents = True
  End If
  If Not Application.Intersect(Range("AY7"), Range(Target.Address)) _
           Is Nothing Then                                  'Условие №1
           If Range("AY7").Value = "ДА" Then
                Range("A180:A299").EntireRow.Hidden = False                   'Строка A180:A290 - включил
           ElseIf Range("AY7").Value = "НЕТ" Then              'Условие 2
                Range("A180:A299").EntireRow.Hidden = True                    'Строка A180:A290 - отключил
        End If
  End If
End Sub

Ошибка : Run-time error "424" Object required

[Aleksandr H.]

Target где передается, каким будет значение Target.Address?
Уберите проверку на пересечение, как вариант

[mkm]

Честно не знаю как правильно ответить на поставленный вопрос. Макрос работает на конкретном листе, соответственно ищет указанные ячейки на данном листе. По идее Target.Address - AY7

А можете дать совет как корректнее записать поставленную задачу. Если в словах, то нужно что бы на листе в разных ячейках D59 и AY7 были разные условия и каждое (в зависимости от разных значениях в этих ячейках) уже определяло для своих ячеек набор прописанных команд команд -

 Range("A180:A299").EntireRow.Hidden = False

[Aleksandr H.]

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

По идее Target.Address - AY7

Где екселю об этом сказано?
Вот, например, в событии смены выделения понятно что такое Target

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
' some code here
End Sub

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

в разных ячейках D59 и AY7 были разные условия и каждое (в зависимости от разных значениях в этих ячейках) уже определяло для своих ячеек набор прописанных команд команд

т.е если Д59 = ">" и АУ = "Да" то надо скрыть строки A60:A66 и A180:A299 ?

[mkm]

Сообщение от Aleksandr H.

т.е если Д59 = ">" и АУ = "Да" то надо скрыть строки A60:A66 и A180:A299 ?

Нет. У каждой ячейки D59 и AY7 свои обособленные условия не связанные между собой. Каждое условие работает по своему принципу.

1-й вариант работы D59 условие - ">", тогда

                Range("A60:A66").EntireRow.Hidden = True  
                Range("A67:A71").EntireRow.Hidden = False

При смене условие - "<", тогда

                Range("A67:A71").EntireRow.Hidden = True                   
                Range("A60:A66").EntireRow.Hidden = False

При этом на ячейку AY7 не смотрим.

2-й вариант работы AY7 условие - "ДА", тогда

     Range("A180:A299").EntireRow.Hidden = False

При смене условие - "НЕТ", тогда

Range("A180:A299").EntireRow.Hidden = True

При этом на ячейку D59 не смотрим.

[Elixi]

mkm
почему вы решили обработку вашего кода повесить на собитие .Calculate ?

[mkm]

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

mkm
почему вы решили обработку вашего кода повесить на собитие .Calculate ?

У меня не получилось другими способами (известные мне) сделать условие скрытия ячеек в котором можно было использовать символы "<", ">"

[Elixi]

https://office-guru.ru/excel/sobytija-v-excel-464.html

https://excelpedia.ru/makrosi-v-excel/obrabotka-sobitii