Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por CAMILOALVES
#59745
Bom Dia!
Pedido de Ajuda na Planilha Anexa:
Sempre que na coluna "Dias Restante" (E5 até E24) for menor que 30, A planinha em questão deverá ser enviada Automaticamente a um determinado email .
OBS: Somente os itens que tiverem na coluna "Dias Restante" menor que 30 devem ser enviados ao respectivo email.
Detalhe: esse envio sempre se dará Automaticamente, ou seja, de total gerenciamento do excel sempre às 8:00Hs.
Resumindo: Todos os dias sempre às 8:00Hs os itens que estiverem com "Dias Restante" menor que 30 deverão ser enviados a um determinado email.
Até tentei com a macro abaixo:
Sub enviar_corpo_email_01()
Sheets("Tempo").Visible = True
Application.Goto (ActiveWorkbook.Sheets("Tempo").Range("A1:F25"))
Excel.Application.DisplayAlerts = False
ActiveWorkbook.EnvelopeVisible = True
With Sheets("Tempo").MailEnvelope
.Introduction = ""
.Item.To = "xxxxxxx@xxxxx.com.br"
.Item.Subject = "Calibração e/ou Ensaios a Vencer Nos Próximos 30 Dias"
.Item.Send
End With
Excel.Application.DisplayAlerts = True
End Sub

Desde já Agradeço
Você não está autorizado a ver ou baixar esse anexo.
Por Strogonoff
#60015
Amigo, boa noite!!!
Dá uma olhada na planilha que te enviei, coloquei explicações nela..
Espero que ajude!!
Abraço
Você não está autorizado a ver ou baixar esse anexo.

Segue uma ideia, veja se aproveita. 1. elabore um[…]

Pessoal, ao salvar minha tabela dinâmica no […]

DÚVIDA: Como gerar a data final?

Isso mesmo Strogonoff, muito obrigado! Sobre a su[…]

Variáveis em um Dashboard

Você precisa de um gráfico dinâ[…]

Bom dia! Estou precisando de uma ajuda com SQL e V[…]

Como você não informou o horár[…]

Como abrir tela de Logon do SAP ECC?

@FAMenezes , Tudo bom... sei que já faz um[…]

Rotina e Macro

Oi. Tenho uma planilha com um jogo. Nele os partic[…]