none
ERRO EM TEMPO DE EXECUÇÃO 13 TIPO INCOMPATIVEIS RRS feed

  • Pergunta

  • Sub Criar_Arquivos()

    Dim RESP2 As Integer

    Dim RESP As Integer

    On Error GoTo ErrorHandler

    ....

    ....

    ....

    VOLTA:

    RESP2 = InputBox("Qual arquivo deseja enviar? ", "SISTEMA DE EMAIL VBA", "PREENCHA O NÚMERO DO CENTRO")

    If RESP = "XXX" Then

    ....

    ...

    ....

    ErrorHandler:

        RESP = MsgBox("DESEJA ENCERRAR REALMENTE ?", vbQuestion + vbYesNo + vbDefaultButton2, "CONFIRMAR ENVIO?")
        If RESP = vbYes Then

    ....

    .....

    ..... 

    Else

    GoTo VOLTA

     Resume Next

     End If

    END SUB

    USEI ESSA ESTRUTURA , QUANDO UTILIZO O CANCELAR DO INPUT FUNCIONA MAS SE FECHO PELO (X) fechar TRÁS UM ERRO
    EM TEMPO DE EXECUÇÃO 13 TIPO INCOMPATÍVEIS.

    CONSIGO BLOQUEAR O X PARA USUÁRIO ACESSAR SÓ O CANCELAR OU TENHO OUTRA FORMA  DE TRATAR ESTE ERRO.

    quinta-feira, 23 de novembro de 2017 12:52

Respostas

  • Sempre que tiver imputbox, coloque antes on error resume next

    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 23 de novembro de 2017 15:06
    • Marcado como Resposta CS_RODRIGO quinta-feira, 23 de novembro de 2017 16:33
    quinta-feira, 23 de novembro de 2017 15:06