Na prática...

Criar alertas automáticos no Excel geralmente envolve o uso de código VBA (Visual Basic for Applications). Abaixo está um exemplo básico de como você pode configurar um alerta no Excel usando VBA:

Suponha que você tenha uma planilha chamada "ChecklistEmpilhadeiras" com colunas como "Data", "Item do Checklist" e "Observação". Vamos criar um código VBA para enviar um alerta por e-mail sempre que uma observação não conforme for registrada.

1. Abra o Excel e vá para a planilha "ChecklistEmpilhadeiras".

2. Pressione Alt + F11 para abrir o Editor VBA.

3. No Editor VBA, clique com o botão direito em "VBAProject (SeuArquivoExcel)" e escolha "Inserir" -> "Módulo".

4. Cole o seguinte código no módulo:

```vba

Sub EnviarAlertaEmail()

Dim OutlookApp As Object

Dim OutlookMail As Object

Dim Celula As Range

Dim EmailDestino As String

Dim AssuntoEmail As String

Dim CorpoEmail As String

' Endereço de e-mail para onde será enviado o alerta

EmailDestino = "seu_email@dominio.com"

' Assunto do e-mail

AssuntoEmail = "Alerta: Observação Não Conforme no Checklist de Empilhadeiras"

' Inicializar o corpo do e-mail

CorpoEmail = "Uma observação não conforme foi registrada no Checklist de Empilhadeiras:" & vbCrLf & vbCrLf

' Verificar cada linha na coluna de Observação

For Each Celula In Sheets("ChecklistEmpilhadeiras").Range("C2:C" & Sheets("ChecklistEmpilhadeiras").Cells(Rows.Count, "C").End(xlUp).Row)

' Se a condição de não conformidade for atendida

If Celula.Value = "Não Conforme" Then

CorpoEmail = CorpoEmail & "Data: " & Celula.Offset(0, -2).Value & ", Item: " & Celula.Offset(0, -1).Value & ", Observação: " & Celula.Value & vbCrLf

End If

Next Celula

' Verificar se há observações não conformes

If Len(CorpoEmail) > Len("Uma observação não conforme foi registrada no Checklist de Empilhadeiras:" & vbCrLf & vbCrLf) Then

' Criar uma instância do Outlook

Set OutlookApp = CreateObject("Outlook.Application")

Set OutlookMail = OutlookApp.CreateItem(0)

' Configurar o e-mail

With OutlookMail

.To = EmailDestino

.Subject = AssuntoEmail

.Body = CorpoEmail

.Send ' Envie automaticamente (comente esta linha se quiser revisar o e-mail antes de enviar)

End With

' Liberar os objetos do Outlook

Set OutlookMail = Nothing

Set OutlookApp = Nothing

End If

End Sub

```

5. Modifique o endereço de e-mail (`EmailDestino`) para o endereço desejado.

6. Feche o Editor VBA.

Agora, sempre que uma observação não conforme for registrada na coluna "Observação", você pode executar essa macro para enviar automaticamente um e-mail de alerta. Certifique-se de testar em um ambiente controlado antes de implementar em produção.