Olá Victor!
Há muitas formas de fazer isto. Seguem dois exemplos macros que você pode aplicar:
Sub Localizar_Produto()
Sheets("A").Select
Cells.Find(What:=Sheets("B").Range("D6").Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Sub Localizar_produto2()
Application.Goto Sheets("A").Range("B7")
Do Until ActiveCell.Value = Sheets("B").Range("D6").Value Or ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Range("A1").Activate
Loop
End Sub
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 04/03/2015 8:25 am