jonatas adao
-
Total de itens
1 -
Registro em
-
Última visita
Sobre jonatas adao
jonatas adao's Achievements
0
Reputação
-
Pessoal, boa noite Tenho uma planilha que desejo que a mesma envie emails automatico a partir de um resultado em uma determinada celula. Basicamente esta assim, a macro precisa verificar se a coluna "F", possui o a escrita SIM, se for verdadeiro a mesma envia os valores da linha da celula que contem a escrita sim. Hoje a macro funciona, porem so funciona se eu escrever a palavra "Sim" e eu deixar uma formula de "SE" e mesmo que voltar "SIM", a macro não reconhece e não envia o email. Sou novato no VBA, montei a macro com varios artigos que fui pesquisando, porem agora não consigo mais evoluir. A macro esta Sub de Change, fiz umas pesquisa e algumas pessoas disseram que era para usar Sub Calculate, porem não obtive exito. Se alguém conseguir me ajudar, fico muito agradeçido. Segue scrip e estou utilizando: 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 Plan1.Cells(linha, 6) = "SIM" Then End If HTML = HTML & "<head>" HTML = HTML & "<body>" HTML = HTML & "<font size='2' font color= #333333 face='Arial Unicode MS'>Caros, " & cliente & "</b></font></br>" '<b> é bold. <i> é itálico HTML = HTML & "<br>" 'Equivalente ao enter HTML = HTML & "<br>" HTML = HTML & "</body>" HTML = HTML & "</html>" With OutMail .To = Plan4.Cells(linha, 7) '"Update Diário de Coleta " & ThisWorkbook.Sheets("Calc Proj").Range("b1").Value & .cc = "" .BCC = "" .Subject = "Paciente Auto Risco - " & Plan4.Cells(linha, 3) & " - " & Plan4.Cells(linha, 2) & " - " & Plan4.Cells(linha, 1) .HTMLBody = HTML .Display 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If End Sub Desde já agradeço a todos, Jonatas