Erro Tipos Incompatíveis

[Berti]

Pessoal, tudo certo?

Estou quebrando a cabeça com esse erro.

Acontece que depois de preenchido todos os campos do formulário, ao clicar em "Lançar" acusa o erro em tempo de execução 13: Tipos Incompatíveis.

Favor, baixem o modelo compactado em anexo, e preencham somente a textbox CBU e dem um TAB porque está no evento After_Update(), assim vai inserir na próxima textbox QTD o valor correspondente à textbox CBU.

Depois cliquem em LANÇAR que daí vai ocorrer o erro pedindo para Depura-lo.

Agradeço a ajuda.

[Reinaldo]

Basicamente o erro refere-se ao tentar "passar" para uma variável um valor diferente do definido.
Então no seu exemplo, se ao preencher o campo CBU, e esse não estiver listado na planilha, vai gerar o erro.
Também depois de clicar no botão "Lançar", os controles são "limpos", entre esses controles o txt_cbu.
Acontece que ao efetuar essa "limpeza" é disparado a rotina after_update, mas a variavel boleta está definida como long, e ao passar pela linha boleta =Txt_cbu, gera o erro pois o valor "" (Empty) não é aceito para variáveis tipo long.
Altere a linha :

Código: Selecionar todos

boleta=txt_cbu

para

Código: Selecionar todos

If txt_cbu.Text <> "" Then boleta = txt_cbu.Text

Tambem a linha:

Código: Selecionar todos

pesquisa3 = Application.WorksheetFunction.VLookup(boleta, intervalo2, 5, 0)

para

Código: Selecionar todos

If txt_cbu.Text <> "" Then pesquisa3 = Application.WorksheetFunction.VLookup(boleta, intervalo2, 5, 0)

Assim eliminará esse erro; porem poderá haver outros que devam ser tratados.

[Berti]

Boa Reinaldo, enfim alguém ajudou!

Problema resolvido.

Obrigado.