A função Vlookup é uma das funções mais poderosas do Excel, usada para procurar valores em uma tabela e retornar um valor correspondente. No VBA, podemos usar a função Vlookup de várias maneiras para automatizar tarefas e aumentar a eficiência do trabalho.
Sintaxe básica do Vlookup:
Vlookup (valorprocurado, tabela, colunaindex, [intervalo_procurado])
valor_procurado: o valor que desejamos procurar na tabela.
tabela: a tabela na qual desejamos procurar o valor_procurado.
coluna_index: o número da coluna na tabela da qual desejamos retornar um valor correspondente. A primeira coluna é 1, a segunda coluna é 2 e assim por diante.
intervalo_procurado: opcional. Especifica se a função deve procurar um valor exato ou um valor aproximado. Os valores possíveis são TRUE ou FALSE. Se True, a função fará uma correspondência aproximada. Se False, fará uma correspondência exata.
Exemplo de uso em VBA:
Suponha que temos duas planilhas, uma com uma lista de pedidos e outra com uma tabela de preços. Queremos adicionar o preço de cada produto à planilha Pedidos usando a função Vlookup.
Sub Adicionar_precos ()
Dim i As Integer
For i = 2 To Range("A1"). End (xlDown). Row
'valor_procurado é o nome do produto na célula A (i) da planilha Pedidos.
valor_procurado = Range("A" & i)
'tabela é a planilha Preços.
tabela = Sheets("Preços"). Range("A1: B10")
'coluna_index é o número da coluna de preço na planilha Preços.
coluna_index = 2
'chamamos a função Vlookup e armazenamos o resultado na célula C (i) da planilha Pedidos.
Range("C" & i) = Application.Vlookup(valorprocurado, tabela, colunaindex, False)
Next i
End Sub
Este exemplo percorre todas as linhas da planilha Pedidos, procura o nome do produto na planilha Preços, retorna o preço correspondente e o adiciona à planilha Pedidos. Podemos adicionar outras condições, como verificações de erros ou formatação de células, para tornar este código ainda mais robusto.