Опять выпадающие каскадные списки!

[Chelentano]

Уважаемые господа!

Я создал двухуровневый выпадающий список (1-й список - группа продуктов, 2-й зависимый от него список - продукты, входящие в эту группу). Но в моей ситуации серьёзная проблема заключается в том, что если после того, как по какой-либо строке выбраны уже и группа продуктов и сам продукт, вернуться в ячейку группы и поменять там группу, то продукт в ячейке для зависимого списка остаётся из старой группы и Excel НИ удаляет старое (уже теперь неверное!) значение продукта НИ выдает сообщения об ошибке!!! Кто-нибудь может подсказать, как решается обычно такая проблема?

Для наглядности вложил файл.

Буду очень премного-премного благодарен!

[motorway]

Можно решить так. В обработчик событий на листе вставить:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If (Target.Address = "$B$2") Then Range("C2").Value = ""
' Если изменилось значение в яч. B2, стереть значение в C2
' и так далее
End Sub

Например, при изменении значения для всех списков в диапазоне B2:B8 соотв. правые списки обнуляются:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Target.Cells.Column = 2 And Target.Cells.Row >= 2 And Target.Cells.Row <= 8) Then
Cells(Target.Cells.Row, Target.Cells.Column + 1).Value = ""
End If
End Sub

[Chelentano]

Dear Motorway! Спасибо громаднейшее!

Я написал так:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 If Target.Column = 2 Then '2- это номер колонки, где выбирается группа продуктов

      Cells(Target.Row, 3).ClearContents '3 - это номер колонки, где уже выбирается сам продукт из группы, выбранной в колонке 2
End If
      
End Sub

И сработало! Я очень премного благодарен!!!

[motorway]

На всякий случай можно уточнить имя листа, так как это должно применяться к 1 листу. Можно сделать проверку типа такой:

If (Sh.Name = "Таблица со списками") Then

' весь код
End if

Либо просто добавлять это не в событие изм. книги, а изм. нужного листа Private Sub Worksheet_Change(ByVal Target As Range)