Можете ли вы помочь мне понять и решить, что не так со следующим кодом? Иногда это работает, но после одного или двух тестов я получаю сообщение об ошибке 1004 «Невозможно получить свойство Match класса WorksheetFunction».
Это vba в форме для поиска значения текстового поля1 (которое является сокращенным ISO-кодом соответствующего значения в поле со списком1) на основе значения, указанного в поле со списком1.
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.index(Sheets("Components").Range("D2:D45"), Application.WorksheetFunction.Match(Me.ComboBox1.Value, Sheets("Components").Range("C2:C45"), 0), 1)
End Sub
Моя форма имеет 2 поля со списком и 1 текстовое поле.
Combobox3 имеет значение категории, второе, Combobox1, имеет зависимое значение, основанное на Combobox3 и listbox1 just vlookup для соответствующего сокращенного кода для значения в Combobox1 из компонентов Sheets.
Пример: ComboBox3: Банк / ComboBox1: NatWest / ListBox1: NW
Большое спасибо за любые ваши советы, предложения или помощь, и ваш вклад очень ценится.