Excel Macro para pesquisar determinada informação em outra planilha

[Rafael nunes da silva]

Bom dia, 

 

preciso de uma ajuda com uma macro para pesquisar dados de outra planilha, se alguém puder me dar uma força.

 

Criei uma uma pasta para controle de estoque onde na plan2 possuo um banco de dados que é abastecido item na coluna A e localização na coluna B.

 

Na plan1 criei um botão para que, ao digitar a descrição do item na coluna A, se este estiver dentro da coluna A da plan2, me informe na coluna B a localização do mesmo baseado na informação contida na plan2.

 

Caso não encontre o item, informe ao lado no campo localização "item não encontrado"

 

e assim por diante, ou seja posso digitar varias linhas na coluna descrição e ao apertar o botão me retorne todas as localizações de uma vez (consulta em massa)

 

OBS: consegui um código semelhante ao que preciso porém quando digito vários itens, a macro informa a localização somente da ultima linha digitada, o que inviabiliza a pesquisa

 

deixei em anexo um modelo para se ter uma ideia

 

TESTE.xlsx

[Visitante]

 

Experimente:

 

Sub BuscaDados()
 Dim c As Range, n As Range
  If [B2] <> "" Then Range("B2:B" & Cells(Rows.Count, 2).End(3).Row) = ""
  For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   Set n = Sheets("Plan2").[A:A].Find(c.Value, lookat:=xlWhole)
   If Not n Is Nothing Then c.Offset(, 1).Value = n.Offset(, 1).Value Else c.Offset(, 1).Value = "não encontrado"
  Next c
End Sub

 

[Rafael nunes da silva]

27 minutos atrás, osvaldomp disse:

 

Experimente:

 

Sub BuscaDados()
 Dim c As Range, n As Range
  If [B2] <> "" Then Range("B2:B" & Cells(Rows.Count, 2).End(3).Row) = ""
  For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   Set n = Sheets("Plan2").[A:A].Find(c.Value, lookat:=xlWhole)
   If Not n Is Nothing Then c.Offset(, 1).Value = n.Offset(, 1).Value Else c.Offset(, 1).Value = "não encontrado"
  Next c
End Sub

 

Osvaldo, mais uma vez muito obrigado