VBA. Ячейка со списком значений.

[Flangini]

Подскажите пожалуйста, как силами VBA создать в ячейке список значений (например: Агент;Телевизор; Прочее).

При выборе "Прочее" в соседнем поле разрешалось бы вводить тескт, в противном случаии соседняя ячейка была бы не активна.

[SAS888]

Что значит "соседнее поле" и "соседняя ячейка"?
При создании выпадающего списка, значение вводится в эту ячейку со списком. А Вам что нужно?

[Flangini]

Переформулирую:
Ячейка (1;1) - должна иметь список значений (Агент; Телевизор; Прочее)
Ячейка (2;1) - не активна, ввод текста не возможен (желательно чтобы даже выделить ячейку нельзя было, защита от Ctrl+V), но если в ячейке (1;1) - выбрать "Прочее", то яцейка (2;1) - становится активной и туда можно вводить текст.

[SAS888]

В модуль нужного листа вставьте код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [A1].Address And [A1] <> "Прочее" Then [A2] = [A1]
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = [A2].Address And [A1] <> "Прочее" Then [A1].Select
End Sub

Если в ячейке "A1" находится значение "Прочее", то можно будет выделять ячейку "A2" и изменять ее значение. В противном случае, при попытке выделить ячейку "A2", будет активной ячейка "A1". При выборе в "A1" другого значения, это же значение будет в ячейке "A2".

[Flangini]

а если нужно отслеживать по столбцам?

столбцы F и G
в столбце F выбираем из Агент; Телевизор; Прочее
а в столбце G при выборе в столбце F "Прочее" пишем, что имели ввиду под прочим

[SAS888]

Например, так:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 And Target <> "Прочее" Then Target.Offset(, 1) = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 7 And Target.Offset(, -1) <> "Прочее" Then Target.Offset(, -1).Select
End Sub

[Flangini]

Вот! то что нужно. Только вот при выделении нескольких ячеек вместе с ячейкой из столбца G фатал ерор всего модуля.

[SAS888]

Запретить выделение диапазона ячеек, если в него входит хотя бы одна ячейка столбца "G" - это просто. Сложнее запретить вставку диапазона. Я имею ввиду то, что если пользователь выделит ячейку и попытается вставить в нее ранее скопированный диапазон, который пересечется со столбцом "G". Причем, если пересечения не будет, то вставку нужно разрешить.
Посмотрите вложение, в котором это реализовано.