Valor digitado em celula mudar para negativo com condição


#1

Boa tarde a todos!
Tem como mudar valor positivo para negativo ao digitar se em outra célula da mesma linha tiver como saída
CValor digitado em celula mudar para negativo com condição.xlsx (11,6 KB)
omo neste exemplo


#2

@SPP, somente criando uma rotina que faça essa alteração.

Segue exemplo: Valor digitado em celula mudar para negativo com condição.xlsm (16,6 KB)


#3

Leonardo boa tarde!

Não esta funcionando ao Change
aparece o sinal negativo, mas some e fica positivo novamente.


#4

Fiz uma formula em D tem como mudar o valor de D para C
Valor digitado em celula mudar para negativo com condição.xlsm (17,9 KB)


#5

@SPP, não dá por fórmula porque uma célula não pode ser automática e manual ao mesmo tempo. A partir do momento que você digita nela a fórmula que havia deixará de existir.

Fiz uns ajustes na rotina: Valor digitado em celula mudar para negativo com condição.xlsm (15,5 KB)


#6

Leonardo, boa noite!
funcionou, mas quanto limpa as células da erro. Se manter a coluna C com zero não da erro.
Obrigado pela ajuda


#7

@SPP

Valor digitado em celula mudar para negativo com condição.xlsm (17,3 KB)


#8

Leonardo
Agora não esta dando erro, mas em nenhum dos que me mandou esta aparecendo Negativo mais.


#9

@SPP, em todos os arquivos que enviei funcionou aqui. Acho então que não entendi como você quer operar o arquivo e, por isso, não funciona pra você. Não há mais o que fazer dentro do que entendi da feature.


#10

Leonardo Bom dia!

Agora com mais calma verifiquei o código e coloquei acento em SAíDA ai voltou a funcionar.
Muito obrigado pela disponibilidade em me ajudar.


#11

(estou postando pq comecei a montar antes da sua resposta final, e imaginava que ainda estivesse em aberto sua duvida)
Segue minha contribuição:

Resolução (xlarruda).xlsm (20,5 KB)

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
    Select Case Target.Value
        Case Is = "ENTRADA", ""
            Target.Offset(0, 1).Value = CCur(Abs(Target.Offset(0, 1).Value))
            Exit Sub
        Case Is = "SAÍDA"
            Target.Offset(0, 1).Value = CCur(Abs(Target.Offset(0, 1).Value) * -1)
    End Select
End If

If Target.Column = 3 Then
    Select Case Target.Offset(0, -1).Value
        Case Is = "ENTRADA", ""
            Target.Value = CCur(Abs(Target.Value))
            Exit Sub
        Case Is = "SAÍDA"
            Target.Value = CCur(Abs(Target.Value) * -1)
    End Select
End If

End Sub

#12

Andre boa tarde!
O sua contribuição valeu, mas ao trocar critério não esta funcionando.
Não esta respondendo e fecha


#13

Por quais critérios quer trocar?


#14

Seleciono um dos itens entrada saída não esta passado para o próximo fica travado e para de funcionar.


#15

Você baixou o arquivo que postei ou copiou o código apenas?

Caso tenha apenas copiado, verifique se o inseriu no evento correto.
Assim como o exemplo acima, o evento deve ser o Change e não o Selection_Change.

Se não for isso, não sei o que pode estar ocorrendo pois, aqui funciona normalmente.


#16

xlarruda

estou te anexando o que eu baixei direto da resposta
,Resolução (xlarruda).xlsm (20,5 KB)
pode ser ao baixar


#17

Que coisa estranha. Quando baixo o arquivo da minha própria postagem funciona normalmente.

Ao baixar o arquivo que vc acabou de postar travou tudo.

:thinking: :face_with_raised_eyebrow:


#18

Eu também não entendi, abria outros arquivos funcionava.somente este não funcionava.
Pode me mandar por Email para testar


#19

Para qual e-mail devo enviar?


#20

seperpra@yahoo.com.br