VBA Excel Tips - Converta os endereços de eMail em hyperlink - Convert email address to hyperlink

Inline image 1












Acredito ser importante propiciar facilidades aos nossos usuários.

Suponha que um dos seus relatórios demonstre uma listagem de Clientes ou Fornecedores com os emails nela. Talvez pudesse acrescentar uma facilidade para o seu usuário caso este desejasse enviar um e-mail.

Transforme os endereços de email em hyperlink e permita que um clique direto no respectivo endereço listado o encaminhe para isso.


Sub Convert_to_Hyperlink()

    Dim rng As Range 
    Dim cell As Range

    'Defina qui o Range onde tem os seus emails.
    Let rng = Range("B2:B100")

    For Each cell In rng 
        'Caso a célula esteja em branco ignore-a.

        If cell.Value <> "" Then 
            cell.Hyperlinks.Add ANCHOR:=cell, Address:="mailto:" & cell.Value, TextToDisplay:=cell.Value 
        End If 

    Next cell

End Sub

Tags: VBA,Tips, Excel, email, e-mail, hyperlink, address



Nenhum comentário:

Postar um comentário

diHITT - Notícias