Código para somar valor

2024 - VBA & Macros

Post Recente por gtsalikis 10 anos atrás

2 Posts

2 Usuários

0 Reactions

622 Visualizações

RSS

Renato1971

(@renato1971)

Posts: 1

New Member

Topic starter

Preciso resolver o seguinte problema:

- Usuário vai atribuir um valor qualquer a celula A1
- A celula A2 vai somar o valor de A1 ao valor existente na celula A2
- Em seguida zerar o valor da celula A1.
- Esse ciclo só vai acontecer novamente quando o usuário inserir novo valor à celula A1.

Alguem pode me ajudar?

Postado : 20/04/2015 5:38 pm

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

O código que vc pediu é esse:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Address = "$A$1" Then
    Range("A2").Value = Range("A2").Value + Range("A1").Value
    Range("A1").ClearContents
End If

Application.EnableEvents = True

End Sub

Ele deve ser colocado na planilha (não coloque em um módulo).

Se não for o que vc queria, ou não souber como aplicar, poste a tua planilha modelo compactada, e dê mais detalhes.

Ah, e lembre de clicar na mãozinha como agradecimento.

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 20/04/2015 6:16 pm