|
 Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), envia uma tabela do excel no corpo do email
essa planiha faz parte das planilhas da área exclusiva para assinantes Saberexcel
(todos os dias uma nova publicação) são milhares de planilhas.
Sub enviar_planilha_corpo_email()
Application.ScreenUpdating = False
Range ("vIntervalo").Copy Destination:=EscolaSaberExcel.Range("A1")
EscolaSaberExcel.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "ESCOLA SABEREXCEL VBA ESTUDOS"
.Item.To = "[email protected]"
.Item.Subject = "PRODUTOS DIDÁTICOS MS EXCEL VBA"
.Item.Send
End With
ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation, "Escola SaberExccel VBA Estudos®"
Application.ScreenUpdating = True
End Sub
Private Sub Adicionar_Planilha_Click()
ActiveSheet.Copy Before:=Sheets(1)
Sheets(1).Range("C3").Value = Sheets(1).Range("C3").Value + 14
End Sub
Private Sub Enviar_Click()
Call enviar_planilha_corpo_email
End Sub
Private Sub cmdRENOMEARPLAN_Click ()
ActiveSheet.Name = ActiveSheet.Range("F4").Value
MsgBox ("Planilha renomeada [ " & ActiveSheet.Range("F4").Value & " ] com sucesso"), vbInformation, "Escola Saberexcel VBa Estudos®"
End Sub
//=======' na folha de código da folha de Planilha
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("F4").Value
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
 baixe o exemplo de planilha contendo os macros acima.
|