VBA - Criando um formulário de Pesquisas (Excel)

Nesse formulário fiz igual a imagem abaixo.
Você pode estar modificando conforme seu trabalho.

BOM PROVEITO!!!



De um duplo click na textbox1.
Faça o mesmo procedimento da imagem,altere o evento.



Dentro deste evento cole o código a seguir

Private Sub TextBox1_AfterUpdate()

Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem

codigo = TextBox1.Text
Sheets("coloque aqui o nome da sua planilha").Select
Set intervalo = Range("A2:E200")

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)

TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus

Exit Sub

trataErro:
   texto = "Produto não localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

Se você tem vários itens na planilha que deseja usar o formulário de pesquisa vamos aumentar a quantidade de texbox

Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("planilha1").Select
Set intervalo = Range("A2:F200")'aqui eu modifiquei para F200 que é o termino da minha planilha'

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)'Aqui eu inseri mais uma textbox'

TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox6.Text = pesq4'Aqui eu inclui a textbox que quero carregar'
TextBox1.SetFocus

Exit Sub

trataErro:
   texto = "Produto não localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub


Muito facil né modifique da maneira que quiser e não se esqueça de comentar.