[VBA] O poder das matrizes - Deixe seu código mais rápido e performático 

Muitíssimo obrigado, Carlos

Fala galera Consegui a estrutura de calcular várias colunas na mesma variável do redim e cálculos como somases e cont.ses. código exemplo é na mesma planilha. Vlw Na parte onde informa onde os dados deverão ser descarregados, deverá constar o mesmo número de colunas na variável, segue exemplo: Sub DiretoNaMatriz() Dim base As Variant Dim mes As Variant Dim nLin As Long, i As Long Dim tempo As Double tempo = Timer base = Range("A1").CurrentRegion.Value 'nLin = Range("A1").CurrentRegion.Rows.Count nLin = UBound(base, 1) ReDim mes(1 To nLin, 1 To 5) As Variant 'cabecalho das variaveis mes(1, 1) = "Ano" mes(1, 2) = "mes" mes(1, 3) = "diasemana" mes(1, 4) = "dianum" mes(1, 5) = "nomemes" For i = 2 To nLin mes(i, 1) = Year(base(i, 2)) mes(i, 2) = Left(MonthName(Month(base(i, 2))), 3) mes(i, 3) = Format(base(i, 2), "ddd") mes(i, 4) = Format(base(i, 2), "dd") mes(i, 5) = Format(base(i, 2), "mmmm") Next i 'Range("A1").CurrentRegion.Columns(31).Value = mes Range("AE1:AI" & nLin).Value = mes tempo = Timer - tempo MsgBox tempo End Sub E para cálculo de fórmulas deverá aplicar um set range dos dados que quer calcular. Segue exemplo: Sub calculoNaMatriz() Dim base As Variant Dim total As Variant Dim nLin As Long, i As Long Dim tempo As Double Dim busca_veiculos As Range Dim busca_feridos As Range tempo = Timer base = Range("A1").CurrentRegion.Value Set busca_veiculos = Range("Y:Y") Set busca_feridos = Range("X:X") 'nLin = Range("A1").CurrentRegion.Rows.Count nLin = UBound(base, 1) ReDim total(1 To 1, 1 To 2) As Variant total(1, 1) = WorksheetFunction.Sum(busca_veiculos) total(1, 2) = WorksheetFunction.Sum(busca_feridos) Range("AK1").Value = "total_veiculos" Range("AL1").Value = "total_feridoss" Range("AK2:AL2").Value = total End Sub

Olá, nao entendi sua questão

Olá, precisamos ver o seu código para entender o motivo do erro

Exato

Em nosso curso temos alguns projetos com banco em access, mas nenhum deles é um controle de estoque, no entanto todos eles te dão base suficiente de conhecimento para criar o seu próprio controle de estoque

Me mostra com resolver isso em 1 ou 2 linhas, fiquei curioso

@@DATA7Academy O princípio é o mesmo, usando as boas práticas de uso do Excel, procurar sempre usar a memória que é mais rápido, como você utilizou, mas a diferença é fazer esse trabalho sem uso de loop e sim rodar isso em bloco, desta forma será instantâneo. #FICAADICA

@@carlosfuno8144 entendi, mas a proposta do vídeo nao era essa e sim fazer uma comparação entre preencher direto na célula e usar a memória, e para que a comparação seja justa eu usei o loop em ambos os casos.

Para esse caso específico o screenupdating não é relevante

Mas ajuda mto também