Página 1 de 1

ATUALIZAÇÃO CONSTANTE DE VALORES

Enviado: 14 Dez 2018 às 08:47
por rohden1969
Prezados colegas, bom dia!

Desejo verificar a possibilidade de, sempre que digitado um valor à esquerda dos números em negrito, o mesmo pudesse ser "somado" ao valor já existente, liberando a célula à esquerda para digitar um novo valor e, consequentemente o mesmo ser adicionado, sempre que pressionado a tecla ENTER. E, toda vez em que precisar efetuar uma subtração no valor em negrito, o faria da mesma forma, digitando esse valor na célula à esquerda, precedido do sinal de (-). Tem como ser feito sem ser via VBA? Se não houver possibilidade, poderá ser via VBA mesmo.

Segue modelo da planilha anexado.

Grato pela atenção,
Sandro.

Re: ATUALIZAÇÃO CONSTANTE DE VALORES

Enviado: 14 Dez 2018 às 13:37
por osvaldomp
rohden1969 escreveu:... poderá ser via VBA mesmo.
Deverá ser via macro!
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [E7:E11]) Is Nothing Then Exit Sub
 On Error Resume Next
 Target.Offset(, 1).Value = Target.Offset(, 1).Value + Target.Value
End Sub

ATUALIZAÇÃO CONSTANTE DE VALORES

Enviado: 14 Dez 2018 às 14:09
por rohden1969
Olá Osvaldo, Boa tarde!

Copiei e implementei a macro que você enviou e para ela ficar TOP, 100% (Rsrsrsrsrs....) preciso que sempre que pressionado a tecla ENTER, o campo aonde o valor foi digitado (célula à esquerda) fique vazio ou no máximo com o valor "0,00" aguardando a próxima digitação.

Independentemente de você puder me auxiliar quanto a isso, já lhe sou muito grato pela ajuda até o momento.

Obrigado.
Sandro.

Re: ATUALIZAÇÃO CONSTANTE DE VALORES

Enviado: 14 Dez 2018 às 14:28
por osvaldomp
Olá, Sandro.

Coloque o código abaixo no lugar do anterior.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [E7:E11]) Is Nothing Then Exit Sub
 On Error Resume Next
 Target.Offset(, 1).Value = Target.Offset(, 1).Value + Target.Value
 Application.EnableEvents = False
 Target.Value = ""
 Application.EnableEvents = True
End Sub

ATUALIZAÇÃO CONSTANTE DE VALORES

Enviado: 14 Dez 2018 às 15:37
por rohden1969
Caríssimo Osvaldo,

Ficou show!!!

Muito obrigado.

Sandro.