Este fórum está sendo desativado

[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.

[osvaldomp]

... 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

[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.

[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

[rohden1969]

Caríssimo Osvaldo,

Ficou show!!!

Muito obrigado.

Sandro.