Página 1 de 1

Problema com formula VBA

Enviado: 15 Jun 2016 às 22:29
por kleinowski
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???

Re: Problema com formula VBA

Enviado: 15 Jun 2016 às 23:25
por AndersonLeal
Olá,

Poste uma planilha de exemplo que fica mais fácil de ajudarmos :)

Abraço!

Re: Problema com formula VBA

Enviado: 16 Jun 2016 às 08:29
por kleinowski
Imagem

Eu gostaria de digitar o valor do comprimento, largura e espessura e que ele me mostrasse o código do produto.

Re: Problema com formula VBA

Enviado: 16 Jun 2016 às 08:32
por alexandrevba
Bom dia!!

E onde está seu arquivo modelo?

Att

Re: Problema com formula VBA

Enviado: 16 Jun 2016 às 13:12
por kleinowski
Arquivo em Anexo

Re: Problema com formula VBA

Enviado: 16 Jun 2016 às 15:13
por AndersonLeal
Olá,

Veja se é isso que você precisa. As linhas 19 e 20 contém as mesmas medidas de comprimento, largura e altura, porém com códigos diferentes. Favor verificar.

Qualquer dúvida estamos aqui para ajudar! :)

Abraço!

Problema com formula VBA

Enviado: 16 Jun 2016 às 18:48
por kleinowski
Beleza funcionou!!!!
Só mais uma coisa, se eu tiver uma linha em branco ou uma célula mesclada ele não busca os outros valores.
Tem como resolver este problema?

Re: Problema com formula VBA

Enviado: 16 Jun 2016 às 19:18
por AndersonLeal
Olá,

A questão das linhas em branco já está resolvida!

Como seria o caso de células mescladas?

Abraço!

Re: Problema com formula VBA

Enviado: 17 Jun 2016 às 07:30
por kleinowski
Se eu tiver celulas mescladas ele da erro tem como resolver?

Re: Problema com formula VBA

Enviado: 17 Jun 2016 às 08:58
por alexandrevba
Bom dia!!

Porque uma única célula mesclada?

Porque não por a informação (B), em uma coluna (H) ?

Att

Problema com formula VBA

Enviado: 17 Jun 2016 às 11:10
por kleinowski
Porque é outro objeto, mas que usa o mesmo tipo de material então ele fica na mesma aba.
Tem como fazer ele continuar a pesquisa?

Re: Problema com formula VBA

Enviado: 17 Jun 2016 às 18:03
por AndersonLeal
Olá,

Acho que agora está tudo certo, dê uma olhada.

Abraço!