Saberexcel - o site de quem precisa aprender sobre Macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento change(ao digitar) soma (acumula) valores em determinada célula.
Observe que ao digitar na célula (D10) o range.propriedade offset, desloca duas colunas à direita e soma o valor, isto é acumulando o valor digitado,
Espero que lhe possa ser útil. Fique com Deus, Boa Sorte. E_Marcondes
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim vRange As Range
If Target.Cells.Count > 4 Then Exit Sub
Set vRange = Range("D10")
If Not Intersect(Target, vRange) Is Nothing Then
If IsNumeric(Target) And IsNumeric(Target.Offset(0, 2)) Then
Target.Offset(0, 2) = Target + Target.Offset(0, 2) 'pulando uma coluna e inserindo a soma
End If
End If
Set vRange = Nothing
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Viisual Basic Application) com Saberexcel
Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha vba soma adicionando valores a uma celula ao digitar (24.66 kB)