Макрос не распознает значение из формулы.

[user name]

Если внести в ячейку H16 на Листе 1, вручную, "скрыть или "отобразить" одни строки скрываются, а другие отображаются и это без кнопок, автоматически, а если эти же самые данные внести в эту же ячейку из списка (список связан с ячейкой H16 или если в ней (H16) будет формула(равно другой ячейке, в которую вносим те же "скрыть или "отобразить") , ничего не работает. Как сделать что бы не нужно было печатать каждый раз "скрыть" и "отобразить", а выбрать из списка и сразу же скрылись бы одни строки, а другие отобразились.

[Скрипт]

user name, а какая у вас версия программы "Excel" - 2003, 2010 или другая?

[user name]

Дома 2003-ий, а на работе 2010-ий, книга ведет себя одинаково в разных версиях.

[Скрипт]

user name, в программе "Excel" есть разные виды списков. Я вставил в ячейку "H16" список следующим образом ("Excel 2003"):
Данные - Проверка... - вкладка Параметры - Тип данных: "Список" - в поле Источник вручную напечатал через точку с запятой данные - OK.

[user name]

Действительно работает. Отлично! Спасибо огромное! А как быть с формулой?(равно другой ячейке, в которую вносим те же "скрыть или "отобразить") Нельзя как-нибудь подправить код, что бы и с формулой работало. Хотелось бы на Листе2, в скрытую ячейку внести =Лист1!H16 и на Листе2 (соответственно на Листе2 прописать условия) тоже скрылись бы ненужные строки, а отобразились нужные. Это возможно?

[Скрипт]

user name, лучше внесите изменения в Excel-книгу и на основе книги поясните, что нужно. А то представлять то, что вы хотите, сложно.

[user name]

Хотелось бы на Листе2, в ячейку С11 внести =Лист1!H16 и на Листе2 тоже скрылись бы ненужные строки, а отобразились нужные. Это возможно?

[Hugo121]

В данном случае достаточно обрабатывать событие первого листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [H16].Address Then
        Select Case Target.Value
        Case "скрыть"
            Range("6:7").RowHeight = 0
            Range("20:21").RowHeight = 14
            With Sheets(2)
                .Range("7:9").RowHeight = 0
                .Range("14:16").RowHeight = 14
            End With
        Case "отобразить"
            Range("20:21").RowHeight = 0
            Range("6:7").RowHeight = 14
            With Sheets(2)
                .Range("14:16").RowHeight = 0
                .Range("7:9").RowHeight = 14
            End With
        End Select
    End If
End Sub

Зачем усложнять?

[user name]

А если еще и на третьем листе нужно скрыть/отобразить строки как это должно выглядеть?И что нужно изменить, если, допустим лист будет называться не Лист2, а "Расчет"? Прошу меня извинить за глупые вопросы.

[Скрипт]

user name, на листе "Лист2" в ячейке "C11" обязательно нужен текст "скрыть/отобразить"? Можно же только на одном листе из списка выбирать нужный пункт и макрос будет применяться к нужным листам.