Este fórum está sendo desativado

[FabricioGan]

Bom dia,

Bom sou novo aqui e estou a procura de ajuda,

Estou tentando desenvolver uma Macro em VBA para uma planilha que eu tenho, ja assisti varias vídeo aulas, e achei alguns códigos parecidos com o que preciso, mas não consigo compilar o código no Visual Basic.

Tenho uma planilha descrita abaixo:


Preciso que toda vez que a coluna C e D tenha o valor 3 inserido, seja enviado um email (que estaria na célula G3) de alerta informando que " O carro "célula da mesma linha da coluna B" atingiu 3 resets.

Alguém poderia me dar uma luz onde eu posso aprender a fazer isso.

Desde já agradeço.

[Kledison]

Bom dia Fabrício,

estou enviando em anexo uma planilha que fiz recentemente e que envia email, porém não envia de forma automática pois não era minha intenção quando fiz.

Tente adaptar ao seu projeto, já fiz algumas alterações.

Obs: para funcionar nesse exemplo o Outlook deverá estar aberto em segundo plano.

Boa sorte.

[alexandrevba]

Boa tarde!!

favor adaptar, pois você nem ao menos disse qual domínio (yahoo, gmail, outlook etc) de email usa.

favor ler:
http://www.rondebruin.nl/win/s1/outlook/mail.htm

Código: Selecionar todos

Sub NaoTestado()
    Dim OutlookApp As Object
    Dim Mess As Object, Recip As String
    
    Range("E4:E1000").ClearContents
    With Range("E4:E20") 'Ajuste esse intervalo conforme sua necessidade
        .Formula = "=IF(OR(B4=3,C4=3),1,"""")"
        .Value = .Value
    End With
    
    With Plan1
        .AutoFilterMode = False
        .Range("B3:E3").AutoFilter
        .Range("B3:E3").AutoFilter Field:=4, Criteria1:=1
    End With
    
    Recip = [G3].Value
    Set OutlookApp = CreateObject("Outlook.Application")
    Set Mess = OutlookApp.CreateItem(olMailItem)
    With Mess
        .Subject = "Subject"
        .Body = "Body"
        .To = Recip
        .Display
        .Send
    End With
    ActiveSheet.AutoFilterMode = False
End Sub

Att

[laennder]

Olá Kledison, quando fizer referência cruzada (outro tópico) favor postar o link para o outro tópico. Assim também evita de anexar o mesmo arquivo duas vezes.

Att,

[FabricioGan]

desde ja agradeco pela ajuda, ainda nao tive tempo de sentar e ler com atencao as dicas dadas, assim que eu checar isso darei o feedback.

muito obrigado.