none
Codigo para MSGBOX se Coluna for Negativa RRS feed

  • Pergunta

  • 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


    sábado, 24 de junho de 2017 02:50

Todas as Respostas

  • 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

    domingo, 25 de junho de 2017 14:22
  • 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.

    terça-feira, 27 de junho de 2017 18:47
  • 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

    quarta-feira, 28 de junho de 2017 01:43