Fazer Isto Em Excel

[Guest - Diego -]

Olá, gostaria de saber qual o código que devo usar no VB para:

Quando o usuário digitar um número em uma célula que já contém um valor, esse número seja somado ao valor já existente e o resultado seja mostrano na célula.

Por exemplo, a célula A5 possui o valor 50.

Eu seleciono a célula e digito 30.

Quando dou "enter" aparece o valor total 80 na célula A5.

Grato pela atenção.

Diego.

[RenatoMejias]

Movendo para VBA.

[sange]

isso realmente tem que ser tudo numa unica celula ???

caso contrario poderia usar um bt que somase os valore ...!!

faloww..

[Graymalkin]

Você pode fazer isso através do evento Change do objeto Worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
    Static valorAnterior As Integer
    
    If valorAnterior = 0 Then
        valorAnterior = Target.Value
    Else
        novoValor = Target.Value + valorAnterior
        valorAnterior = 0
        Target.Value = novoValor
    End If
End Sub

Certo? ;)

Graymalkin

[Guest mfrigerio]

OLÁ AMIGO

VEJA ESSE CÍDOGO

Private Sub Worksheet_Change(ByVal Target As Range)

Static valorAnterior As Integer

If IsNumeric(Target.Value) Then

If valorAnterior = 0 Then

valorAnterior = Target.Value

ElseIf Target.Value = "" Then

Target.Value = ""

Else

novoValor = Target.Value + valorAnterior

valorAnterior = 0

Target.Value = novoValor

End If

End If

End Sub

mfrigerio