AJUDA COM VBA

PELLENSE 16/10/2009 06:47:09
#325445

bom dia

estou desenvolvendo um formulario em vba exel e gostaria de saber se voces poderiam me ajudar em uma duvida
esse formulario tem um userform2 com um listbox com o comando

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox1 = ListBox1.Text
Unload Me
End Sub

esse listbox tem dados de uma planilha da mema pasta de trabalho quando eu dou 2 clicks em um valor do list box o valor e lançado para uma textbox1 do userform1 com o comando acima mas ao lado dessa textbox1 tenho uma textbox2 que quando a textbox1 preenchida deveria me retornar o valor de uma tabela da plan1 usando a funcão

Private Sub TextBox2_Change()
TextBox2.Text = Application.WorksheetFunction.VLookup(TextBox1.Text, Sheets([Ô]plan1[Ô]).Range([Ô]a2:b30[Ô]), 2, False)
End Sub

esse retorno seria o valor do produto mas não ta funcionando o valor não retorna na mesma hora do preenchimento da textbox1 consegui faser com uma label mas o valor só retorna se eu clicar nela
gostaria de saber se voces me ajudariam a ver o que ta de errado mando

atenciosamente
TECLA 17/10/2009 10:04:03
#325547 Resposta escolhida
Não sei se entendi 100%, mas... teste o código abaixo e retorne o resultado.

Private Sub TextBox1_Change()
TextBox2.Text = Application.WorksheetFunction.VLookup(TextBox1.Text, Sheets([Ô]plan1[Ô]).Range([Ô]a2:b30[Ô]), 2, False)
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar