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