Consegui resolver, criei 2 colunas aleatorias entre as tabelas a qual eu criava a TD, assim dessa forma, criei uma unica TD e na organização dela eu p...

Não dá para juntar as bases, porque a idéia é tirar a diferença dos valores de uma para a outra... Se você ver o anexo conseguiria entender melhor, eu...

Amigos, consegui resolver sozinho, bastava adicionar um contador... Correção: Sub difvbcontabil_Matriz() Dim lUltimaLinhaAtiva As Long Sheets(&...

Galera, bom dia, Consegui ajuda procurando na internet, segue o código funcionando perfeitamente. Dim ul As Double 'Dim i As Long ul = 0 ...

Wagner, boa tarde, Muito obrigado pela ajuda! Entendi ambos os códigos, porém estou usando a seguinte lógica, veja: Acredito que eu não especifiquei ...

Wagner, bom dia, Essa solução funcionou, porém a base que estou lidando, possui mais de 20 mil linhas, com esse if, fica bastante lento... Não teria ...

Option Explicit Sub CopiarFórmula() Dim i As Long Dim UltimaLinha As Long UltimaLinha = Sheets("Planilha1").Cells(Cell...

Mesmo colocando antes do código onde seta os filtros, o erro persiste, ele seta os filtros do meu código, mas na hora de setar o somatório, ele faz da...

Sub SomaDaColunaAV_Matriz() 'Dim ul As Double 'Dim i As Long 'ul = 0 Dim DLin As Long 'da linha 3 até a ultima linha preenc...

Mesmo com essa especificação no código o erro persiste... Bizarro. Total da macro: 1810448,4 Total do excel: 1810657,89

O problema é por conta do arredondamento, tentei utilizar o 'ul = round(ul, 2)' mas não funcionou... O excel de forma automatica arredonda os valores ...