Dicas de Excel

Como Pegar URL de um Link no Excel com Fórmula

Hoje vou deixar uma dica simples, mas importante. Às vezes, por qualquer motivo, você pode precisar pegar a URL de uma célula com hiperlink para editar ela de alguma forma.

Para pegar a URL você vai precisar de uma macro simples, que pega o primeiro hiperlink atribuído à uma célula:

Function PegarLink(rng As Range) As String
      On Error Resume Next
       PegarLink = rng.Hyperlinks(1).Address
 End Function

Depois é só usar PegarLink como uma fórmula normal. Por exemplo, insira na célula B1 a fórmula abaixo para pegar o link em A1:

=PegarLink(A1)

Como adicionar a macro na minha planilha?

É fácil:

  1. Pressione ALT+F11 para abrir o Editor Visual Basic;
  2. Na pasta Módulos abra o Módulo 1. Se não encontrar nenhum módulo, clique com o botão direito e em Inserir > Módulo;
  3. Cole o código acima e pronto!

Deixe um comentário

O seu endereço de e-mail não será publicado.