Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Este Macro e Procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), realiza uma soma automaticamente ao digitar na coluna(b),
retorna a soma na celula(c2). usando o evento Worksheet_Change 'ao escrever, alterar' celulas em area especifica.
'-- baixe a planilha exemplo no final da página
Seja um assinante escola Saberexcel VBA Estudos®
http://www.saberexcel.com.br
Private Sub Worksheet_Change(ByVal Target As Range)
x = Range("c" & Rows.Count).End(xlUp).Row
If Not Intersect(Range("C2:C" & x), Target) Is Nothing Then
sbx_somar_valores
End If
End Sub
'
Sub sbx_somar_valores()
Dim i As Integer
For i = 2 To Cells(Rows.Count, "c").End(xlUp).Row + 1
tSoma = tSoma + Cells(i, "c").Value
Next i
[e2].Value = tSoma
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
Baixe o exemplo de planilha contendo os macros acima
:
SBL somar automaticamente ao digitar evento change
