Строгие зависимые списки (с проверкой уровней)

[Hugo121]

Адрес поставьте свой (нет у меня 8000 столбцов):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [G7:IV7]) Is Nothing Then Target(2, 1) = Empty
End Sub

[Whizer]

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

Адрес поставьте свой (нет у меня 8000 столбцов):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [G7:IV7]) Is Nothing Then Target(2, 1) = Empty
End Sub

Работает,спасибо.

[Hugo121]

Работает.
Покажите как не работает

[IgorGO]

а без макросов пойдет?

[Hugo121]

Игорь - а в чём соль?

№ п/п	1	2	3
Марка	Toyota	Nissan	Ford
Модель	Caldina	Caldina	Caldina

[IgorGO]

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

а так не получилось? автопересчет включен?

[Hugo121]

Не получилось.
Пересчёт включен.

[IgorGO]

странно. у меня что нужно спряталось

[Whizer]

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

а без макросов пойдет?

Интересно.
Я правильно понял, что ексель запоминает последний корректный ввод, т.е. если я ошибочно сменил "марку", то "модель" очистилась и предложила к вводу другие "модели".
Затем, допустим, исправил ошибку (вернул прежнюю "марку") и ексель возвращает прежнее корректное значение в "модель"?

[Hugo121]

Ага, соль в УФ - формула есть, но в таком виде у меня не фурычит....
А вот например так - фурычит:

=SUMPRODUCT((G$7=$A1:$A100)*(G$8=$B1:$B100))=0

P.S. Игорь, думаю лучше было бы поменять и фон, и шрифт на красный - чтоб уж точно хотелось среагировать.