Como deixar Macro mais RÁPIDA e Ganhar 99% em Performance

[@brilhosombrionft]

Ver o resultado inicial para o resultado final foi incrível!

[@ExcelOnlineBrasil]

Não é preciso sofrimento para melhorar a performance de sua planilha, para deixar Macro mais rápida vou te ensinar 4 simples passos muuuito eficientes.😉

[@erwinsteigleder4739]

FANTÁSTICO!!!!

[@pedrofim2496]

Achei que o 99% do título era só pra chamar a atenção. Num é que diminuiu esse tanto mesmo?! Muito massa.

[@fcunhapmk]

Eu não amei, eu adorei. Muito obrigado pelo conhecimento!

[@ViniciusSilva-7]

Sensacional.

[@wascarsilveira1]

Caramba massa demais, eu pensando que sabia alguma coisa, passando é vergonha kk Top, sim bora aprender elevar o nível.

[@victormatos6853]

A do cálculo manual eu tinha descoberto sozinho, mas o restante achei sensacional, principalmente a última dica

[@ExcelOnlineBrasil]

Feliz em ter ajudado Victor, desempenho de macros é sempre algo para se considerar no desenvolvimento de um recurso. Abs.

[@maiconamaral7047]

Sensacional! Amigo, eu fiz um sistema Frente de Caixa e Gestor de Estoque para minha mercearia e depois de 4 mil vendas registradas o delay pra salvar uma nova venda já estava em 33s, isso quando computador estava dedicado somente ao sistema sem mais nada aberto... O screen updating já estava ativo, mas a diferença maior foi desativar os cálculos e os eventos... De 33s passou para apenas 6s e isso pode melhorar mais ainda eliminando os selects como bem disse em sua última dica, porém isso no momento não vou fazer porque preciso avaliar bem o código para não deixar nada inoperante. Agradeço imensamente a sua dica gratuita e sucesso ao seu canal!

[@carlosmiguel9733]

Muito bom, não sabia que retirar o ".select" acelera a execução do código. Parabéns pela excelente didática. Estou inscrito.🎯

[@HugoCesar29]

Que didática incrível! Fiquei muito surpreso com a ultima dica!

[@joseadrianosoaressantos6611]

Ótimo para explicar. Bom professor. Sou fascinado por Excel

[@jersonblender]

MUITO TOP! Tenho uma planilha que em um PC ela roda meu código rapidinho, mas quando abrir em outro pc estava demorando uns 20seg pra gravar os dados da tela para a planilha, ao colocar esses códigos tá executando em 3seg. Show de bola. O link desse vídeo está salvo no código rsrsrs. valeu!

[@marceloforadini650]

Excelente!!

[@luciamariaandrade956]

Muito boa explicação , eu só não soube fazer a eliminações do select no meu código. ainda sou iniciante

[@andremattos186]

Sensacional!!! 👏👏

[@Electriwalll]

Muito show

[@lucianonunes4623]

Show de Velocidade!🚀

[@Kevin_Murilo]

Vídeo muito bom

[@r.mendesdemendonca1747]

Show, professor, obrigado pela dica.

[@ExcelOnlineBrasil]

Opa, conta comigo. Feliz em ajudar. Um abraço😉

[@wellingtonribeiro587]

Atualização de tela e Eventos eu já tirava, mas o calculo automático vai mudar muito minha planilha que é cheeeeia de fórmulas kkkk Muito obrigado. Ganhou um inscrito

[@edalmircruz4024]

Descobrir esse canal hoje de achei muito top demais

[@moiseshonorato7825]

Excelente

[@odairback7991]

sensacional!!!, PARABÉNS POR COMPARTILHAR CONHECIMENTO

[@luizfaresende]

Sensacional. Parabéns e obrigado pela dica.

[@daniellerocha6906]

Que vídeo maravilhosoooo!!!! Obrigadaaaaa

[@ExcelOnlineBrasil]

Obrigado pelo feedback Dani.😉

[@sulianofernandes780]

Excelentes dicas, estou começando a aprender sobre VBA e essas suas dicas são top! Vou aplicá-las em um planilha que já estava me dando esse problema de tempo de execução e te dou um retorno!

[@ExcelOnlineBrasil]

Obrigado pelo feedback Suliano. Feliz em ajudar. Um abs😉

[@Marcelo-qu5qi]

Incrível

[@danielsantos4521]

Minha nossa, vc é demais, parabéns e muito obrigado

[@ExcelOnlineBrasil]

Obrigado Daniel. Feliz em ajudar!😉 Abs

Muito bom, valeu pela dica!

[@ewertonjuniorbatistavieira6506]

Sensacional! Adorei as dicas!!

[@ExcelOnlineBrasil]

Obrigado, feliz em ajudar Ewerton. Um abs!😉

[@franciscodaschagasrocha9963]

Sensacional !!!!... Ótima dica, valeu mesmo!!!!!👍👍👍👍

[@ju_santos]

Formidável!

[@joseadrianosoaressantos6611]

Ótima explicação. Parabéns!!. Você meu problema, porque minha planilha estava muito lenta por conta de macros. Obrigado!!!

[@luccasbraga1930]

Irmão, BIZARRO o tempo que tu me salvou! MUITO obrigado! Tmj!

[@ExcelOnlineBrasil]

Feliz em ajudar Luccas. Abração!!!

[@opauloso]

Obrigado! Ganhou mais um inscrito!

[@isacvs]

Essa foi show hem.

[@ExcelOnlineBrasil]

Obrigado Isac, feliz em ajudar. Abs.😉

[@juanore3036]

Cara vc é um mestre. Que didática maravilhosa para explicar. Muito obrigado!

[@marciohonoratopereira7282]

Caramba!!! DICÃO!!! AULÃO!! Muito obrigado! Foi direto ao ponto e explicou muuuuuuito bem!

[@flavionunes9300]

Perfeito

[@jaojjaaoojjjaaaooo]

gênio

[@marcomonteiro5661]

SHOW!

[@marcelocabral5096]

Excelente video, ganhou mais um inscrito. Obrigado por compartilhar seus conhecimentos e dicas

[@ExcelOnlineBrasil]

Feliz em ajudar Marcelo, e parabéns pelo interesse em aprimorar seus conhecimentos. Abs

[@PedroRodrigues-mg3fv]

cara, puta merda queria vc na minha vida QUE AULA rápida mas PRODUTIVA PRA KRL. Parece até que vc usou os truques pra fazer o vídeo tmb kkkk

[@diretaautoparts5643]

por favor, estou com erro nessa linha Cells(Rows.Count, 13).End(xIUp).Offset(1, 0) = tempoFIM - tempoINI e não aprece o calculo de tempo.

Muito boa a aula, professor! Gostaria de tirar uma dúvida se possível, teria como em quanto a macro rodar habilitar o cálculo manual apenas de uma aba específica da planilha, caso eu tenha várias abas contendo planilhas e uma referenciando a outra? Um forte abraço.

[@FabianoDorflex]

onde coloco isso em uma planilha já pronta?

[@Vagnerkira]

É possível fazer o Excel abrir um software e dentro dele abrir as telas que eu preciso usar no dia dia ?

[@jscopa710]

SHOWWWWWWW!!!!!

[@JoanesBH]

Muito obrigado! Dicas Sensacionais!!!! Porém eu ainda tenho problemas. Uso o Office 365 e, para formatar, preciso excluir cerca de 200 colunas de forma alternada dentro da planilha de dados (sem fórmula). O Excel demora cerca de 4 minutos para realizar a tarefa. tem alguma dica para este caso?

[@ExcelOnlineBrasil]

Olá Joanes, tudo bom? Muito grato em ajudar.😉 Por favor, envia esse arquivo, deixa eu ver se podes melhorar alguma coisa nessas exclusões, uma vez que não há formulas acredito que poderia ser executado de modo mais rápido. Quantas linhas estão ocupadas nesta tabela? [e-mail]

[@TheWAGNER3994]

bom dia... tem como fazer comparacoes entre duas cel na mesma lin e señdo ambas iguais selecionar a segunda com valor maior na mesma col ?

[@ExcelOnlineBrasil]

Olá WO.SANTANNA SANT"ANNA . Desculpe, não consegui mentalizar corretamente a situação. Você mencionou das células serem ambas iguais, porém depois disse de uma ter valor maior que a outra. Pode exemplificar melhor por favor? Um abraço.👍

[@TheWAGNER3994]

@@ExcelOnlineBrasil boa noite... a minha ideia e copiar dados de uma lista criando uma nova .sem que tenha repeticoes na mesma linha... comparacoes dentro de uma plan

[@eliezerbatistadeoliveira6303]

Eu criei um banco de dados usando o Userform. Esses procedimentos deixariam o programa rodando mais leve?

[@ExcelOnlineBrasil]

Olá Eliezer. É muito relativo o tamanho do ganho, pois depende muito do código que está utilizando. Caso haja um loop, é mais provável que melhore a velocidade de execução. Se houver "seleções" de células ao longo da macro, também pode haver um ganho na remoção dessas seleções. Obrigado por acompanhar o canal.👍 Um abraço.😉

[@nilsonsantos3908]

Professor, embora eu tenha utilizado todos os códigos abaixo para desabilitar a tela e a atualização de eventos durante a execução do código (reativei no final), a tela pisca ao final da execução da macro. Como resolver isso? Sub Ordenar_TabelaCartao() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.EnableAnimations = False Application.DisplayStatusBar = False Application.Calculation = xlCalculationManual shtTabelas.Activate ActiveSheet.ListObjects("tblCartao").Range.Select ActiveSheet.ListObjects("tblCartao").Sort.SortFields. _ Clear ActiveSheet.ListObjects("tblCartao").Sort.SortFields. _ Add2 Key:=Range("tblCartao[SITUACAO]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, CustomOrder:="Em andamento,Encerrada", DataOption:= _ xlSortNormal ActiveSheet.ListObjects("tblCartao").Sort.SortFields. _ Add2 Key:=Range("tblCartao[INICIO DO PAGAMENTO]"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal With ActiveSheet.ListObjects("tblCartao").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Call Renumerar_TabelaCartao ActiveSheet.ListObjects("tblCartao").HeaderRowRange(1).Select shtpainel.Activate Range("Ano").Select Application.DisplayStatusBar = True Application.EnableEvents = True Application.DisplayAlerts = True Application.Calculation = xlCalculationAutomatic Application.EnableAnimations = True Application.ScreenUpdating = True End Sub Sub Renumerar_TabelaCartao() Dim linha As Integer Dim conte As Integer Dim vazio As Integer linha = 5 conte = 1 shtTabelas.Activate Cells(5, 25).Activate Do Until shtTabelas.Cells(linha, "Y") = "" If ActiveCell "" Then shtTabelas.Cells(linha, "X") = conte linha = linha + 1 conte = conte + 1 End If ActiveCell.Offset(1, 0).Activate Loop End Sub

[@jscopa710]

Muito bom!!! No trabalho tenho várias planilhas com Macros ... e uma coisa BEM CHATA é que, se incluo uma coluna ou linha, tenho que ir em todas as Macros e mudar as Matrizes!!! ... Alguma solução para isto?? ... Obrigado!!!

[@ExcelOnlineBrasil]

Feliz em ajudar. Voce pode utilizar um codigo que vai identificar qual a ultima linha preenchida na coluna que especificar, por exemplo : Range("a" & Rows.Count).end(xlUp).row Abs😉

[@jscopa710]

@@ExcelOnlineBrasil, linha nem é tão grave, já que dou sempre uma boa margem. No caso de coluna parece que achei uma solução. Ao invés de colocar a matriz no código, vou colocar automática numa célula e usar este código: Application.Goto Reference:="INDIRECT(R1C9)" . Essa semana vou testar.

[@JOSEARIELMODESTO]

a dica é sensacional porem quando desabilito o calculo automático minhas contas não saem certas

[@bilicacko]

Yeees!!!

[@MrTedtage]

Muito bom, mesmo. Confesso que achei que em algumas das etapas, iria envolver arrays. Kkkkk

[@ExcelOnlineBrasil]

rs...boa pedida, arrays são poderosos, mas nem sempre são a melhor solução, nesse caso, foquei na performance sem complicar ;) Um abraço

[@r.mendesdemendonca1747]

Professor, esto quebrando a cabeça em classificar um combobox (A Z), já vi vários vídeos e não encontrei nada que desse resultado, na verdade um dos vídeos diz que por ter um laço em todos os itens ou linha demora um pouco, acaso tem alguma coisa que possa ajudar?

[@ExcelOnlineBrasil]

Onde está a origem deste combobox? Você popula ele via loop?

[@r.mendesdemendonca1747]

@@ExcelOnlineBrasil Sim por um loop TotalItens = Controls(Objeto).ListCount - 1 For I = Inicio To TotalItens For X = 1 To TotalItens If Controls(Objeto).List(I) > Controls(Objeto).List(X) Then Temp = Controls(Objeto).List(X) Controls(Objeto).List(X) = Controls(Objeto).List(I) Controls(Objeto).List(I) = Temp End If Next X Next I Exit Sub Só que não funciona.

[@alinecardoso9668]

Olá pessoal :) Alguém sabe se macro pode dar bug no Excel? Meu formatar como tabela não funciona mais e nem a Microsoft conseguiu me ajudar, eu compartilho a conta com a minha irmã e o dela está normal. Obrigada.

[@ExcelOnlineBrasil]

Olá Aline. Já tentou remover o office, reiniciar a maquina e reinstalar? Ou efetuar a reparação da instalação? Isto pode ajudar.😉 Nunca vi uma macro causar problemas no excel, mas ja vi macros que por exemplo, desabilitavam a tecla "delete" por algum motivo, mas que depois quando nao era mais necessario desabilitar, o pessoal esquecia de remover o codigo. Aí fica parecendo um problema do excel, mas na verdade ele está apenas seguindo a programação. 👍

[@alinecardoso9668]

@@ExcelOnlineBrasil Olá,obrigada, tentei a reparação e não deu certo, mas vou tentar tirar o Office e instalar novamente, ouvi que também poderia ser porque eu instalei o Windows 11, vou tentar de tudo aqui rs. Muito obrigada pelo retorno 🙂.

[@fernandomarcandali6488]

Tinha uma base que demorava 2 minutos e meio pra rodar. Agora está rodando em menos de 1 segundo kkkk

[@ExcelOnlineBrasil]

Excelente notícia Fernando. Obrigado pelo feedback. O céu é o limite no VBA.😉 Um abraço

[@weslanalves4690]

coloquei os códigos e deu tela azul sksksksk que odiooo

[@ExcelOnlineBrasil]

Poxa vida Weslan. Rapaz, uma tela azul na hora de testar um código é desanimador mesmo. Mas é uma oportunidade para tentar novamente, e gerar mais aprendizado. Continue com essa garra. Abraço👍

[@Harry8360]

Public Sub ControleGMA_BarraProgresso_FrmProgresso() Dim Total As Long Dim x As Long Dim Largura As Long Dim Percentual As Double Total = 10000 With UserFormControleMCProgresso Largura = .Lbl_Evolucao_FrmControleMCProgresso.Width .Show End With For x = 1 To Total Percentual = x / Total With UserFormControleMCProgresso .Lbl_Evolucao_FrmControleMCProgresso.Width = Percentual * Largura .Lbl_Valor_FrmControleMCProgresso.Caption = Round(Percentual * 100, 1) & "%" .Repaint ' Forçar a atualização da tela DoEvents ' Permitir que a interface seja atualizada End With Next Unload UserFormControleMCProgresso End Sub