Home Excel - Dicas Microsoft Excel VBA Excel VBA - Soma Excel vba planiha autonumeracao e soma automatica

Excel vba planiha autonumeracao e soma automatica

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funcoes

Esse macro do aplicativo Microsoft excel VBA, chamado por um Evento_Change da folha de planilha, isto é, ao escrever 'digitar',
na folha de planilha em coluna determinada pelo procedimento, acumula os valores em variavel e retorna para célula (C3)
somando automaticamente ao digitar.

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

Sub sbx_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

'//============= SEGUNDA QUESTÃO ==============='
Esse macro responde a sua segunda questão que Deleta a linha da célula ativa,
e insere um contador, mantendo-o na forma original.

Sub sbx_deletar_linhas_questao_2()
Dim i As Long
'deletar linhas da célula ativa
'msgbox pergunta
x = MsgBox("Deseja deletar a linha celula da ativa " & ActiveCell.Address & " ?", vbYesNo, "titulo qualquer")
    If x = 6 Then  ' 6 = sim
        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


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.




 Baixe o exemplo de planilha contendo os macros e procedimento acima:
icon Excel vba planiha autonumeracao e soma automatica (90.31 KB)

Última atualização em Sáb, 06 de Abril de 2013 10:56  

Comentários  

 
# tiago goulart 04/10/2014 12:28
Tenho uma duvida
Como posso fazer a soma de uma linha de outra plan, ao invés de apenas uma coluna.
Por exemplo, quero fazer a soma dos valores da linha 4 da plan2 aparecer na plan1 linha 3 coluna 3.

Poderia me ajudar por favor
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje553
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32608
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9850
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432679
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA