VBA, как проверить комбо из двух столбцов для значения

Question

У меня есть комбо с двумя столбцами, и я использую значение в столбце (1) в качестве ответа, но когда я хочу проверить, имеет ли это комбо значение с помощью этого кода, оно не выполняется, поэтому, когда я пытаюсь извлечь значение изкомбо я получаю ошибку времени выполнения 381. вот мой код

 If Trim(CmBCodes.Value) = "" Then
    MsgBox "Please fill in the journey Code"
    CmBCodes.SetFocus
    Exit Sub
    End If

и изменил его на этот

   If Trim(CmBCodes.Value) = Null And Len(CmBCodes.Value)) = Null Then
    MsgBox "Please fill in the journey Code"
    CmBCodes.SetFocus
    Exit Sub
    End If

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

  ws.Cells(iRow, 2).Value = UCase(CmBCodes.Column(1))

Answer 1

Если выбор не был сделан, тогда поля со списком и списком имеют индекс индекса -1

If CmBCodes.ListIndex = -1  Then
    MsgBox "Please fill in the journey Code"
    CmBCodes.SetFocus
    Exit Sub
End If