Boa tarde Amigos!
Por favor,
Poderia me ajudar, com este código.
Não estou conseguindo achar o erro para que não localize a informação.
abs
Sub Filtrar()
Application.ScreenUpdating = False '"Trava" sua sessão do Excel
'Buscar Fornecedor
Dim ttProc, C As Long
C = 5
Do While Cells(C, "A") <> ""
ttProc = Application.Match(Trim(Cells(C, "K")), Sheets("Fornecedor").Range(Trim("A1:A50000")), 0)
If IsError(ttProc) Then
Cells(C, "M").Value = "Sem Cadastro"
Else
Cells(C, "M").Value = Sheets("Fornecedor").Cells(ttProc, "B")
End If
C = C + 1
Loop
Application.ScreenUpdating = True '"Destrava" sua sessão no Excel
End Sub
Postado : 22/04/2014 1:20 pm