Inquiridor
Macro para enviar automaticamente conteúdo de Célula do Excel por e-mail

Discussão Geral
-
Veículo Último Km Rodado Km Total Rodado Pelo Veículo Data última troca Hoje Dias corridos desde a última troca Km de cadastro da última troca de óleo Troca óleo de quantos em quantos Kms Rodagem sem troca de óleo Km Restante Precisa trocar o óleo? FORD 500 100500 12/12/2019 13/01/2020 31 90000 10000 10500 -500 Sim Bom dia,
Preciso de um macro que envie um e-mail automaticamente assim que a coluna K mudar a informação para SIM.
Obrigado!
- Editado DigusX segunda-feira, 13 de janeiro de 2020 14:58
Todas as Respostas
-
DigusX,
Existe o evento "change" do "Worksheet". Este evento é disparado com alguma mudança na planilha, então você isola para somente as células que precisa...
A parte de envio de email eu coloquei dois links, pois é mais complicado de explicar...
===============================================
Evento Worksheet. Change (Excel)Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False 'Set the values to be uppercase Target.Value = UCase(Target.Value) Application.EnableEvents = True End Sub
https://docs.microsoft.com/pt-br/office/vba/api/excel.worksheet.change
===============================================
VBA (Excel) - Enviando Email usando o Outlook
http://macoratti.net/15/12/vba_outlook1.htm
===============================================
Automatizar o envio de emails das suas listas com o Excel
https://www.exceldoseujeito.com.br/automatizar-o-envio-de-emails-das-suas-listas-com-o-excel/
===============================================
[]'s,
Fabio I.
- Editado Fabio I quarta-feira, 15 de janeiro de 2020 00:38
-
-