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

  • 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
    segunda-feira, 13 de janeiro de 2020 12:50

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
    terça-feira, 14 de janeiro de 2020 11:25
  • Obrigado por ajudar!

    terça-feira, 14 de janeiro de 2020 23:26
  • DigusX, se ajudei, por favor, não esqueça de me pontuar! Obrigado!
    quarta-feira, 15 de janeiro de 2020 00:37