-3

Estou aprendendo VBA e em uma sub onde tento atribuir o comando abaixo:

=PROCX([@[Empresa Emitente]];FORNECEDORES[Empresa Emitente];FORNECEDORES[DEPART];"";0;1)

Sub EXTRAIR_DEPART_UPDATE()

    Dim lastRowNoClear

    lastRowNoClear = Range("A16").End(xlDown).Row
    
    For i = 16 To lastRowNoClear
    
        Range("Q" & i).Select
        If Cells(i, 17) = "" Then
            Range("Q" & i).Value = "=PROCX([@[Empresa Emitente]],FORNECEDORES[Empresa Emitente],FORNECEDORES[DEPART],"""",0,1)"
        End If
        
    Next i
    
End Sub

Dá o seguinte erro #NOME? e percebi que o VB coloca um @ depois do sinal de =

Poderiam me dizer o que eu estou fazendo de errado?

1
  • Recomendação é não deixar tudo em caixa alta link. Commented 16/07/2021 às 13:53

1 Resposta 1

0

Como corrigir uma #NAME?

Na pergunta em específico, acredito que o erro esteja na declaração da fórmula dentro do VBA, pois ele não irá reconhecer o comando PROCX em pt-br.

Tente:

Range("Q" & i).Value = "=XLOOKUP([@[Empresa Emitente]],FORNECEDORES[Empresa Emitente],FORNECEDORES[DEPART],"""",0,1)"

Ao invés de:

Range("Q" & i).Value = "=PROCX([@[Empresa Emitente]],FORNECEDORES[Empresa Emitente],FORNECEDORES[DEPART],"""",0,1)"
0

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .