EXCELer Tudo sobre EXCEL em Português
- Este tópico contém 7 respostas, 2 utilizadores e foi actualizado pela última vez há 8 anos, 9 meses por
.
-
Artigos
-
-
Olá,
Acho que tenho uma dúvida simples, estou iniciando estudos em VBA e gostaria de criar um VBA para que caso na célula EX: J15 que tem uma fórmula condicional simples SE(C26>=15,”DENTRO DO PRAZO”,”FORA DO PRAZO”), quando for fora do prazo apareça automaticamente uma MSGBOX alertando.
É possível?
Agradeço a todos!!
-
Boas,
Experimenta este código,na tua WorkSheet :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range(“C26”) < 15 Then
MsgBox “ATENÇÃO!!!! FORA DO PRAZO”
End If
End Sub
Diz qq coisa, ok?
-
-
Boas,
Desde que refiras no código, se for número: < (menor que); > (maior que); = (igual a); =< (igual a ou menor que) ou >= (maior que ou igual a)
se for Alfabético ou alfanumérico: = (igual a) ou <> (diferente de), podes utilizar como entenderes.Quanto a parar o VBA (código), se for Private Sub Worksheet_Change(ByVal Target As Range), abarca a planilha toda e, por isso, sempre que existe uma discrepância, o aparecimento da mensagem é automático, mas como é apenas uma mensagem de aviso, julgo que não é importante estar a tentar “inventar”, digo eu ☺☺
Fica bem e diz qq coisa, ok?
-
Jorgerod, muito obrigado!
Em relação a parar o VBA, existem casos em que pode ser menor que 15 (seria uma exceção), se a macro continuar executando sempre vai aparecer a mensagem, correto?
Queria um jeito de parar a macro, por exemplo marcando uma caixa de seleção vinculada a uma célula, é possível?
Agradeço muito a ajuda novamente!!
-
Rdigo25,
Experimenta (mesmo sem caixa de vinculação), com o acrescento na célula X1, ou seja, se esta célula tiver conteúdo, a msg aparece quando digitas valor <15 na célula C26, caso contrário, mesmo que C26 tenha valor <15, nada aparece.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range(“C26”).Value < 15 And Range(“X1”).Value <> “” Then
MsgBox “Atenção!!!! Fora de prazo!!!”
End If
End Sub
Fica bem e diz qq coisa!! ☺
-
-
-
- Tem de iniciar sessão para responder a este tópico.