Как ограничить выбор списка или сделать зависимость?

[Стасон]

Здравствуйте!
Прикладываю файл «111».
В нём есть колонки «F» и «G», заполнение которых строго ограничено выбором из списка (лист «SK»).

Если мы перейдём на лист «SK», то можно увидеть зависимость:
К категории 1.СП должен относится список с 1.1. по 1.19. (красный цвет)
К категории 2.ТРУД должен относится список с 2.1. по 2.3. (оранжевый цвет) и т.д.

Что нужно:
Когда человек заполняет колонку «F», то, к примеру, при выборе 2.ТРУД, ему в следующей колонке «G» должен предлагаться не весь список, а только с 2.1. по 2.3.
Т.е. необходимо поставить зависимость пунктов 1. с подпунктами 1.1., 1.2., 1.3….
Зависимость пунктов 2. с подпунктами 2.1., 2.3… и т.д.

И ещё у меня таких файлов много, как распространить программу на все файлы?
Заранее благодарен! Вы меня спасёте, если поможете!

[Стасон]

Сообщение от Стасон

Здравствуйте!
Прикладываю файл «111».
В нём есть колонки «F» и «G», заполнение которых строго ограничено выбором из списка (лист «SK»).

Если мы перейдём на лист «SK», то можно увидеть зависимость:
К категории 1.СП должен относится список с 1.1. по 1.19. (красный цвет)
К категории 2.ТРУД должен относится список с 2.1. по 2.3. (оранжевый цвет) и т.д.

Что нужно:
Когда человек заполняет колонку «F», то, к примеру, при выборе 2.ТРУД, ему в следующей колонке «G» должен предлагаться не весь список, а только с 2.1. по 2.3.
Т.е. необходимо поставить зависимость пунктов 1. с подпунктами 1.1., 1.2., 1.3….
Зависимость пунктов 2. с подпунктами 2.1., 2.3… и т.д.

И ещё у меня таких файлов много, как распространить программу на все файлы?
Заранее благодарен! Вы меня спасёте, если поможете!

Помогите кто может!

[Volodshan]

Стасон, посмотрите это "http://www.planetaexcel.ru/tip.php?aid=64" - связанные списки. Свой "SK" перестройте и получите: если в F5 2.Труд, то в G5 можно будет вводить от 2.1 до 2.3...

[mchip]

На листе "База" есть макрос. Посмотри его. Он конечно не оптимизирован, но суть показывает(работает).

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
j = Target.Value
j = Left(j, 1)
Select Case j

Case 1
ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R2C2:R20C2"
Case 2
ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R21C2:R23C2"
Case 3
ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R24C2:R25C2"
Case 4
ActiveWorkbook.Names.Add Name:="ПРЕДМЕТ1", RefersToR1C1:="=SK!R26C2:R31C2"
End Select
With Target.Next.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=ПРЕДМЕТ1"
End With
End If
End Sub

[Стасон]

Спасибо. Всё получилось.
Дай Бог Вам здоровья!