Adicionar números de uma coluna a outra e fazer com que o novo número substitua o antigo na segunda coluna usando um botão no Excel

Question

Assim como o título diz. Tenho uma tabela para um orçamento em que estou trabalhando e quero um botão para que a cada semana, quando receber o pagamento, eu possa clicar nele e ter o pagamento já distribuído adicionado ao conjunto de dinheiro alocado para cada despesa.

Clique para minha mesa

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

Ok, basicamente 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 nesta coluna, como se estivesse apenas adicionando o novo valor a cada vez. ou seja, E6 = E6 + D6 e cada vez que você pressiona o botão, ele apenas adiciona o que está na coluna D na coluna E.

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

Agradeço por qualquer ajuda desde já

Peter

Answer 1

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

Sub CommandButton1_Click() privado

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   

Finalizar sub

Também adicionei um contador acima onde coloquei o botão, só para saber se já apertei naquela semana ou não.