Ir ao conteúdo
  • Cadastre-se
Guilherme Pompermayer

Como incluir msgbox se a resposta da célula for maior que 8?

Recommended Posts

Prezados,

 

Estou construindo uma planilha no Excel e em dado momento, na coluna AI, a planilha faz uma validação de quantos dias o produto demorou para sair da empresa.
Sempre que este prazo for maior que 8 dias, gostaria que fosse exibido um alerta (MsgBox) solicitando ao colaborador que preencha a justificativa pelo atraso no envio.

 

Informações importantes:
na coluna em questão eu já tenho uma formula: =SE([@[DATA DO APTO]]="";"";SE([@[Validação do desconto do SLA]]="X";[@[Desconto na data do SLA]];DIATRABALHOTOTAL([@[DATA DO APTO]];[@[DATA DA FINALIZAÇÃO]])))

 

na planilha também já tenho uma outra programação em VBA:

 

Private Sub Worksheet_Change(ByVal Alvo As Range)
     Dim limite_maximo As Integer
  limite_maximo = 32000 ' altere aqui para limitar a última linha
  If Alvo.Cells.Count = 16 Or IsEmpty(Alvo) Then Exit Sub
    ' faz nada se mais de uma célula modificada ou se deu delete
  If Alvo.Column = 16 And Alvo.Row <= limite_maximo Then
    ' o if acima garante que a célula modificada está dentro a2:a32000
    ' desliga captura do evento change
  Application.EnableEvents = False
    ' muda a célula C da linha correspondente
  Alvo.Offset(0, 18).Value = Date    'Troque por Time() se quiser que mostre a data ao invés do horário
    ' religa a captura de eventos
  Application.EnableEvents = True
  End If
  End Sub

 

Como conseguir criar a MsgBox e conciliar a execução das duas macros na mesma planilha?

 

Desde já agradeço a ajuda galera.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×