none
ERRO DE EXECUÇÃO 91 RRS feed

  • Pergunta

  • Na instrução abaixo apresenta o seguinte erro. erro de execução 91

    Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

        Dim Q As Integer

      Q = 0
      For Q = 1 To 4


        If InputBox("palalavra-chave") = 123456 Then

        Application.Visible = True
        Unload Me ' Userform1

        Exit Sub

        Else

        Q = Q + 1

        MsgBox "Não foi possivel realizar a ação!", vbCritical

        End If

      Next Q

        Exit Sub

    End Sub

                                            
    quinta-feira, 30 de novembro de 2017 16:50

Respostas

  • Q = Q + 1
    
    TENTE TIRAR ESSA LINHA

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

    • Marcado como Resposta CS_RODRIGO terça-feira, 5 de dezembro de 2017 23:59
    sexta-feira, 1 de dezembro de 2017 04:23

Todas as Respostas

  • Referente a qual linha?


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

    sexta-feira, 1 de dezembro de 2017 03:45
  • NÃO FAZ SENTIDO COLOCAR EXIT SUB ANTES DE END SUB, POIS AMBOS FAZEM A MESMA COISA

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

    sexta-feira, 1 de dezembro de 2017 04:07
  • Q = Q + 1
    
    TENTE TIRAR ESSA LINHA

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

    • Marcado como Resposta CS_RODRIGO terça-feira, 5 de dezembro de 2017 23:59
    sexta-feira, 1 de dezembro de 2017 04:23