Saberexcel - o site de quem precisa aprender macros microsoft excel vba

Essas Funções do Aplicativo Microsoft Excel VBA, retornam um endereço de e-mail, observem que as funções personalizadas buscam por determinado caracter em algum lugar em uma frase, note que na primeira função busca o caracter (- ) ifem, quanto no segundo exemplo de função busca pelo caracter (@) Arroba. Os exemplos abaixo são muito úteis para quem lida com muitos nomes de emails que talvez estejam em meio a determinadas frases:
Espero que os exemplos de Função possam lhes ser útil. Fique com Deus, Expedito Marcondes

Essa função extrai uma determinada palavra de uma frase baseado em algum caracteres especificado no Macro por exemplo a frase:
CELULA (J2) = "Aprenda Microsoft excel vba, sozinho, praticando com os produtos didáticos saberexcel - [email protected] - "
Observe que nesta frase a função irá buscar o Caracter ( - ) traço (ifem)), e retornará o email. [email protected]
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Function ExtrairElementos(Texto, n, Separator) As String
ExtrairElementos = Split(Application.Trim(Texto), Separator)(n - 1)
End Function

USO CORRETO DA FUNÇÃO:
=ExtrairElementos(J2;2;"-")



OUTRA FUNÇÃO FUNÇÃO EXTRAI TEXTOS(EMAILS) DEPENDENDO DO CARACTER ESCOLHIDO.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Observe bem, se voce tem uma frase como esta (apenas exemplo), a função ira busca pelo caracter '@' e retornará o endereço de email contido na frase. (muito útil para quem trabalha com muitos emails)
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
USO CORRETO DA FUNÇÃO:
Celula D7 = 'Aprenda macros, fórmulas e funções [email protected], produtos didáticos saberexcel'
Fórmula usada: SE(D7="";"";SE( ExtrairENDERECOEMAIL(D7)="";"NÃO HÁ EMAILS"; ExtrairENDERECOEMAIL(D7)))
veja que que a função tem duas condições, porém poderá usar somente uma:
'=ExtrairENDERECOEMAIL(D7).
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Function ExtrairENDERECOEMAIL(s As String) As String
Dim LocalizacaoARROBA As Long
Dim vCONTADOR As Long
Dim textoTEMP As String
Const listaCARACTER As String = "[A-Za-z0-9._-]"

'Obtendo a localização do caracter '@' arroba
LocalizacaoARROBA = InStr(s, "@")
If LocalizacaoARROBA = 0 Then
ExtrairENDERECOEMAIL = "" 'not found
Else
textoTEMP = ""

'Obtendo o primeiro endereço de email
For vCONTADOR = LocalizacaoARROBA - 1 To 1 Step -1
If Mid(s, vCONTADOR, 1) Like listaCARACTER Then
textoTEMP = Mid(s, vCONTADOR, 1) & textoTEMP
Else
Exit For
End If
Next vCONTADOR
If textoTEMP = "" Then Exit Function

'obtendo o segundo endereco de email
textoTEMP = textoTEMP & "@"
For vCONTADOR = LocalizacaoARROBA + 1 To Len(s)
If Mid(s, vCONTADOR, 1) Like listaCARACTER Then
textoTEMP = textoTEMP & Mid(s, vCONTADOR, 1)
Else
Exit For
End If
Next vCONTADOR

End If

'Remover ponto a direita se por ventura existir

If Right(textoTEMP, 1) = "." Then textoTEMP = _
Left(textoTEMP, Len(textoTEMP) - 1)
ExtrairENDERECOEMAIL = textoTEMP
End Function



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. http://www.microsoftexcel.com.br
e saberexcel.com

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.

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse procedimento do Aplicativo Microsoft Excel VBA, usando Evento de folha de Planilha Evento Worksheet_Change() ao escrever
em determinada coluna, o procedimento usando a Função Split, decompõe um endereço de email em nome e servidor,
sendo que o Servidor irá para uma coluna e o nome para outra pré-determinada no procedimento(macro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
If InStr(1, Target, "@") > 0 Then
Range("K" & Target.Row) = Split(Target, "@")(0)
Range("M" & Target.Row) = Split(Target, "@")(1)
Range("E" & Target.Row).Font.Size = 8
End If
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.

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

'Esse macro envia email com anexo para vários emails,
'insere dados no corpo do email e dados no corpo, mude o caminho do direto do arquivo
ou planilha para realização do seu teste que for enviar anexo para os emails que relacionar no macro.
Fique com Deus, Expedito Marcondes.

'- - - - - - - - - - - - - - - -
Sub ENVIAR_EMAIL_ADD_PLANILHA()
Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem
.to = ("[email protected];[email protected]")
.Subject = "RELATORIO: PAGAMENTOS DE JANEIRO/2020"
.Body = "Bom dia Sr." & Plan1.[d1].Value & vbCrLf & _
"Anexo estamos lhe enviando a planilha Relatório" & vbCrLf & _
"Janeiro/2020 " & _
"Saudações " & vbCrLf & _
Plan1.[D2].Value
'troque o diretorio do documento que queira enviar 'add' anexo.
.Attachments.Add "C:\SaberExcel\decompor_treina_email.xlsm"
.Display
End With
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.

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.