Excel Excel vba Erro 91, "A variável do objeto ou a variável do bloco "with" ..."

[fradseu]

Olá boa tarde!
Precisa de uma ajuda em um código vba.

Está dando erro "A variável do objeto ou a variável do bloco "with" não foi definida

Private Sub CommandButton14_Click()

    '''rotina para atualizar as informações
    ''localizador da os
    Dim atualiza As Integer
    If TextBox2001 = "" Then
    Label74.Caption = " Nº da OS de produção necessário para continuar! "
    Label74.BackColor = &H8080FF ' vermelho
    Exit Sub
    End If

    Sheets("bd_rastre").Select
    
    atualiza = Sheets("bd_rastre").Range("A:A").Find(TextBox2013.Value).Row
    
    
    
    With Worksheets("bd_rastre")
     atualiza = .Range("A:A").Find(TextBox2013.Value).Row
    End With

 

 

as duas funções que eu estou tentando utilizar para localizar a linha do objeto está dando esse erro....

[Midori]

@fradseu Se o erro é na linha da atribuição da variável atualiza, então é porque a função Find não encontrou nada na busca e por isso não há linha para retornar. Nesse caso você pode evitar essa mensagem de erro testando o retorno de Find com Is Nothing.

[fradseu]

@Midori opá! 

Vou testar aqui e retorno com o resultado! Muito obrigado! 

[fradseu]

@Midori deu certo!

    Sheets("bd_rastre").Select
    On Error Resume Next
    atualiza = Sheets("bd_rastre").Range("A:A").Find(TextBox2013.Value).Row
    

Adicionei a tratativa de erro ( On Error Resume Next)  antes da função e funcionou!

[Midori]

@fradseu On Error não é muito recomendável já que se tiver outro erro na execução da Sub também será desconsiderado e o programa seguirá em frente sem alertar.

 

Da forma que comentei fica assim,

Private Sub CommandButton14_Click()
    Dim Celula      As Range
    Dim Atualiza    As Long
    
    If TextBox2001 = "" Then
        Label74.Caption = "Nº da OS de produção necessário para continuar!"
        Label74.BackColor = &H8080FF
    Else
        Sheets("bd_rastre").Select
        Set Celula = Sheets("bd_rastre").Range("A:A").Find(TextBox2013.Value)
    
        If Celula Is Nothing Then
            MsgBox "Valor não encontrado", vbInformation
        Else
            Atualiza = Celula.Row
            MsgBox "Linha = " & Atualiza
        End If
    End If
End Sub