Adicionando números de uma coluna a outra e tendo o novo número, substitua o número antigo na segunda coluna usando um botão no Excel

Question

Tão bonito quanto o título diz. Eu tenho uma tabela para um orçamento que estou trabalhando e estou querendo um botão para que cada semana quando eu receber o pagamento eu possa clicar nele e ter o pagamento já distribuído adicionado ao conjunto de dinheiro alocado para cada despesa.

Clique em Minha tabela

Então eu tenho todos os cálculos realizados para distribuir o pagamento semanal sobre as despesas, mas eu não consigo descobrir como codificar o botão para fazer o que eu estou precisando.

Ok, basicamente eu preciso de todos os números de D6 a D48 adicionados aos números adjacentes de E6 a E48. No entanto, também estou precisando que o novo número apareça nessa coluna, como se estivesse adicionando o novo valor a ele toda vez. Ou seja, E6 = E6 + D6 e cada vez que você pressiona o botão, basta adicionar o que estiver na coluna D na coluna E.

Desculpe por divagar e espero que isso faça sentido.

Obrigado por qualquer ajuda antecipadamente

Peter

    

Answer 1

Ok, então consegui fazer o código funcionar com uma grande ajuda de Scott. Obrigado pela sua entrada muito apreciada. Aqui está o código que eu criei:

Sub CommandButton1_Click ()

Dim x As Integer
Dim y As Double

Range("E2").Value = Range("E2").Value + 1

For x = 6 To 48

    y = Range("E" & x).Value

    Range("E" & x).Value = y + Range("D" & x).Value

Next x   

End Sub

Eu também adicionei um contador acima de onde eu coloquei o botão, apenas para saber se já o pressionei durante essa semana ou não.