Este fórum está sendo desativado

[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?

[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

[djsa79]

Muito bom, está funcionar