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

Question

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!

Answer 1

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.

Answer 2

Obrigado por ajudar!

Answer 3

DigusX, se ajudei, por favor, não esqueça de me pontuar! Obrigado!