Excel vba Planilha eventos somar automaticamente

19 de setembro de 2013 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

Planilha1 Excel VBA Shapes 9 associar dados imagem2

Planilha Excel vba eventos somar automaticamente

Excel vba Planilha eventos somar automaticamente

Estes procedimentos do Aplicativo MS Excel VBA(Visual Basic Application), soma valores digitados em determinada range automaticamente, isso graças ao Evento WorkSheetChange(), ao digitar nas célula na área específica,
e também fiz um exemplo com Evento DuploClick, respondendo a uma duvida amigos do site.
Seja um membros SaberExcel VBA Estudos e acesse a milhares de arquivos didáticos Excel VBA.
[email protected]
‘//========’ EVENTOS DE PLANILHAS CHAMANDO MACRO (Baixe exemplo no final da página – Fique com Deus.)

‘Aprenda a programar com nossas vídeo aulas sobre Excel VBA siga uma linha de raciocínio fácil e eficiente.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([h4:h50], Target) Is Nothing And Target.Count = 1 Then
deletar_linhas_questao_2
End If
End Sub

‘//=================’

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([c4:c500], Target) Is Nothing And Target.Count = 1 Then
somar_questao_1
End If
End Sub

‘//===========’ MACROS APLICADOS AO EXERCÍCIO (RESPOSTA DUVIDA)
Sub somar_questao_1()
Dim i As Long
Dim tSoma As Double ‘se houver decimais

For i = 4 To Plan1.Cells(Rows.Count, “c”).End(xlUp).Row
tSoma = tSoma + Cells(i, “c”).Value
Next i

Cells(3, 3).Value = tSoma
End Sub

‘//==========’
Sub deletar_linhas_questao_2()
Dim i As Long
‘deletar linhas da célula ativa
‘pergunta
x = MsgBox(“Deseja deletar a linha celula da ativa ” & ActiveCell.Address & ” ?”, vbYesNo, “titulo qualquer”)
If x = 6 Then
ActiveCell.EntireRow.Delete
End If
‘contador para repor o contador
For i = 5 To 50
Cells(i, “c”).Value = (i – 4)
Next i

End Sub
‘//============
Sub sbx_copiar_teste()
[a].Copy Plan2.[c5]
MsgBox (“Pagina de treinamento copiada, pronta para teste”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub