Home Excel - Dicas Microsoft Excel VBA Excel VBA - Soma Excel planilha vba soma adicionando valores a uma celula ao digitar

Excel planilha vba soma adicionando valores a uma celula ao digitar

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender sobre Macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento change(ao digitar) soma (acumula) valores em determinada célula.
Observe que ao digitar na célula (D10) o range.propriedade offset, desloca duas colunas à direita e soma o valor, isto é acumulando o valor digitado,
Espero que lhe possa ser útil. Fique com Deus, Boa Sorte. E_Marcondes


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim vRange As Range

If Target.Cells.Count > 4 Then Exit Sub

Set vRange = Range("D10")

If Not Intersect(Target, vRange) Is Nothing Then
If IsNumeric(Target) And IsNumeric(Target.Offset(0, 2)) Then
Target.Offset(0, 2) = Target + Target.Offset(0, 2) 'pulando uma coluna e inserindo a soma
End If
End If
Set vRange = Nothing
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Viisual Basic Application) com Saberexcel



   Baixe o exemplo de planilha contendo o procedimento acima
 Excel  planilha vba soma adicionando valores a uma celula ao digitar (24.66 kB)

Última atualização em Qua, 10 de Outubro de 2012 15:36  

Comentários  

 
# 06/06/2012 14:50
Essa macro até então ótima, insere na D10 e acumula em F10, agora gostaria de saber como fazer esse mesmo valor em mais células. Tipo: inserir na D11 para acumular na F11... Inserir na D12 para acumular na F12... Insere na D13 para acumular na F13... e assim por diante.
Responder | Responder com citação | Citação
 
 
# 01/08/2012 19:26
Essa macro até então ótima, insere na D10 e acumula em F10, agora gostaria de saber como fazer esse mesmo valor em mais células. Tipo: inserir na D11 para acumular na F11... Inserir na D12 para acumular na F12... Insere na D13 para acumular na F13... e assim por diante.


prezado, Antonio.
Faça o seguinte:
1 - ) no quadradinho acima linha(1) e antes da coluna(A)
clique e selecione todas as células
2 - ) com todas as células selecionadas, de um ctrl + 1,
abra a Caixa de diálogo Formatar Celulas > Aba Proteção > Bloqueie todas as células
3 - Agora vamos debloquear somente as células onde vão ser digitado o código para busca do provc.
4 - Selecione a Area da Coluna onde vai ser digitado somente o Código
5 - Com essa área selecionada - tecle control + 1 para abrir a caixa de dialógo Formutar células
6 - Vá até Proteção > e Desbloqueie essas células selecionadas que receberão os códigos.
7 - Va em protger > quando a caixa de dialogo abrir > selecione o item > Selecionar somente células desbloqueadas>

8 - Pronto - já poderá usar sua planilha.

fique com Deus,
Expedito marcondes
Responder | Responder com citação | Citação
 
 
# Leaofera 28/10/2014 21:38
Meu amigo eh so vc abrir a macro e mudar a linha onde diz
Set vRange = Range("D10") para
Set vRange = Range("D10", "D20") o D20 eh a linha final do que vc quer fazer , se tiver 200 linhas coloque D200
Responder | Responder com citação | Citação
 
 
# Rodrigo Magalhães 22/05/2013 10:21
Olá muito bom o VBA porém eu queria expandir a mesmo código para outras células dentro da planilha como faço isso?

desde já agradeço..
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes x 05/06/2013 10:43
Prezado Rodrigo,
obrigado pelo seu comentário,
Rodrigo, quando voce fala na em celulas, falamos também em linhas e colunas, porque uma célula é uma Interseção de Linhas e Colunas.
Para expandir seu intervalo de células é bem simples
voce poderia usar o Objeto Range na programação ou Cells(linhas, Colunas)

Mas como o assunto é muito intenso, se quiser me enviar seu exemplo para eu fazer um exemplo para voce prosseguir com seu projeto.
envie-me que faço pra voce.
Fique com Deus,
Expedito Marcondes
Escola Saberexcel VBA Estudos®
Responder | Responder com citação | Citação
 
 
# Elder Giovani 15/07/2013 16:33
Olá Expedito parabéns, esta programação era que eu estava procurando, só troquei a célula "D10" para D4 até D83 e o resultado acumulado foi da G4 até G83.
Mas o que ou gostaria de saber é como faço para bloquear a coluna G4 até G83 que ficam com o resultado acumulado pois tentei bloqueá-las conforme orientação, porém a programação rejeita.
um grande abraço
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes.. 19/07/2013 22:18
Prezado Elder,
Que bom que o exemplo te serviu,
Elder, voce esta querendo bloquear as células, veja acima,
que após o desbloqueio total e o bloqueio somente celulas onde voce quer que o usuário navegue, depois do processo realizado, "Proteja a sua planilha" manualmente ou com macros.
Caso queira, envie-me sua planilha, pra eu ver pra voce.
Fique com Deus,
Expedito Marcondes.
Responder | Responder com citação | Citação
 
 
# Saul Bueno 09/04/2014 14:32
Olá.
Tenho um trabalho onde preciso acumular a soma de várias colunas, porém a Macro não está pegando os valores das células que contém a fórmula de somatório (∑). Como fazer para acumular o somatório?
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes. 09/04/2014 17:28
Prezado Amigo Saul, boa tarde,
Saul, seria melhor se enviasse um pequeno exemplo em uma planilha,
Para visualizarmos sua dúvida,
Fique com Deus,
Expedito Marcondes
Responder | Responder com citação | Citação
 
 
# HUGO ANTONIO DE SOUS 06/05/2014 10:25
GOSTARIA DE BLOQUEAR EM UMA LINHA UMA CÉLULA (EX. M15), SE O VALOR DA CÉLULA (EX. T15=1); COMO FAZE-LO ?
Responder | Responder com citação | Citação
 
 
# Joanísia 28/11/2014 14:44
Como fazer para expandir a formula para outras colunas, por ex.: A D10 resultada na F10, como fazer para G10 e outras colunas mais que a planilha possa ter, continuar somando sucessivamente?
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_counterHoje858
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30622
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44351
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467180
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