Vídeo #65 - Aprenda como deixar seu código em VBA muito mais rápido 

Demais esse vídeo, gostaria muito de vê o vídeo sobre tratamento de erros, vc já fez?

Boa noite Fernando. Quando o assunto é performance, eu adoro mexer, explorar e testar. Normalmente, para esse tipo de execução, utilizo a propriedade ScreenUpdating, do objeto Application. Desativo a execução de tela (valor False) e reativo ao final da execução (valor True). Então, resolvi fazer um comparativo desta Solução Nativa x Solução Organic. Seguem abaixo os códigos e o melhor resultado obtido em cada teste: 1) Solução Nativa (ScreenUpdating True/False) Sub teste1() ' Melhor tempo: 2,3516 segundos Application.ScreenUpdating = False tempo = Timer For i = 1 To 50000 Planilha1.Cells(i, 1) = i Next i MsgBox Round(Timer - tempo, 2) Application.ScreenUpdating = True End Sub 2) Solução Organic (Velocidade On/Off) Sub teste2() ' Melhor tempo: 1,11 segundos velocidade_on tempo = Timer For i = 1 To 50000 Planilha1.Cells(i, 1) = i Next i MsgBox Round(Timer - tempo, 2) velocidade_off End Sub Como podem ver, a Solução Organic, chegou a executar com menos da metade do tempo, se comparado com a Solução Nativa. Isso mostra o quanto o código realmente ficou muito bom e o vídeo muito didático. Claro que não parei por ai. Quando comecei a transcrever esse comentário, me veio uma ideia... e se combinasse as Soluções (Navita + Organic)??? Vejam o resultado abaixo: 3) Solução Combinada (Nativa + Organic) Sub teste3() ' Melhor tempo: 1,08 segundos velocidade_on Application.ScreenUpdating = False tempo = Timer For i = 1 To 50000 Planilha1.Cells(i, 1) = i Next i MsgBox Round(Timer - tempo, 2) Application.ScreenUpdating = True velocidade_off End Sub A combinação, chegou a ser ainda mais rápida do que as soluções individuais. Eu fico louco com essas coisas... rs Como foi dito no vídeo, a diferença é mínima, pois o processo é simples. Mas, quando analisamos em ganhos percentuais de tempo, qualquer porcentagem tem um ganho extremamente significativo. Por esse motivo, quis trazer essa comparação, como feedback pelo trabalho e para os inscritos. Mais uma vez Fernando, parabéns pelo trabalho. Forte abraço.

Curtinho 😂😂😂 mas pelo menos vale a pena assistir

Sensacional!

Parabéns, muito obrigado por compartilhar.

Deixando um like e um abraço

Excelente didática e dicas muito boas. Valeu!

Muito eficiente. Obrigada

Fez muita diferença no meu projeto, até então eu usava apenas o ScreenUpDating e Calculation, acrescentando essas demais linhas de código mudou o meu projeto positivamente.

Muito top, temos muita sorte de ter pessoas como você , que dividi seus conhecimentos. Me tira uma dúvida, eu posso fazer esse procedimento dentro da propria macro,vai alterar alguma coisa na velocidade? eu desabilitei no incio de minha macro e habilitei no final. usei diretamente o application sem usar o with. se eu fizer dessa forma que vc fez ,fazendo a macro de velocidade separada , a minha macro vai ficar mais rápida?

Algo que observei tb que impacta bastante no tempo é evitar ficar "catando milho" tratando célula por célula. Sempre q possível tratar um intervalo grande de uma única vez

Ganhou mais um INSCRITO. Cara eu uma planilha de análise de loterias, quando eu criei ela em 2015 levava cerca de 9:00 horas para executar uma análise com 100mil combinações, depois de um tempo consegui otimizar e o tempo caiu para uma média de 3 horas minutos, ai fiz outra otimização e o tempo caiu para uns 35 minutos, agora vou implementar suas dicas e ver o tempo ganho na execução. Parabéns e obrigado pelas dicas...

Tenho planilha que é um mix de VBA com fórmulas do Excel. Quando colocar isso vai parar afetar de maneira negativa?

Show! É sempre bom à execução ser rápido. Tenho um i7 com 16 de RAM, igual ao seu e, foi top. Parabéns, vou te seguir. Obrigado!!! AT. O fundo do VBA escuro, dificulta muito a visualização, pense nisso, abraço!

23:00 o usuário sempre ferrando com o programador kkkk

olá Fernando. Legal essas dicas. Você sabe dizer se é possível manipular threads no VBA para trabalhar de forma assincrona?

Boa tarde, Fernando. Uma dúvida, se eu tiver várias abas de planilhas conectadas nos cálculos, seria possível "travar" o cálculo apenas de uma aba específica, ou seja, em quanto o meu código estiver rodando, tornar o cálculo manual apenas de uma aba e não de todas?

Bom dia Professor, eu tenho uma macro que cria um csv da base de dados e o Power Query faz a leitura, assim eu ganho performance. Ao final do código eu deleto o csv e o código é executado antes da atualização do Power Query terminar. Tem como esperar a atualização das pivot terminar para deletar o csv?

Para cada macro tem que fazer essa código?

Olá, USE array e terá mais velocidade ainda. att