Somar valores de uma coluna com critério

2024 - VBA & Macros

Post Recente por Squat 7 anos atrás

6 Posts

3 Usuários

0 Reactions

1,401 Visualizações

RSS

Squat

(@squat)

Posts: 43

Eminent Member

Topic starter

Boa noite pessoal,

Estou tentando somar os valores da coluna B com base nas datas da coluna A ambas na planilha "BASE" e colocar o resultado dessa soma em uma célula específica "E2" na planilha "FINAL".
A soma deve ser 172, o que corresponde ao período de jan/18 a ago/18 e quando tiver dados de set/18 a soma deve computá-lo também e assim sucessivamente, sempre somando os valores do ano.
Problema é que a parte do código para somar não está dando certo, será que alguém poderia me ajudar.

Segue o arquivo com o código.

Postado : 27/11/2017 5:38 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Squat,

Boa Noite!

Veja se é assim.

dados.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 27/11/2017 6:17 pm

Osvaldomp

(@osvaldomp)

Posts: 857

Prominent Member

=SOMARPRODUTO((ANO(BASE!A2:A25)=ANO(F2))*BASE!B2:B25)

Osvaldo

Postado : 27/11/2017 6:41 pm

Squat

(@squat)

Posts: 43

Eminent Member

Topic starter

Boa tarde Wagner e Osvaldo,

Obrigado pelo retorno, ambas soluções funcionaram.

Fiquei só com uma dúvida (no caso do código do Wagner), no loop for i = 14, teria como esse valor (que corresponde a linha) ficar variável, pois quando chegar a maio/2019 por exemplo, a soma vai considerar desde janeiro/2018.

Grato pelo retorno.

Postado : 28/11/2017 12:55 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Squat ,

Boa tarde!

Sim. Você pode deixar a linha como variável. Tem várias maneira de fazer isso. Uma dela é, por exemplo, você inserir no código, antes de começar o for, um InputBox e solicitar ao usuário o número da linha que ele deseja iniciar a contagem.

Outra maneira pode ser você inserir o número em uma célula qualquer e pegar o valor da célula pelo código.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 28/11/2017 2:04 pm