При написании текста в ячейке нужно, чтобы автоматически отображался скрытый лист (листы)

Пользователь

Сообщений: 178 Регистрация: 12.11.2013

16.06.2019 12:43:09

Добрый день! Подскажите как сделать, чтобы при написании текста в ячейке нужно, чтобы автоматически отображался скрытый лист (листы).

после написания текста:

в ячейке С10 автоматически появлялся скрытый лист "РЗ 2-ой с",
в ячейке С11 автоматически появлялся скрытый лист "РЗ 3-ий с",
в ячейке С12 автоматически появлялся скрытый лист "РЗ 4-ый с",
в ячейке С13 автоматически появлялся скрытый лист "РЗ 5-ый с".

Листы должны помещаться по порядку после уже открытого "РЗ-1 ый с"

Пример прилагается.

Прикрепленные файлы

Пример2.xls (192.5 КБ)

Jungl

Пользователь

Сообщений: 830 Регистрация: 18.01.2016

16.06.2019 12:51:49

serpan,
В модуль листа "Данные", остальное по логике напишете.

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$10" Then
        If Target.Text <> "" Then
            Sheets("РЗ 2-ой с").Visible = True
        Else
            Sheets("РЗ 2-ой с").Visible = False
        End If
    End If
End Sub

serpan Пользователь Сообщений: 178 Регистрация: 12.11.2013	#3 16.06.2019 13:26:24 Спасибо большое!!!