Descricao: |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
 Esse procedimento do Aplicativo Microsoft Excel VBA(visual Basic Application), insere uma soma automaticamente ao digitar na coluna(B), observe que também que ao deletar um determinado número na colund(D) o valor é automaticamente atualizado, devido o uso da propriedade cells. Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
Private Sub Worksheet_Change(ByVal Target As Range) Dim vTotal As Double Dim vUltimaLinha As Long 'tres maneiras de localizar a última linha vUltimaLinha = Cells(Cells.Rows.Count, "D").Row 'vUltimaLinha = Cells(Rows.Count, "D").Row 'vUltimaLinha = Plan1.Range("A65000").End(xlUp).Row 'esse linha de código não atualiza a deleção de dados.(subtrair o que foi deletado)
If Not Application.Intersect(Range("D1:D" & vUltimaLinha), Target) Is Nothing Then vTotal = Application.WorksheetFunction.Sum(Range("D1:D" & vUltimaLinha)) [F3].Value = vTotal End If 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.

|