Página 1 de 1

Adicionar linha e fazer a soma [RESOLVIDO]

Enviado: 07 Jun 2021 às 06:48
por djsa79
Bom dia,

O que pretendo é:
Quando carrego no botão adicionar ele copia as células E9:G9 para D21:F21 (isso já está a fazer).
Quando carregar novamente em adicionar quero que adicione os valores novamente E9:G9 mas para as células D22:F22 ou ficar nas mesmas células e somar sempre que adiciono.

Alguém me pode ajudar?
Imagem

Re: Adicionar linha e fazer a soma

Enviado: 07 Jun 2021 às 13:57
por osvaldomp
Olá, @djsa79 .
Veja se atende: o código abaixo irá adicionar os valores de E9, F9 e G9 em D21, E21 e F21 respectivamente.
Código: Selecionar todos
Sub Adiciona()
 Dim k As Long
  For k = 4 To 6
   Cells(21, k) = Cells(21, k) + Cells(9, k + 1)
  Next k
End Sub

Re: Adicionar linha e fazer a soma

Enviado: 08 Jun 2021 às 04:33
por djsa79
Muito bom, está funcionar