CARREGANDO DA PLANILHA PARA OS TEXTBOXS....

DO UNTIL PARA CARREGAR INFORMAÇÕES...

A ideia é digitar o código dos produto e o mesmo ser carregado para os TextBox do UserForm...

Para isso criei um pequeno banco de dados... vejam:

O UserForm fiz assim :

Os objetos são Textbox1 para o código, TextBox2 para Produtos e TextBox3 para Valor...

O código que fará a busca vou colocar no evento afterupdate do objeto Textbox1 assim ao digitar o código e teclar enter a busca será realizada...

o código é :

Private Sub TextBox1_afterupdate()

Dim linha As Integer

linha = 2

Do Until Plan1.Range("a" & linha).Value = ""

If Plan1.Range("a" & linha).Value = Me.TextBox1.Text Then

Me.TextBox2.Text = Plan1.Range("b" & linha).Value

Me.TextBox3.Text = Format(Plan1.Range("c" & linha).Value, "CURRENCY")

encontrado = "sim"

Exit Sub

Else

linha = linha + 1

End If

Loop

MsgBox "CÓDIGO NÃO ENCONTRADO", vbCritical

End Sub

E o resultado será :

Caso digite um código inexistente será informado do mesmo através de uma mensagem de aviso....