- 15 Jun 2016 às 22:29
#11855
Estou tentando montar um VBA para uma planilha que possui dados como Comprimento, Altura, Espessura e Código.
Segue o código que tenho até agora.
Private Sub TextBox3_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("Material").Select
Set intervalo = Range("C5:H1048576")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(co... intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(co... intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(co... intervalo, 6, False)
TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox1.SetFocus
Exit Sub
trataErro:
texto = "Material não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
O que está acontecendo é o seguinte, eu tenho materiais que são de 100x100x50, 100x100x60, 100x100x70....
Eu fiz um UserForm e coloquei TextBox o problema é que eu gostaria que quando eu digitasse o comprimento a largura e a espessura ele me mostra-se o código do produto, o que está acontecendo é que quando eu digito 60 ou 70 de espessura e dou um Enter aparece no campo da espessura 50, é como se ele não achasse os outros valores.
Basicamente ele não está assumindo o valor que eu coloca no textbox. Ou existe alguma outra forma de fazer isso?
Alguem poderia me ajudar???
Segue o código que tenho até agora.
Private Sub TextBox3_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem
codigo = TextBox1.Text
Sheets("Material").Select
Set intervalo = Range("C5:H1048576")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(co... intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(co... intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(co... intervalo, 6, False)
TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox1.SetFocus
Exit Sub
trataErro:
texto = "Material não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
O que está acontecendo é o seguinte, eu tenho materiais que são de 100x100x50, 100x100x60, 100x100x70....
Eu fiz um UserForm e coloquei TextBox o problema é que eu gostaria que quando eu digitasse o comprimento a largura e a espessura ele me mostra-se o código do produto, o que está acontecendo é que quando eu digito 60 ou 70 de espessura e dou um Enter aparece no campo da espessura 50, é como se ele não achasse os outros valores.
Basicamente ele não está assumindo o valor que eu coloca no textbox. Ou existe alguma outra forma de fazer isso?
Alguem poderia me ajudar???
