MarceloAKniss

@Charley Rocha Muito obrigado!!! Funcionou! Só uma dúvida: Se eu quisesse que essa macro fosse executada quando eu desse um ENTER em cima da célula com a data "Hoje", seria possível fazer isso? Só por que já estou pensando em uma outra coisa futuramente para fazer. Novamente, muito obrigado!

Boa noite, pessoal! Tudo bem com vocês? Eu estou com um problema praticamente igual, porém eu não consegui aplicar o que foi feito nos posts acima no meu caso... vocês me ajudam? Eu tenho uma planilha com uma coluna com datas (as datas ficam na coluna E) e uma coluna escrito "Deadline" (coluna F) . Quando a data for igual a data de hoje, existe uma função que vai escrever "Hoje" na coluna do deadline, e ela deveria mandar um email informando algumas determinadas pessoas. Porém essa macro só está funcionando se eu clicar em cima da linha e digitar "Hoje" manualmente. Ela não está mandando o e-mail pela fórmula. Meu código é esse: Private Sub Worksheet_Change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) linha = ActiveCell.Row - 1 If Target.Address = "$F$" & linha Then If Planilha1.Cells(linha, 6) = "Hoje" Then texto = "Prezado Time de CS, " & vbCrLf & vbCrLf & _ "O Projeto " & Planilha1.Cells(linha, 3) & " está com o dedline para Hoje " & vbCrLf & _ "Veja informações abaixo:" & vbCrLf & _ "Deadline: " & Planilha1.Cells(linha, 6) & vbCrLf & _ "Fase do Projeto: Design Review" & vbCrLf & vbCrLf & _ "Atenciosamente," & vbCrLf & _ "Equipe CS" End If With OutMail .To = "meu email" .CC = "" .BCC = "" .Subject = "Informação!" .Body = texto .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If End Sub Alguém me ajuda? Não sei mais o que fazer... Segue anexo a planilha também. Muito obrigado! Projetos em andamento - Copia.xlsx