Key"" =combobox""

Set iBazaSht = ThisWorkbook.ActiveSheet
        
        Set iFoundRng = iBazaSht.Columns(19).Find(what:=Me.ComboBox19.Text, LookAt:=xlWhole)
       
        If Not iFoundRng Is Nothing Then
            iResponse = MsgBox("Òàêàÿ çàïèñü óæå ñóùåñòâóåò. Çàìåíèòü å¸?" & vbCr & "Äà - çàìåíèòü ñòàðóþ, Íåò - äîáàâèòü â áàçó", vbYesNoCancel + vbExclamation, "Âíèìàíèå!")
            If iResponse = vbYes Then
                With Sheets(iBazaSht.Name)
              
            lrow = iFoundRng.Row

If Not C_is1.Exists(Key1) Then
C_is1.Item(Key1) = Key1 & "_" & key2 & "_" & key3
End If

Dim m2()
Dim m3()
Private C_is1 As Object, C_is2 As Object, C_is3 As Object

Private Sub ComboBox7_Change()
If ComboBox7.ListIndex = -1 Then Exit Sub
    Dim key As String, IsPusto As Boolean
    Key1 = ComboBox7.Value
    key = Key1
    keys = C_is2.keys
    ComboBox8.Clear
    
    IsPusto = False
    For n = 0 To C_is2.Count - 1' КАК СЮДА ДОБАВИТЬ ПРАВИЛЬНО ЦИКЛЫ C_is2..... :(
        If InStr(1, keys(n), key, vbTextCompare) = 1 Then
            ComboBox8.AddItem C_is2.Item(keys(n))
            IsPusto = C_is2.Item(keys(n)) = ""
        End If
    Next
    If ComboBox8.ListCount = 1 And IsPusto Then
    
    ComboBox8.ListIndex = 0
    End If
    
    'If ComboBox8.ListCount > 0 Then ComboBox8.ListIndex = 0
End Sub

Private Sub ComboBox8_Change()
If ComboBox8.ListIndex = -1 Then Exit Sub
    Dim key As String
    'Key1 = ComboBox7.Value
     Key2 = ComboBox8.Value
     
    keys = C_is2.keys
    ComboBox9.Clear
   ' key = Key1 & "_" & Key2
    IsPusto = False
    For n = 0 To C_is2.Count - 1
        If InStr(1, keys(n), key, vbTextCompare) = 1 Then
            'ComboBox8.AddItem C_is3.Item(keys(n))
            IsPusto = C_is2.Item(keys(n)) = ""
        End If
    Next
    If ComboBox8.ListCount = 1 And IsPusto Then
    
    ComboBox8.ListIndex = 0
    End If
    'If ComboBox9.ListCount > 0 Then ComboBox9.ListIndex = 0
End Sub

Private Sub ComboBox9_Change()
If ComboBox9.ListIndex = -1 Then Exit Sub
    Dim key As String
    'Key1 = ComboBox7.Value
    
     Key3 = ComboBox9.Value
     
    keys = C_is3.keys
    'ComboBox9.Clear
   ' key = Key1 & "_" & Key2
    IsPusto = False
    For n = 0 To C_is3.Count - 1
        If InStr(1, keys(n), key, vbTextCompare) = 1 Then
            'ComboBox8.AddItem C_is3.Item(keys(n))
            IsPusto = C_is3.Item(keys(n)) = ""
        End If
    Next
    If ComboBox9.ListCount = 1 And IsPusto Then
    
    ComboBox9.ListIndex = 0
    End If
    'If ComboBox9.ListCount > 0 Then ComboBox9.ListIndex = 0
End Sub

Private Sub CommandButton2_Click()
End
End Sub

    Private Sub UserForm_Activate()
    Set C_is1 = CreateObject("scripting.dictionary")
    Set C_is2 = CreateObject("scripting.dictionary")
    Set C_is3 = CreateObject("scripting.dictionary")
    
    Dim mas1, mas2, mas3, mas4, Key1 As String, Key2 As String, Key3 As String, key As String

    ComboBox7.Clear
    ComboBox8.Clear
    ComboBox9.Clear
    

    With Sheets("дата")
    Dim rng As Range
    col1 = 0
    col2 = 0
    col3 = 0
    
    Set rng = .Rows(1).Find("1", , , xlWhole)
    If rng Is Nothing Then Exit Sub
    col1 = rng.Column
    Set rng = .Rows(1).Find("2", , , xlWhole)
    If rng Is Nothing Then Exit Sub
    col2 = rng.Column
    Set rng = .Rows(1).Find("3", , , xlWhole)
    If rng Is Nothing Then Exit Sub
    col3 = rng.Column
    
    
        конец = .Cells(Rows.Count, 2).End(xlUp).Row
        mas1 = .Cells(1, col1).Resize(конец, 2)
        mas2 = .Cells(1, col2).Resize(конец, 2)
        mas3 = .Cells(1, col3).Resize(конец, 2)
        
        For n = 2 To UBound(mas1)
            Key1 = mas1(n, 1)
            Key2 = mas2(n, 1)
            Key3 = mas3(n, 1)
            
            If Not C_is1.Exists(Key1) Then
                C_is1.Item(Key1) = Key1 & "_" & Key2
                
            End If
            key = Key1 & "_" & Key2
            If Not C_is2.Exists(key) Then
                C_is2.Item(key) = Key2
            End If
            key = Key1 & "_" & Key3
            If Not C_is3.Exists(key) Then
                C_is3.Item(key) = Key3
            End If
            

        Next

    End With

    keys = C_is1.keys
    For Each itm In keys
        ComboBox7.AddItem itm
    Next
    'If C_is1.Count > 0 Then ComboBox7.ListIndex = 0

End Sub

Private Sub ComboBox7_Change()
'If ComboBox7.ListIndex = -1 Then Exit Sub
    Dim key As String, IsPusto As Boolean
    
    Key1 = ComboBox7.Value
    Key2 = ComboBox8.Value
    Key3 = ComboBox9.Value
    key = Key1
    keys = C_is2.keys
    ComboBox8.Clear
    'keys = C_is3.keys
    'ComboBox9.Clear
    
    IsPusto = False
    For n = 0 To C_is2.Count - 1
    
        If InStr(1, keys(n), key, vbTextCompare) = 1 Then
            ComboBox8.AddItem C_is2.Item(keys(n))
            ComboBox9.AddItem C_is3.Item(keys(n))
            IsPusto = C_is2.Item(keys(n)) = ""
            IsPusto = C_is3.Item(keys(n)) = ""
        End If
    Next
    If ComboBox8.ListCount = 1 And IsPusto Then
    If ComboBox9.ListCount = 1 And IsPusto Then
    ComboBox8.ListIndex = 0
    ComboBox9.ListIndex = 0
    End If
    End If
    'If ComboBox8.ListCount > 0 Then ComboBox8.ListIndex = 0
End Sub

'keys = C_is2.keys
    ComboBox8.Clear
    keys = C_is3.keys