Detalhes de Excel vba busca dados criterio palavra retorna valores

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, com os produtos didáticos Saberexcel