Buscar dados atraves de um textbox

[Thiago.Chagas]

boa noite,

registrei no forum agora na esperança d que alguém possa m ajudar...

é o seguinte...

estou criando um programinha para controle de vendas atraves do vba para excel

tenho um form com 8 textbox... alinhados horizontalmente na ordem abaixo:

Codigo do produto - produto - industria - quantidade - preço unitario - desconto - aumento - sub-total

então, EIA A QUESTAO:

gostaria que quando eu digitasse o codigo do produto no textbox e saisse do mesmo, os campos produto, industria e preço unitario fosse preenchidos automaticamente...

qual seria o codigo pra executar isso e ond eu colocaria esse codigo??????

[kuroi]

Movido pra VBA.

[Adilson Heckler]

Também estou precisando exatamente isso, alguém pode nos ajudar??????????

Obrigado desde já!!!!

[Guest Alexandre Gonçalves]

Da uma pesquisada na função VlookUp talvez você consiga.. tenho algo parecido... deu certo na minha...

[Vagner Nicolodi]

Você poderia usar algo mais ou menos assim:

Private Sub CommandButton1_Click()

Columns(1).Find(TextBoxCodProduto).activate
On Error GoTo Error1
TextBoxProduto = Cells(ActiveCell.Row, 2).value 'Somente se o valor produto estiver na coluna 2
TextBoxIndustria = Cells(ActiveCell.Row, 3).value 'Somente se o valor industria estiver na coluna 3
TextBoxPreçoUnitario = Cells(ActiveCell.Row, 4).value 'Somente se o valor unitario estiver na coluna 4

Exit Sub

Error1:
MsgBox("O código referido não foi localizado em nosso cadastro, providencie o cadastramento e reexecute a aplicação")

End Sub

Altera a numeração das colunas conforme o teu Banco de Dados.

Atenciosamente,

Vagner Nicolodi