Soma dentro de célula sem sobrepor valores existentes.

Question

Tenho uma dúvida.

Preciso fazer uma soma dentro de uma célula apenas digitando um número e este é somado automático aos valores já existentes na célula.

exemplo: dentro da célula tenho o valor 3, eu venho e digito 1 nessa célula e esse 1 é somado ao 3 e apresenta na célula o numero 4

e assim sequencialmente, sempre que eu digitar o 1 ele ser somado ao valor já na célula sem que eu tenha que digitar o +

Desde já agradeço.

Jânio Bitu

Answer 1

Olá Jânio!

Isto seria um procedimento pouco convencional e não recomendaria ele. Com recursos nativos não é possível fazer isso, só dá para fazer através de programação no VBA. Você teria que definir um lugar para guardar o valor da célula e aplicar um código no evento change da planilha.

Por exemplo, para célula A1

1. Crie um novo nome definido no Excel (CTRL+F3) chamado vAnteriorA1, e no campo de fórmula coloque: =0
2. Aperte ALT+F11 para abrir o VBE, e localize o módulo da planilha desejada e no campo de codigo cole o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim dA1 As Double

On Error GoTo fim

dA1 = Evaluate(Excel.Names("vAnteriorA1").Value)

Application.EnableEvents = False

If Not Intersect(Target, Range("A1")) Is Nothing Then

Range("A1").Value = Range("A1").Value + dA1

Excel.Names("vAnteriorA1").Value = Range("A1").Value

End If

fim:

Application.EnableEvents = True

End Sub

3. Feche o VBE e teste a célula A1 digitando os valores.