Макрос "если..., то открывается лист"

[Julie_]

Добрый день!
Очень нужна Ваша помощь.
Необходимо написать простой макрос:
Если значение в ячейке на Лист1 = НПЗ, то открывается в общем файле лист "Шаблон НПЗ", если значение в ячейке на Лист1 = проект, то открывается в общем файле лист "Шаблон проекта".
Но оба этих листа не видно в общем файле до выбора значения НПЗ/проект на листе1.

Заранее благодарю, если поможете или соориентируете меня!

[Казанский]

А Лист1 тоже в "общем файле" или в каком-то другом?

[Julie_]

Да, совершенно верно, Лист1 тоже в этом общем файле.

[Loshara]

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

Добрый день!
Очень нужна Ваша помощь.
Необходимо написать простой макрос:
Если значение в ячейке на Лист1 = НПЗ, то открывается в общем файле лист "Шаблон НПЗ", если значение в ячейке на Лист1 = проект, то открывается в общем файле лист "Шаблон проекта".
Но оба этих листа не видно в общем файле до выбора значения НПЗ/проект на листе1.

Заранее благодарю, если поможете или соориентируете меня!

Julie_ я не совсем понял когда должнапроходить данная операция при открытиии файла или при изменении ячейки

[Julie_]

При изменении ячейки, при выборе значения НПЗ/проект

[Loshara]

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

При изменении ячейки, при выборе значения НПЗ/проект

попнробуйте так

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if range("a1")= "НПЗ" then
  k=1
else
  if range("a1")= "Проект"
   k=2
...
  endif
endif
Select Case k
   Case 1: Set Sheet = Лист2
   Case 2: Set Sheet = лист3
   ...
End Select
End Function

Где Лист2 - "НПЗ ..." уточняется при написании макроса

[Казанский]

Очень примитивно так

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Sheets("Шаблон НПЗ").Visible = xlSheetHidden
Sheets("Шаблон проекта").Visible = xlSheetHidden
If Target = "НПЗ" Then
  Sheets("Шаблон НПЗ").Visible = xlSheetVisible
ElseIf Target = "проект" Then
  Sheets("Шаблон проекта").Visible = xlSheetVisible
End If
End Sub

[Julie_]

Спасибо Вам огромное за такой быстрый ответ!!!
Единственное, что-то не получается, видимо загвоздка в строке If Target.Address <> "$A$1" Then Exit Sub

[IgorGO]

Если значение в ячейке на Лист1 = НПЗ

загвоздка в том, что на листе1 порядка 17 миллиардов ячеек (для офис 2007) Леша "поставил" на А1 и ничего удивительного, что не угадал (шанс 1/17млрд.), потому что куда Вы пишете "проект", "НПЗ", какую ячейку проверять - никто не знает...

[Julie_]

Нет, это понятно, что я подставляю свою ячейку в которой у меня список значений... но никак не получается отработать макрос на своем файле. Может будет понятнее на конкретном файле?
Ячейка B3 на Листе "Заявка" с необходимыми значениями НПЗ/проект и два листа Оценка ИТ-блока (проект) и Оценка ИТ-блока (НПЗ), использую макрос, который мне ранее скидывал тов.Казанский, но что-то идет не так...