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:
- Pressione ALT+F11 para abrir o Editor Visual Basic;
- 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;
- Cole o código acima e pronto!
Nossa, funcionou muito bem…Obrigado…Nota 10
Perfeita a solução
olá,
deu certo, porém ao vim veio dessa forma:
https://portalunico.siscomex.gov.br/ccta/
o correto deveria vim dessa forma:
portalunico.siscomex.gov.br/ccta/#/detalhar-carga/111808
pelo menos é a forma que iria funcionar para mim.
Olá Valdir,
O Excel interpreta que tudo o que vem depois de ? ou # são parâmetros da URL, que ele chama de SubAdress. Nesse caso, você pode pegar essa segunda parte, alterando assim:
PegarLink = rng.Hyperlinks(1).Address & “#” & rng.Hyperlinks(1).SubAddress