joaobatistafh

Pessoal, fiz um código no VBA e usei a ActiveCell, mas dá um erro para o que eu quero, pois quando eu coloco a fórmula em uma célula e puxo pra baixo, a fórmula faz o cálculo com as células selecionadas e não com ela mesma. Deu pra entender? Meu código: Function SomarAbaixo() Dim soma As Double Dim coluna As Integer Dim linha As Integer Dim linhaativa As Integer Dim colunaativa As Integer 'Coluna S = 19 coluna = 19 linha = ActiveCell.Row SomarAbaixo = 0 linhaativa = ActiveCell.Row + 1 colunaativa = ActiveCell.Column If Cells(linha, coluna) = 1 Then linha = linha + 1 While Cells(linha, 19) = 2 SomarAbaixo = Cells(linhaativa, colunaativa) + SomarAbaixo linha = linha + 1 linhaativa = linhaativa + 1 Wend End If End Function Exemplo.xlsx

O resultado deve aparecer na caixa em amarelo. A célula B1 vai somando as que estão embaixo dela enquanto o valor da coluna A seja igual a 0.

Olá, pessoal, quero fazer uma soma que é o seguinte: se na coluna A o valor for 0, então somar B, na mesma linha, até que na coluna A encontre o valor 1. Coloquei em anexo uma imagem do exemplo para entender melhor. Em amarelo deve ser o resultado da soma. Acredito que só resolva com VBA, mas não sei programar nessa linguagem.. Obrigado desde já!