Extrair endereço de um hyperlink em uma célula no Excel

[Douglas Medeiros]

Olá, tenho uma planilha no excel onde a coluna A tem o nome da pessoa

e na coluna B um hyperlink que guarda o e-mail desta pessoa.

veja abaixo...

logo na celula B2 guarda um e-mail do Carlos... preciso extrair o e-mail dele,

pode ser em uma fórmula na célula ao lado... na célula c2... ou com VBA...

preciso de um passo a passo de como fazer isso desde o início,

pois não faço a menor idéia por onde começar.

Agradeço desde já.

Grande Abraço

[LucJonny]

Oi ;D

Eu dei uma pesquisada, e achei um site com uma função, olha:

Function GetAddress(HyperlinkCell As Range)

GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")

End Function

Tu coloca essa função em um módulo da sua planilha, e tu só precisa digitar "=getaddres(celula)", no lugar da palavra celula tu coloca B1, B2 etc, a localização da célula, pra aparecer o e-mail.

Essa função só funciona se os endereços que tu quiser achar forem de e-mails, se tu quiser fazer o mesmo mas com endereços de sites, é a mesma função mas sem o 'mailto:'.

site: http://www.ozgrid.com/VBA/HyperlinkAddress.htm

Espero ter ajudado x]

[Douglas Medeiros]

Oi ;D

Eu dei uma pesquisada, e achei um site com uma função, olha:

Function GetAddress(HyperlinkCell As Range)

GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")

End Function

Tu coloca essa função em um módulo da sua planilha, e tu só precisa digitar "=getaddres(celula)", no lugar da palavra celula tu coloca B1, B2 etc, a localização da célula, pra aparecer o e-mail.

Essa função só funciona se os endereços que tu quiser achar forem de e-mails, se tu quiser fazer o mesmo mas com endereços de sites, é a mesma função mas sem o 'mailto:'.

site: http://www.ozgrid.com/VBA/HyperlinkAddress.htm

Espero ter ajudado x]

nossa... desde já agradeço... mas por favor...

como crio um módulo??

não manjo nadica... pode me ajudar com um passo a passo?? onde devo clicar... qual menu... e até que essa "função" fique disponível para eu usála com o sinal de igual "="...

valeu...

[LucJonny]

No excel, você aperta alt + F11, vai abrir a janela do microsoft visual basic...

No menu superior, clique em Inserir, depois módulo. Agora você cola a função que eu postei ali e pronto,

pode ir na planilha e digitar =getaddres(célula) :)