Este fórum está sendo desativado

[osielnunes]

Olá prezados, boa tarde! Estou com uma planilha com necessidades semelhantes a que se refere a este tópico, tentei criar um novo tópico mas não encontrei como... Gostaria de ajuda para resolver um problema especifico... Segue:

Adaptar esse codigo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub If (Target.Column + 1) Mod 5 <> 0 Or Target.Column > 59 Then Exit Sub If Not Intersect(Target, Range("4:28", "31:61")) Is Nothing Then Target.Offset(, 1).Value = Target.Offset(, 1).Value + Target.Value End IfEnd Sub

Em uma planilha que tenho? Estou tentando, mas por falta de conhecimento não estou conseguindo...

Tenho uma planilha onde serão inseridas informações nas celulas: =SUM(G10:J10), o resultado estaria na coluna k10. até ai sem problemas. O problema começa quando as celulas são atualizadas com novos valores(númericos) e o totalizador(K10) deve ir adicionando os valores: Ex. quando eu digito na celula em: G10=10 e H10=2 o resultado em K10 seria 12, ok, mas se eu volto a inserir 10 em G10, K10 deve incrementar, ou seja 22 e não 12.
No caso a minha planilha teria as informações inseridas no intervalo: G10 a J30, com a somatoria de cada linha individualmente em K10:K30
Desculpa se não estou sendo claro! Fico grato pela ajuda!!!

[osvaldomp]

#
Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect([G10:J30], Target) Is Nothing Then Exit Sub
 On Error Resume Next
 Cells(Target.Row, 11) = Cells(Target.Row, 11) + Target.Value
End Sub

[Kledison]

@osielnunes , seja bem vindo ao fórum!

Eu criei um tópico para sua dúvida, altere o título se houver necessidade.

Para cria tópicos no fórum, leia essa dica:
viewtopic.php?f=5&t=6

Funcionamento do fórum:
https://gurudoexcel.com/forum/viewforum.php?f=5

Regras e outro assuntos:
viewforum.php?f=8

exemplo de como criar tópico no fórum:



Att

Moderador