Erro 13 Tipos Incompatíveis em Form

[pedrobb]

Tá dando o erro: Erro em tempo de execução '13': Tipos incompatíveis. FIM ou DEPURAR.
Ocorre ao fechar o formulário.
Ao depurar, na rotina de Cálculo do CPF, mostra a linha: total = total + Mid(Numero, i, 1) * fator, da função calculadigito.

Espero ajuda,
Pedro

[Rafael Monteiro]

Pedro,

Aqui não tive esse problema, porém o que parece ser é que o form está aberto mas o foco está numa outra planilha.

O banco de dados está na própria planilha do Excel, então quando você fechar o form ele fecha a conexão também. Agora se estiver o foco em outra planilha, ele irá dar esse erro 13.

Minha sugestão é você usar o tratamento de erro.

Código: Selecionar todos

On Error GoTo Tratar_erro_fechar:

'A Rotina deve estar aqui

Tratar_erro_fechar:

If Err.Number = 13 Then

    MsgBox "O foco está em outra planilha"
    
 Exit Sub
 End If

[pedrobb]

Obrigado, Rafael.
Era isso mesmo.
Grato,
Pedro