0

Preciso atualizar algumas células na minha planilha assim que uma atualização na tabela da Power Query é feita, mas as células só atualizam a segunda vez que eu executo o código.

Sub AtualizarDadosPowerQuery()
    ActiveWorkbook.Connections("Consulta - Tabela3").Refresh
    Sheets("Relatorio").Range("B12").Value = Sheets("CNPJ").Range("D2").Value
    Sheets("Relatorio").Range("T12").Value = Sheets("CNPJ").Range("P2").Value
    Sheets("Relatorio").Range("B15").Value = Sheets("CNPJ").Range("S2").Value
End Sub

A aba "Relatorio" é a aba em que os valores devem ir e não atualiza de primeira.
A aba "CNPJ" é a aba em que os valores precisam ser buscados, ela sim atualiza de primeira.

1 Resposta 1

1

É necessário definir que o .Refresh não ocorra em modo background (atualização em segundo plano).

mas as células só atualizam a segunda vez que eu rodo o código

Considerando que a atualização em background está ativada, o código dispara o .Refresh e faz a cópia das células predefinidas antes de ter concluído a atualização.
Por isso que, ao executar o código pela segunda vez, os dados estão sendo copiados corretamente, pois agora ele já concluiu o primeiro .Refresh e está com os dados atualizados para fazer a cópia. Mas é provável que ele ainda esteja executando a segunda solicitação de .Refresh, mas não se percebe o "erro" dessa vez.

Opção 01:
Desative a atualização em background (atualização em segundo plano), em Consulta/Propriedades/Uso/Controle de Atualização. Telas e detalhes nos links abaixo, de respostas já existentes.

Opção 02:
Tempo de atualização é bem relativo, depende de cada máquina, arquivo, conexão etc. Avalie com atenção se é aplicável no seu caso. É possível definir um atraso para o VBA, entre o .Refresh e as próximas linhas, que copiam os valores. O código abaixo deixa um intervalo de 5 segundos:

Sub AtualizarDadosPowerQuery()
    ActiveWorkbook.Connections("Consulta - Tabela3").Refresh

    Application.Wait (Now + TimeValue("0:00:05"))

    Sheets("Relatorio").Range("B12").Value = Sheets("CNPJ").Range("D2").Value
    Sheets("Relatorio").Range("T12").Value = Sheets("CNPJ").Range("P2").Value
    Sheets("Relatorio").Range("B15").Value = Sheets("CNPJ").Range("S2").Value
End Sub

Veja também:

1
  • Muito obrigado, funcionou!
    – LuisHF
    3/08/2021 às 14:26

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 .