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   

 
Guest
# Guest 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 | Citar
 
 
Guest
# Guest 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 | Citar
 
 
Leaofera
# 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 | Citar
 
 
Rodrigo Magalhães
# 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 | Citar
 
 
Expedito Marcondes x
# 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 | Citar
 
 
Elder Giovani
# 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 | Citar
 
 
Expedito Marcondes..
# 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 | Citar
 
 
Saul Bueno
# 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 | Citar
 
 
Expedito Marcondes.
# 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 | Citar
 
 
HUGO ANTONIO DE SOUS
# 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 | Citar
 
 
Joanísia
# 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 | Citar
 

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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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