Событие СomboBox_Change происходит даже тогда, когда в нем ничего не меняется

[Bezdar]

И я не понимаю почему, объясните, пжл.
У меня на изменение в комбо № 1 происходит очищение значения в комбо № 2, и на изменение в комбо № 2 происходит очищение значения в комбо № 3
И получается так, что при любом дуновении ветра изменении значения в любой ячейке листа значения в комбах очищаются. С какого перепугу возникает событие СomboBox_Change даже при открытии/закрытии книги, если я в нем ничего не меняю?
Ну я так, не очень в VBA шарю, но по логике такого не должно быть.

[MikeVol]

Bezdar, Может так:

Private Sub ComboBox1_Change()
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    
    ' ваш код здесь

End Sub

[Bezdar]

Спасибо за подсказку,
но я не разобралась, как это поможет, если код у меня такой:
ActiveWorkbook.Sheets("1").ComboBox 2.Clear
ActiveWorkbook.Sheets("1").ComboBox 3.Clear
И когда наступает событие ComboBox1_Change (а оно наступает не только тогда, когда действительно ченч) ListIndex не равен -1

[MikeVol]

Bezdar, Доброго. Напишите сюда код процедуры полностью для наглядности чтоб понимать что у вас там творится. Без кода и файла примера не совсем понятно почему так у вас происходит.

[Bezdar]

прикрепила файл

[MikeVol]

Bezdar, Проблему можно решить иным способом.

Private Sub ComboBox14_DropButtonClick()
    Dim iFamID      As String

    On Error Resume Next
    ActiveWorkbook.Sheets("Лист1").ComboBox15.Clear
    ActiveWorkbook.Sheets("Лист1").ComboBox16.Clear
    On Error GoTo 0

    If ActiveWorkbook.Sheets("Лист1").ComboBox14.ListIndex = -1 Then
        ActiveWorkbook.Sheets("Лист1").Range("Family_ID").Value = ""
    Else
        ' выставляется код семейства
        iFamID = ActiveWorkbook.Sheets("Лист1").Range("Family_ID").Value
    End If

    ' создание списка позиций в комбо 15
    For iFamCount = 2 To ActiveWorkbook.Sheets("Кодификатор").Range("d:d").End(xlDown).Row

        If ActiveWorkbook.Sheets("Кодификатор").Range("F" & iFamCount).Value = iFamID Then
            ActiveWorkbook.Sheets("Лист1").ComboBox15.AddItem ActiveWorkbook.Sheets("Кодификатор").Range("D" & iFamCount).Value
        End If

    Next

    ActiveWorkbook.Sheets("Лист1").ComboBox15.Activate
End Sub

Private Sub ComboBox15_DropButtonClick()
    Dim iClassID    As String
    If ActiveWorkbook.Sheets("Лист1").ComboBox15.ListIndex = -1 Then Exit Sub

    On Error Resume Next
    ActiveWorkbook.Sheets("Лист1").ComboBox16.Clear
    On Error GoTo 0

    For iClCount = 2 To ActiveWorkbook.Sheets("Кодификатор").Range("d:d").End(xlDown).Row

        If ActiveWorkbook.Sheets("Лист1").ComboBox15.Value = ActiveWorkbook.Sheets("Кодификатор").Range("d" & iClCount).Value Then
            iClassID = ActiveWorkbook.Sheets("Кодификатор").Range("e" & iClCount).Value
        End If

    Next

    ' формирование списка в комбо 16
    For iDeskCount = 2 To ActiveWorkbook.Sheets("Кодификатор").Range("g:g").End(xlDown).Row

        If iClassID = ActiveWorkbook.Sheets("Кодификатор").Range("h" & iDeskCount).Value Then
            '            MsgBox ActiveWorkbook.Sheets("Кодификатор").Range("e" & iDeskCount).Value & "  " & iClassID
            ActiveWorkbook.Sheets("Лист1").ComboBox16.AddItem ActiveWorkbook.Sheets("Кодификатор").Range("g" & iDeskCount).Value
        End If

    Next

    ActiveWorkbook.Sheets("Лист1").ComboBox16.Activate
End Sub

Заменил событие ComboBox14_Change() на ComboBox14_DropButtonClick() и нет

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

, что при любом дуновении ветра изменении значения в любой ячейке листа значения в комбах очищаются.

[Bezdar]

Благодарю!
Все отрабатывается корректно.
Вы просто маг и волшебник, маг и волшебник

[MikeVol]

Bezdar, Доброго времени суток. Да нет я не

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

маг и волшебник

, я всего лишь ваш код чуток переделал под другое событие контролла.
Удачи вам!