[Função VLookUP]

Olá,

Tenho um arquivo com duas planilhas ("Planilha1" e "Planinha2").

Na planilha1, tem uma tabela "A1:O2" (2 linhas, 14 colunas), sendo a primeira linha o cabeçalho.

Estou tentando inserir um código que atualize o valor de cada célula da linha 2 com um procv com base no valor inserido na célula imediatamente anterior a ela, porém está gerando erro.
O procv busca o valor na planilha2 

Segue código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i, j As Integer
Dim TabelaFonte As Range

i = Target.Column
j = 3
TabelaFonte = Application.Sheets("Planilha4").Range(Cells(3, 119 + j - 1), Cells(2649, 148))

If Not Intersect(Target, Range("B2:O2")) Is Nothing Then
                         
    For j = i + 1 To 14
    Cells(2, j).Value = Application.WorksheetFunction.VLookup(Cells(2, j - 1).Value, TabelaFonte, 2, False)
    Next

End If

End Sub

 

O link do arquivo é o:

https://www.sendspace.com/file/ixo3qd

 

[Atualização automática de filtro]

Olá,

Tenho uma tabela 2x4, sendo a primeira linha o header.

A opção de valores para preenchimento das células no intervalo B2:O2 está disponível em uma lista de validação de dados.

A lista disponível em cada célula varia de acordo com o valor selecionado nas células anteriores. Assim, as opções disponíveis na célula D2 dependem do valor selecionado na célula C2, que depende do valor selecionado na célula B2 e assim sucessivamente.

Gostaria de criar uma macro que:

1- Preencha automaticamente o valor de uma célula conforme o valor escolhido nas células anteriores. Esse valor deve estar previamente previsto como opção na lista de validação de dados.

O arquivo está disponível no link:

https://www.sendspace.com/file/b4wwog