O PROCV é uma função muito útil do Excel que permite encontrar informações em uma tabela com base em um valor de pesquisa. Com uma macro, podemos automatizar o uso do PROCV para tornar o processo mais eficiente e menos sujeito a erros.
Aqui está um exemplo de código de macro que usa o PROCV para encontrar o preço de um produto com base no seu código:
Sub ProcvMacro()
Dim codigo As Integer Dim preco As Double
'Obtém o código do produto do usuário codigo = InputBox("Digite o código do produto:", "Procurar preço")
'Executa o PROCV para encontrar o preço do produto na tabela "Produtos" preco = Application.WorksheetFunction.VLookup(codigo, Range("Produtos"), 2, False)
'Mostra o resultado ao usuário MsgBox "O preço do produto é R$" & preco
End Sub
Explicação do código:
O código começa declarando duas variáveis: "codigo" (que armazena o código do produto digitado pelo usuário) e "preco" (que armazena o preço encontrado pelo PROCV).
O código usa a função InputBox para perguntar ao usuário qual é o código do produto que ele deseja procurar.
Em seguida, o código utiliza a função VLookup do Excel para procurar o código na tabela "Produtos" e retornar o preço correspondente (coluna 2 da tabela).
O resultado é armazenado na variável "preco".
Por fim, o resultado é mostrado ao usuário através de uma mensagem de texto (MsgBox).
Este é apenas um exemplo básico de como usar o PROCV com uma macro no Excel. Dependendo das suas necessidades, você pode adaptar o código para lidar com tabelas maiores, ou adicionar outras funções para manipular os dados encontrados.