Página 1 de 1

Re: Erro ao carregar textbox a partir de combobox

Enviado: 14 Out 2021 às 12:22
por babdallas
Anexa a planilha, por favor.

Re: Erro ao carregar textbox a partir de combobox

Enviado: 15 Out 2021 às 14:03
por fcarlosc2018
Tente assim:
Código: Selecionar todos
Dim xRg As Range

Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub

Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Usuarios").Range("A2:B10")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub