none
ERRO DE EXECUÇÃO 13 RRS feed

  • Pergunta

  • Se digito número executa o SeNão, se digito qualquer outro texto da erro.

    Private Sub CommandButton3_Click()

            Dim F As Integer

            F = InputBox("Qual a Palavra-Chave?")
            If F = AAA Then
                ComboBox1.Visible = True
            Else
                MsgBox " Não foi possivel fazer a validação com :" & F, vbInformation
                ComboBox1.Visible = False
            End If

            End Sub

    quarta-feira, 29 de novembro de 2017 15:19

Respostas

  • Pelo que entendi está havendo um conflito entre String (texto) e Integer (número inteiro).

    Então pode ser que essa variável não seja Integer:

    Dim F As Integer

    Mas String:

    Dim F As String


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

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 29 de novembro de 2017 20:46
    • Marcado como Resposta CS_RODRIGO quinta-feira, 30 de novembro de 2017 12:14
    quarta-feira, 29 de novembro de 2017 20:46

Todas as Respostas

  • A variável F está declarada para aceitar números. O que é AAA?

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


    quarta-feira, 29 de novembro de 2017 16:10
  • Quando vamos comparar algo com algo, é bom converter os dois lados para o mesmo tipo:

            If cint(F) = cint(AAA) Then
    


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

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 29 de novembro de 2017 16:49
    quarta-feira, 29 de novembro de 2017 16:49
  • AAA é exemplo de um nome.... (texto)
    pode ser Rodrigo Anderson entre outros...

    quarta-feira, 29 de novembro de 2017 18:32
  • Pelo que entendi está havendo um conflito entre String (texto) e Integer (número inteiro).

    Então pode ser que essa variável não seja Integer:

    Dim F As Integer

    Mas String:

    Dim F As String


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

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 29 de novembro de 2017 20:46
    • Marcado como Resposta CS_RODRIGO quinta-feira, 30 de novembro de 2017 12:14
    quarta-feira, 29 de novembro de 2017 20:46