Este fórum está sendo desativado

[JeanHard]

Bom dia meus amigos!
Sou novo aqui e caso esteja fazendo algo de errado me avisem.

Tenho uma idéia para um form que é a seguinte:
Tenho um combobox que vai listar meus fornecedores e um textbox que quando eu jogar o código do produto e ele não pertencer aquele fornecedor o programa me retorne uma mensagem dizendo que o código não existe ou não pertencence a este fornecedor.
anexo minha planilha.
Obs: Não levar em conta o segundo combo!

[alexandrevba]

Boa tarde!!

Afinal qual é sua dúvida?

Att

[JeanHard]

Seguinte. Tenho um cadastro de fornecedores que esta listado no combobox, para evitar erro de associação quero que seja cadastrado somente os códigos dos produtos daquele fornecedor, em vez de usar combos encadeados quero digitar numa text o código. Se vc baixou o anexo não leve em conta o combo que esta listando os produtos!
Ex: Tenho o produto "Caneta" cadastrado para o "fornecedor1" e o produto "Lápis" cadastrado para o "fornecedor2".
Vou no combo e escolho o fornecedor1 blz ok.
Vou na textbox e digito o código da caneta 1010 blz o sistema aceita normal.
Mas caso em vez de 1010 eu digite o código do lápis que é 1020 o sistema me retorne uma mensagem informando que o código não pertence aquele fornecedor ou não esta cadastrado.

[duds]

Boa tarde Jean,
Tu quer isso aqui em UserForm certo?

[JeanHard]

Boa Eduardo!
A funcionalidade é bem parecido com que eu quero.
Mas como faço isso funcionar no meu formulário?
Daria certo usando o vlookup ?

[duds]

Desculpe a pergunta, mas por que colocar o código?
Ao meu ver da seu form não seria melhor retornar o código em função do fornecedor e do produto selecionado na combobox anterior? Apenas uma sugestão!

[alexandrevba]

Boa tarde!!

Jean, favor indicar as postagens cruzadas!!
http://www.planilhando.com.br/forum/vie ... 5e95e42133

Att

[JeanHard]

Alexandre. Não consegui nesse forum acima e me indicaram este

[JeanHard]

Agradecendo a luz que o Eduardo me deu e pelas diversas formas de manipular o vba excel (Minhas queridas gambiarras) .
Segue anexo a solução que consegui para atender minha necessidade.
Só vou pedir mais uma coisa. Se vcs observarem no formulário tem um botão de comando bem grande, nele consigo ir para a page1 do multipage porém aqui:
" texto = MsgBox("Nenhum código encontrado, Deseja cadastrar novo produto?", vbQuestion + vbYesNo, "Cadastro de Produtos")
If texto = vbYes Then
MultiPage1.Value = 0

Podem me dar essa última ajuda.

[JeanHard]

Agradecendo a luz que o Eduardo me deu e pelas diversas formas de manipular o vba excel (Minhas queridas gambiarras) .
Segue anexo a solução que consegui para atender minha necessidade.
Só vou pedir mais uma coisa. Se vcs observarem no formulário tem um botão de comando bem grande, nele consigo ir para a page1 do multipage porém aqui:
" texto = MsgBox("Nenhum código encontrado, Deseja cadastrar novo produto?", vbQuestion + vbYesNo, "Cadastro de Produtos")
If texto = vbYes Then
MultiPage1.Value = 0
não acontece nada!!!

Podem me dar essa última ajuda.

[duds]

Boa tarde Jean,

Estou quebrando minha cabeça pra tentar descobrir o que está acontecendo, pois não está fazendo sentido hahah.
Assim que eu tiver novidades eu te aviso!
Att

[duds]

Jean! Consegui resolver o problema!!!
Seguinte, o que estava acontecendo era que assim que você terminava de escrever na txtbox do código, ativava o evento, porém assim que você terminava de escrever também era deslocada a seleção para a textbox de baixo, o que interferia na seleção da outra multipage, acredito que fosse esse o problema.
Então para solucionar isto, ao invés de usar o evento

Código: Selecionar todos

Private Sub TxtCod_AfterUpdate()

use o seguinte evento :

Código: Selecionar todos

Private Sub TxtDescricao_Enter()

e então seu objetivo será alcançado!!!

Uma sugestão, junto ao evento de inicialização do seu Form coloque o seguinte código

Código: Selecionar todos

MultiPage1.Value = 1

assim ele priorizará a multipage de consulta sempre que abrir o Form!!

Espero que não tenham sobrado mais dúvidas, mas caso ainda haja alguma, me avise que terei o prazer em responder

Att.

[JeanHard]

Eduardo, bom dia.
segui sua orientação trocando o evento, porém recebo "erro de automação o objeto chamado foi desconectado de seus clientes"

[duds]

Bom dia Jean,

Hmmm que estranho, você poderia anexar a planilha com este erro para eu dar uma olhada?

Att.

[JeanHard]

Segue anexo.
PS: Uso o excel 2013

[duds]

Jean, desculpa, não estou conseguindo encontrar o problema, visto que no meu esse não ocorre.
Uso o excel 2007!
Tente usar a ferramenta do depurador, aquele que mostra cada linha e o que acontece em cada linha, e veja aonde que ocorre o erro e tente usar um código para contornar o erro, tipo:

Código: Selecionar todos

On Error GoTo

Realmente não sei a origem deste erro!

[JeanHard]

Tranquilo meu amigo. Foi de grande ajuda e te agradeço pela força.
Como em vba e excel as dúvidas sempre irão surgir certamente aparecerei por aqui novamente.
Obrigado!!!