Excel VBA - Erro Estouro

[Marcus Nagel_758472]

Pessoal, bom dia.

 

Procurei bastante antes de vir aqui, mas as soluções que achei não me ajudaram. Espero que vocês consigam!!! 

 

Tenho uma planilha com alguns códigos em VBA que criam, pesquisam e atualizam uma base de dados no mesmo arquivo.

O campo obrigatório é o "Contrato", por ele eu consigo pesquisar ou atualizar algum contrato que tenha na base.

Até ai tudo esta funcionando corretamente, porém se eu coloco um contrato com 10 números (ex. 9000008400, que é o formato que vou usar) e clico em PESQUISAR ele informa o erro "Estouro" (apenas no PESQUISAR os outros "botões" funcionam normalmente). Pesquisei na internet e vi que podia ser por causa da variável Integer, mas já alterei para Long e o erro persiste.

 

Conseguem me ajudar a resolver???

 

Desde já, muito obrigado!!!

E um feliz ano novo para todos!

Gestão de Rotina v2.zip

[Marcus Nagel_758472]

RESOLVIDO!!

 

Troquei a variável Integer por Double. 

Long não servia.

 

Segue a planilha zipada e corrigida para caso alguém um dia precise de um arquivo parecido.

Gestão de Rotina v2.zip