Página 1 de 1

VLOOKUP Com váriaveis

Enviado: 21 Out 2020 às 10:28
por BrunoLuiel
Bom dia Amigos! Estou tentando fazer um PROCV pelo VBA mas encontro dificuldades, o caso é o seguinte

tenho 3 worksheets:

Vendas (é onde tem o valor procurado no PROCV)
Lançamentos (onde será lançado o PROCV)
Base (matriz tabela para PROCV)

Devido a uma outra estrutura junto a esta que tenho problemas, eu precisava que o valor procurado fosse uma variável e a Base matriz fosse fixa...

Segue a planilha em anexo.

Para explicar melhor o que preciso eu tentei isso...

Sub Lançamentos ()

Do Until Sheets("vendas").Cells(Lin, 1) = ""

Lin = 2 'Linha
Sheets("Base de Dados").Columns("A:B").Name = "CAa" 'Matriz tabela

Sheets("Lançamentos").Range("B" & Lin) = worksheetfunction.VLookup(Range("vendas!B"&Lin, CAa, 2, 0)

Lin = Lin + 1

Loop

End sub

Re: VLOOKUP Com váriaveis

Enviado: 21 Out 2020 às 10:52
por AfonsoMira
Veja se é isso que pretende.
Código: Selecionar todos
Sub Lançamentos()

'Matriz Tabela
matriz = Sheets("base de Dados").Range("A:B")

linha = 2

Do Until Sheets("vendas").Cells(linha, 1) = ""

valorProcurar = Sheets("vendas").Cells(linha, 2).Value

On Error Resume Next
resultadoProcV = WorksheetFunction.VLookup(valorProcurar, matriz, 2, False)
On Error GoTo 0

Sheets("Lançamentos").Cells(linha, 1).Value = valorProcurar
Sheets("Lançamentos").Cells(linha, 2).Value = resultadoProcV

linha = linha + 1

Loop

End Sub

Re: VLOOKUP Com váriaveis

Enviado: 21 Out 2020 às 16:20
por BrunoLuiel
Te amo cara kkkkk....Valeu!