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

|Blog Office VBA | Blog Excel | Blog Access | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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