Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel vba eventos somar automaticamente crueis duvida

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Estes procedilmentos 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.
'//========' EVENTOS DE PLANILHAS CHAMANDO MACRO  (Baixe exemplo no final da página - Fique com Deus.)

'Aprenda a programar com nossas video 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

 


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.

  Assine já ...... Procedimentos de aquisição dos produtos Didáticos SaberExcel





 Baixe o exemplo de planilha contendo os macros acima:
icon SBL Excel vba eventos somar automaticamente crueis duvida (93.97 kB)
  

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - Soma SBL Excel vba eventos somar automaticamente crueis duvida