Como adicionar uma celula a uma formula já existente?

Question

O procedimento é o seguinte: essa planilha é atualizada todo mês com o volume de vendas de um país. Dai de um mês para o outro pode ser que  seja vendido um produto novo que não conste na somatoria de antes. Dai o codigo adiciona os dados do novo mês e soma com a celula "total novos produtos" (celula L36 ). Por isso, preciso de adicionar ao meu codigo em vba alguma ação que pegue a formula que ja existe (L19+L23+L28) e so some com uma celula 7 linhas abaixo(L36). Dai a formula do codigo depois ficaria L19+L23+L28+L36. Assim eu posso replicala para todos os meses de todos os paises automaticamente acionando meu codigo.
Deu pra pegar um pouco?
Desde ja eu agradeço

 

Answer 1

Sub teste()
VALOR1 = ThisWorkbook.Sheets("Planilha1").Range("L19").Value
VALOR2 = ThisWorkbook.Sheets("Planilha1").Range("L23").Value
VALOR3 = ThisWorkbook.Sheets("Planilha1").Range("L28").Value
VALOR4 = ThisWorkbook.Sheets("Planilha1").Range("L36").Value
ThisWorkbook.Sheets("Planilha1").Range("A5").Value = VALOR1 + VALOR2 + VALOR3 + VALOR4
'L19+L23+L28+L36.
End Sub

Answer 2

Boa tarde, anderson

O problema que quero rodar o programa e, ainda depois, eu possa alterar o valor de uma célula, alterando o valor total. Preciso de um código que preencha com 'L19+L23+L28+L36' e não com os valores de cada célula.

Abs

Answer 3

Option Explicit

Sub teste()

Range("a1").Formula = "=L19+L23+L28+L36"

End Sub

---

Anderson Diniz