Notifications
Clear all

[RESOLVIDO] hyperlink

5 Posts
1 Usuários
0 Reactions
1,227 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

boa tarde senhores, meu primeiro post no forum

tenho a seguinte situacao aqui, tenho uma lista com varios emails em txt puro e queria transformar todos em hyperlink, porem, nao queria fazer email a email e sim usar uma função.

já vi que tem a função HIPERLINK porém não satisfez minha necessidade.

Desde já grato.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/02/2011 1:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Pode copiar os emails do txt, colar na Coluna A a partir da Linha 2 e rodar a macro abaixo:

Sub HL()

Dim m As String

i = 2
j = Range("A65536").End(xlUp).Row

Do While i <= j

m = Cells(i, 1)

Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=m, TextToDisplay:=m
i = i + 1

Loop

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/02/2011 1:57 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Só consigo fazer isso através da macro? Ou tem outra opção nível mais baixo?

Att Junior.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/02/2011 1:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Veja se pode ser assim:

Supondo que o e-mail esteja em A2, utilize a fórmula:

=HIPERLINK("mailto:"&A2)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/02/2011 2:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado e parabens pelo conhecimento.

Att Junior.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/02/2011 2:11 pm