Excel Macro + formula de SOMA

[Tutti Brinquedos]

Boa noite,

Criei uma MACRO e gostaria que o valor que eu colocasse no formulario quando clicasse no botão Salvar ele iria somando valor sem apagar assim quando clica em salvar 

Ja tentei varias fórmulas de SOMA só que não estou conseguindo fazer o valor fixar quando clico em SALVAR e ir acumulando a toda vez que coloco um valor e clico em salvar ele apaga.

 Deixei SALVO fórmula que fiz célula B5

Planilha de Reservas 2019.rar

[Visitante]

9 horas atrás, Tutti Brinquedos disse:

... gostaria que o valor que eu colocasse no formulario ...

Informe em qual célula você vai colocar o valor.

Clique no menu Desenvolvedor / Formulário para você aprender o que é um Formulário em Excel.

 

...quando clicasse no botão Salvar ele iria somando valor sem apagar ...

Iria somando em qual célula ?

 

 

[Tutti Brinquedos]

@osvaldomp
 

Informe em qual célula você vai colocar o valor.

Clique no menu Desenvolvedor / Formulário para você aprender o que é um Formulário em Excel.
Eu criei uma MACRO para botão salvar 

Iria somando em qual célula ?

Célula B5

[Visitante]

7 horas atrás, osvaldomp disse:

... gostaria que o valor que eu colocasse no formulario ...

Informe em qual célula você vai colocar o valor.

 

[Tutti Brinquedos]

3 horas atrás, osvaldomp disse:

Informe em qual célula você vai colocar o valor.

Células > R12, R14, R16, R18, R20 e R22

Assim que apertar SALVAR a somas tem que ficarem na célula B5, B6, B7, B8, B9 e B10

[Visitante]

Se você inserir o valor 10 em R12 então você quer adicionar 10 ao valor existente em B5 ?

Se inserir 50 em R14 então é para adicionar 50 ao valor existente em B6, ...,

por último, se o valor 5 for inserido em R22, então adiciona 5 em B10, em é isso?

[Tutti Brinquedos]

Isso mesmo 
E conforme eu for adicionando mais valores em R12 ele vai somando em B5 e assim vai 

Eu clicando em salvar ele automaticamente manda o valor para as células correspondente 

[Visitante]

 

Sub AdicionaValores()
 Dim c As Range, i As Long
  Union([R12], [R14], [R16], [R18], [R20], [R22]).Copy
  [B5].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End Sub

dica - na sua planilha você colocou 12 vezes o conjunto de textos abaixo, uma para cada mês (ainda bem que o ano tem só 12 meses, né ... ) e essa repetição sugere que há algo de estranho no lay out que você escolheu.....

DESPESAS
Monitor
Manutenção KOMBI
Combustível
Mercado
Reformas e Manutenção
Peças Reposição
TOTAL DE DESPESAS

 

Sugestão: na próxima, coloque aquele conjunto de textos na coluna A, a partir de A2 (uma única vez) e coloque os nomes dos meses na linha 1, a partir de B1. A sua vida será melhor assim       

[Tutti Brinquedos]

Deu certo 
A unica coisa que eu gostaria é que quando eu clicasse em SALVAR os numeros sumia das células R
Por que eles estão somando certinho só que os numeros continuam aperto posso apertar quantas vez quiser em salvar que ele vai somando 

 

 

Sub AdicionaValores()

Dim c As Range, i As Long
  Union([R12], [R14], [R16], [R18], [R20], [R22]).Copy
  [B5].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
  
  Range("R12,R14,R16,R18,R20,R22").Select
    Range("R12").Activate
    
End Sub

 

Adicionei isto só que deve ter algo errado para poder apagar assim que clica em Salvar

[Visitante]

55 minutos atrás, Tutti Brinquedos disse:

... os numeros sumia ... ... quantas vez ...

     

 

Utilize este abaixo no lugar do anterior.

Sub AdicionaValores()
 Dim c As Range, i As Long
  Union([R12], [R14], [R16], [R18], [R20], [R22]).Copy
  [B5].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
  Union([R12], [R14], [R16], [R18], [R20], [R22]).Value = ""
  Application.CutCopyMode = False
End Sub

 

[Tutti Brinquedos]

Boa @osvaldomp
Muitissimo obrigado!!