nepow,

Bom dia!

Já testou fazer essas atualizações em outros computadores maios robustos? Pergunto isso pelo fato de que pode ser problema de memória da máquina aonde você está executando a atualização. No hora que você carrega para a memória a primeira vez, ainda não havia nada registrado na memória do micro e assim a execução é mais rápida. Na segunda execução, a memória já tem, muita coisa, inclusive os dados da primeira atualização.

Não sei se é exatamente isso. É apenas uma suposição mas... tente.

Oi, Wagner.

Amigo, já sim! Na verdade o meu computador é bastante razoável (i5, 8gb de ram) e nos computadores dos meus colegas, que são um pouco inferiores, tanto a primeira quanto a segunda atualização acabam demorando um pouco mais. Com o detalhe de que a segunda atualização no PC deles demora ainda mais do que no meu.

nepow,

Entendo...

Você pode adotar alguns procedimentos que podem ajudar na descoberta do problema, uma vez que a ajuda à distância fica complexa em razão de que não é possível disponibilizar arquivos grandes e se você colocar apenas pequenos exemplos dos arquivos, pode não ocorrer o problema.

Insira,no início e no fim do código que faz as atualizações, variáveis do tipo Date que possam armazenar a hora atual. Use a função Time para isso. Crie uma variável do tipo Date também para que ela armazena a diferença entre a hora final e a hora inicial do processamento. Exiba esse resultado na barra de status da sua aplicação. Use também o Break Point no depurador e execute conjuntos de comandos para verificar se o VBA está demorando mais em um trecho do que em outro. Com o tempo de processamento calculado e exibido você vai poder saber com precisão quanto está demorando numa primeira execução e também numa segunda.

Seria um código mais ou menos como esse:

Sub TempoGasto()
    Dim HoraInicial As Date
    Dim HoraFinal As Date
    Dim TempoDeProcessamento As Date
    Dim i As Double
    
    HoraInicial = Time
    'Inicio do seu código
    
     'Aqui está todo o seu código de atualização
     
    'Fim do seu código
    HoraFinal = Time
    TempoDeProcessamento = HoraFinal - HoraInicial
    Application.StatusBar = Format(TempoDeProcessamento, "hh:mm:ss")
End Sub