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 RangeDim 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 <> "" Thencell.Hyperlinks.Add ANCHOR:=cell, Address:="mailto:" & cell.Value, TextToDisplay:=cell.ValueEnd IfNext cellEnd Sub
Tags: VBA,Tips, Excel, email, e-mail, hyperlink, address
Nenhum comentário:
Postar um comentário