Вход VLookUp ComboBox для обновления значений TextBox

Question

Моя проблема заключается в выборе страны из раскрывающегося списка (ComboBox) в моем UserForm, мои текстовые поля не показывают никакого вывода. Ничего не произошло. Текстовые поля должны выполнять VLookUp для любого значения, выбранного в ComboBox. ComboBox (Name) - «Страна».

Код для одного из TextBoxes:

Private Sub TextBox2_Change() 
Dim myRange As Range 
Set myRange = Worksheets("All Countries Validation").Range("A:R") 
TextBox2.Value = Application.WorksheetFunction.VLookup(Country.Value, myRange, 2, False) 

Answer 1

вы должны использовать Country_Change() обработчик событий вместо TextBox2_Change() один

Option Explicit 

Private Sub Country_Change() 
    Dim myRange As Range, f As Range 

    Set myRange = Worksheets("All Countries Validation").Range("A:A") 

    Set f = myRange.Find(What:=Country.Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) '<--| try and find combobox selected value 
    If f Is Nothing Then '<--| if not found ... 
     TextBox2.Value = "" '<--| ... then clear textbox 
    Else'<--| ... otherwise... 
     TextBox2.Value = f.Offset(, 1) '<--| ... fill it with proper value 
    End If 
End Sub