none
Ajuda - A variável do objeto ou a variável do bloco 'With' não foi definida. RRS feed

  • Pergunta

  • Olá amigos estou com um problema, fiz um comando pra encontrar valores digitados em um txtbox, se o valor foi encontrado ele retorna uma msgbox dizendo que encontrou, se não encontrar o valor ele retorna outra msg que o valor não consta, o codigo esta funcionando mas quando o valor não consta ele diz que "A variável do objeto ou a variável do bloco 'With' não foi definida."

         Dim rs As Range
         Set rs = Cells.Find(TxBcompara.Text)
         If rs.Text = TxBcompara.Text Then
             MsgBox ("Valor encontrado"), vbInformation, ""
        Else
             MsgBox ("Valor não consta"), vbInformation, ""
        End If

    quarta-feira, 27 de fevereiro de 2013 18:28

Respostas

Todas as Respostas

  • Quando um valor não é encontrado, a variável rs não possui nenhum objeto range atribuído, logo, seu valor é Nothing. Note que no teste condicional você tenta acessar a propriedade Text de uma variável que possui o valor de Nothing, e é por isso que ocorre o erro.

    Experimente algo como:

    Private Sub CommandButton1_Click()
        Dim rs As Range
         Set rs = Cells.Find(TxBcompara.Text)
         If Not rs Is Nothing Then
             MsgBox ("Valor encontrado"), vbInformation, ""
        Else
             MsgBox ("Valor não consta"), vbInformation, ""
        End If
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 27 de fevereiro de 2013 22:34
    Moderador
  • Programo em Java e C#, mas sou iniciante em VBA, e ainda estou no processo de entender a sintaxe, estou estudando por uma apostila, testei o código que vc passou e apresentou um seguinte erro "Métodos ou membros de dados não encontrados".
    quinta-feira, 28 de fevereiro de 2013 01:58
  • Experimente este exemplo pronto: https://skydrive.live.com/redir?resid=FB206A2D510E0661!676&authkey=!AJ1yElhgzs5fVwY

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 28 de fevereiro de 2013 23:23
    Moderador