Saberexcel - Dicas Excel VBA 
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um loop por toda região de células desejada, localiza a última linha usada, retorna uma mensagem do conteúdo de duas células adjacentes, desloca uma linha abaixo e sai do procedimento
Sub Localiza_dados()
Dim c As Range
Dim x As Range
On Error Resume Next
oct 'ocultar o shapes
Set x = Sheets("Ultima_linha_dados").Range("B:B").Find("PRODUTOS SABEREXCEL", , xlValues, xlWhole, , , False)
For Each c In Range(x, x.End(xlDown))
c.Select
Next c
MsgBox ActiveCell.Value & " -- Valor R$ " & ActiveCell.Offset(0, 4).Value
ActiveCell.Offset(1, 0).Select
End Sub
Aprenda tudo sobre o aplicativo Microsoft Excel VBA(Visual Basic Application) , com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo o procedimento acima
Excel vba busca dados criterio palavra retorna valores (23.76 KB)
