Codigo para MSGBOX se Coluna for Negativa

Question

Ola amigos,

tenho uma Planilha com valores na Coluna "C" estes valores são saldos de valores de outras colunas e nao podem ficar negativos preciso de um codigo que quando este valor ficar negativo aparareça uma MSGBOX com um alerta e nao deixe continuar, alguém pode ajudar

EX: se inserir qualquer numero na coluna a e b onde a coluna c fica negativa ele mostra uma mensagem de erro e nao permiti a entrada.

A                B          C
Entrada   saída     Saldo
100          200     -100
11            600     -589
50            600     -550
3              600     -597
85            600     -515
96            600     -504
1150        600      550
640          600      40

ja tenho o código abaixo, porem so consigo de uma celula e para fazer para as demais tenho que repetir para todas, porem sao mais de mil celulas para fazer o codigo, precisaria em toda a coluna.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("c2") < 0 Then

MsgBox " SEM SALDO"
End If
End Sub

Answer 1

Olá, bom dia.

Minha sugestão é não utilizar VBA para este problema: uma forma muito mais eficiente seria utilizar a "Validação de Dados" que já possui várias possibilidades automáticas e vários tipos de mensagens personalizadas.

Mas caso ainda queira continuar com VBA bastaria avaliar a célula ativa e todo o Range desejado, mas sinceramente não recomendo que faça desta forma.

Abraço.

---

Filipe Magno

Answer 2

Olá, bom dia.

Minha sugestão é não utilizar VBA para este problema: uma forma muito mais eficiente seria utilizar a "Validação de Dados" que já possui várias possibilidades automáticas e vários tipos de mensagens personalizadas.

Mas caso ainda queira continuar com VBA bastaria avaliar a célula ativa e todo o Range desejado, mas sinceramente não recomendo que faça desta forma.

Abraço.

---

Filipe Magno

ola Felipe, boa tarde, já tentei pela validação de dados, porem a validação de dados só funciona se digitar o valor negativo na célula que esta com a formula, e como neste caso não será digitado nada na célula com a validação não vai funcionar, pós esta célula que ficará negativa é apenas resultado de outras células, pelo VBA não entendi como fazer, poderia mandar o Código, 

Obrigado pelo retorno e ajuda.

Answer 3

Não há esta restrição não. No seu caso basta utilizar a Validação tanto na coluna "A" quanto "B".

Caso a coluna "C" seja "A-B" basta inserir:

• Coluna A:

• Coluna B:

Basta aplicar a todo o range, selecionando todo o intervalo antes de inserir a condição. Bem simples, não!

---

Filipe Magno