Usuário com melhor resposta
ERRO DE EXECUÇÃO 91

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 SubEnd Sub
Respostas
-
Q = Q + 1
TENTE TIRAR ESSA LINHAA 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
Todas as Respostas
-
-
-
Q = Q + 1
TENTE TIRAR ESSA LINHAA 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