Olá
A minha dúvida é a seguinte, estou desenvolvendo um macro de Change, pra quando uma coluna pra "Faltam 2 dias" ele lança um email automatico, mas eu só consigo fazer isso por enquanto com a "ActiveCell.row" e eu quero que seja automatico.
dessa forma eu tenho que escrever na célula "H" no caso, "Faltam 2 Dias" para que o email seja lançado. quero saber se tem como fazer isso sem "ActiveCell.RoW" segue uma cópia de como está o macro até agora.
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 = "$H$" & Linha Then
If Plan3.Cells(Linha, 8) = "FALTAM 2 DIAS" Then
texto = "Prezados, " & vbCrLf & vbCrLf & _
"Faltam dois dias para vencer o prazo do Processo nº" & Plan3.Cells(Linha, 2) & " Publicado no Diário da Justiça no dia " & _
Plan3.Cells(Linha, 1) & vbCrLf & _
" Veja informações abaixo:" & vbCrLf & _
" Status: " & Plan3.Cells(Linha, 8) & vbCrLf & _
" Ordem do Juiz: " & Plan3.Cells(Linha, 9) & vbCrLf & vbCrLf & _
"Atenciosamente," & vbCrLf & _
"Artur Mangabeira Soares"
End If
With OutMail
.To = "artursoares@prefeitura.sp.gov.br"
.CC = ""
.BCC = ""
.Subject = "Atenção"
.Body = texto
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
