Excel VBA - Erro de execução "91" - Variável de objeto ou variavel do bloco (Erro 91)

[Murilo T. L. Guimaraes]

VBA - Erro de execução "91" - Variável de objeto ou variavel do bloco  (Erro 91)

 

Private Sub BtnImprimir_Click()
Dim Linha As Long
Dim Lin As Integer
Dim X As Long

Linha = 4

With Planilha3
.Activate
.Range("b4:q2000").ClearContents

With Me.ListBox1
For X = 0 To .ListCount - 1


Lin = Planilha2.Range("b:b").Find(.List(X, 0), lookat:=1).Row
Range("b" & Linha).Cells = Planilha2.Cells(Lin, 2)
Range("c" & Linha).Cells = Planilha2.Cells(Lin, 3)

Linha = Linha + 1
Next X
End With
End With

End Sub

[Midori]

18 horas atrás, Murilo T. L. Guimaraes disse:

Lin = Planilha2.Range("b:b").Find(.List(X, 0), lookat:=1).Row

Nessa linha se Find não encontrar nada vai acontecer o erro 91.

 

Antes de tentar pegar o valor de Row, atribua o retorno da função a uma variável do tipo Range e faça um teste com a instrução Nothing.

[Murilo T. L. Guimaraes]

Peço que descupe minha falta de conhecimento. mas poderia me explicar como fazer isto ?

 

[Midori]

Essa parte pode ficar assim,

 

Dim Busca As Range

Set Busca = Planilha2.Range("b:b").Find(.List(X, 0), lookat:=1)

If Not Busca Is Nothing Then
    Lin = Busca.Row
    Range("b" & Linha).Cells = Planilha2.Cells(Lin, 2)
    Range("c" & Linha).Cells = Planilha2.Cells(Lin, 3)
    Linha = Linha + 1
End If