Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скрытие строк по условию из другого листа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрытие строк по условию из другого листа (Формулы/Formulas)
Скрытие строк по условию из другого листа
Chetvertkoff8179 Дата: Четверг, 26.05.2022, 12:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

День добрый, искал на форуме подобные темы их много, но не нашел нужного решения, ну или я чего то не допонял. Если дублировал прошу прощения. В общем суть такая - есть бланк заказа, в одно листе менеджер ставит значение ячейки "ДА", а в печатной форме открывается скрытый блок. Соотвественно если нет то скрывается. У меня в оригинале ставится галочка и скрывает/показывает, но нужна автоматизация, забывают ставить галочку!
К сообщению приложен файл: 111.xlsx (10.5 Kb)
 
Ответить
СообщениеДень добрый, искал на форуме подобные темы их много, но не нашел нужного решения, ну или я чего то не допонял. Если дублировал прошу прощения. В общем суть такая - есть бланк заказа, в одно листе менеджер ставит значение ячейки "ДА", а в печатной форме открывается скрытый блок. Соотвественно если нет то скрывается. У меня в оригинале ставится галочка и скрывает/показывает, но нужна автоматизация, забывают ставить галочку!

Автор - Chetvertkoff8179
Дата добавления - 26.05.2022 в 12:00
msi2102 Дата: Четверг, 26.05.2022, 12:17 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 413
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
Попробуйте так, в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If LCase(Target) = "да" Then
            Sheets("Лист2").Rows("8:18").EntireRow.Hidden = True
        ElseIf LCase(Target) = "нет" Then
            Sheets("Лист2").Rows("8:18").EntireRow.Hidden = False
        End If
    End If
End Sub
[/vba]
К сообщению приложен файл: 3462915.xlsx (10.5 Kb)


Сообщение отредактировал msi2102 - Четверг, 26.05.2022, 12:18
 
Ответить
СообщениеПопробуйте так, в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If LCase(Target) = "да" Then
            Sheets("Лист2").Rows("8:18").EntireRow.Hidden = True
        ElseIf LCase(Target) = "нет" Then
            Sheets("Лист2").Rows("8:18").EntireRow.Hidden = False
        End If
    End If
End Sub
[/vba]

Автор - msi2102
Дата добавления - 26.05.2022 в 12:17
Chetvertkoff8179 Дата: Четверг, 26.05.2022, 12:35 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Шикарно! спасибо огромное!!!
 
Ответить
СообщениеШикарно! спасибо огромное!!!

Автор - Chetvertkoff8179
Дата добавления - 26.05.2022 в 12:35
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрытие строк по условию из другого листа (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!