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

Question

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

Answer 1

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

Answer 2

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".

Answer 3

Experimente este exemplo pronto: https://skydrive.live.com/redir?resid=FB206A2D510E0661!676&authkey=!AJ1yElhgzs5fVwY

---

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