Criar Hiperlinks Automaticamente no Excel com VBA

O objetivo deste artigo é permitir que você crie automaticamente hiperlinks no Excel com VBA e também como remover hiperlink automaticamente no Excel com VBa.

Essa tarefa é importante porque caso você necessite criar este hiperlink diretamente, sem fórmula, você precisará fazer isso manualmente por padrão

Mas aqui você verá como realizar esta tarefa de forma automatizada.

O que são Hiperlinks?

Hiperlinks são uma forma de navegação no Excel, que permite que você crie atalhos.

Elas são utilizadas para criar menus, consultas e links diretos para arquivos, células e planilhas.

O Excel permite criar hiperlinks para:

1. Página da Web ou arquivo
2. Colocar no documento atual
3. Criar um novo documento
4. Endereço de email

Como criar Hiperlinks?

No Excel há duas formas de criar hiperlinks. Estático ou Dinâmico.

Para criar um hiperlink estático selecione uma determinada célula ou uma imagem e clique com o botão direito, selecionando a opção Link.

Nele defina o hiperlink conforme a sua necessidade.

Quais os Tipos de Hiperlinks?

No Excel existem dois tipos de Hiperlinks. Externo e Interno.

O Hiperlink Interno é um dos mais utilizados, com ele podem ser criados atalhos para células, planilhas ou intervalos nomeados.

E o Hiperlink Externo permite que crie novos documentos automaticamente, crie um email ou abra um outro arquivo.

Boas Práticas com Hiperlinks

Antes de criar um hiperlink no Excel é necessário atentar para algumas situações, afim de evitar problemas no seu funcionamento.

1. Ao criar um hiperlink estático com intervalo nomeado é necessário lembrar que se mudar o nome do intervalo ele não será alterado automaticamente no Hiperlink criado.
2. Também não altere o nome do arquivo que o hiperlink direciona, pois isso afetará e não irá trocar automaticamente no link do Excel.
3. Ao criar um link para endereço de email é necessário entender que ele irá abrir o Outlook ou outro programa de email e não a internet.
4. Se for utilizar a função Hiperlink para gerar um endereço dinâmico, teste a fórmula antes, e neste link há um vídeo e também um artigo e download de planilha de exemplo de como usar a função para cada caso de link.

Usos comuns para Hiperlinks no Excel

O hiperlink é um dos recursos mais utilizados no Excel para criação de planilhas organizadas.

Isso porque o hiperlink pode ser criado para imagens e criar com isso botões em um menu de navegação no Excel que permite navegar entre as planilhas da pasta de trabalho.

Hiperlinks em Formas e Imagens

O Excel permite que crie hiperlinks em formas e imagens no Excel.

Para isso basta clicar em Inserir->Imagens ou Formas e clicar com o botão direito em Link e selecione a opção que precisa.

Por exemplo criar hiperlinks para planilhas ou células dentro da pasta de trabalho que irão lhe ajudar a navegar de forma fácil.

Como Criar Hiperlinks Automaticamente com VBA no Excel

Em determinados casos temos a necessidade de criar hiperlinks para uma lista de dados de forma automática.

Estas situações podem ser por exemplo para acompanhar pacotes dos correios, encomendas em transportadoras, podendo ser amplamente utilizado em conjunto com o Sharepoint, criando poderosos relatórios.

Para criar hiperlinks automaticamente, sem a necessidade de criar manualmente, podemos usar o VBA.

No nosso código exemplo estamos realizando a consulta de endereços dos Correios.

O primeiro passo para o utilizar é habilitar a guia desenvolvedor no seu Excel.

Após isso, clique na guia Desenvolvedor e no botão Visual Basic.

No VBE, clique em Inserir->Módulo e adicione o código seguinte.

Para criar hiperlink para outro site apenas troque esta parte do código: http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=

Sub CriarHiperlink()
    
    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long

    Application.ScreenUpdating = False

    lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row
        
    For lControle = 2 To lUltimaLinhaAtiva
        Range("A" & lControle).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
            "http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI=" & _
            Range("A" & lControle).Value, TextToDisplay:="" & Range("A" & lControle).Value
    Next lControle
End Sub

Como Remover Hiperlinks Automaticamente com VBA no Excel

De forma semelhante a criação de hiperlinks, há muitas vezes que você precisa remover hiperlinks automaticamente para não fazer de forma manual.

Também deve habilitar a guia Desenvolvedor, inserir um módulo e colar o código abaixo.

Este código é especialmente útil quando temos arquivos com origem diversa que vem com estes hiperlinks e precisamos os remover.

Sub RemoverHiperlink()

    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long

    Application.ScreenUpdating = False

    lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row
        
    For lControle = 2 To lUltimaLinhaAtiva
        Range("A" & lControle).Select
        Selection.Hyperlinks.Delete
    Next lControle
End Sub

Download

Realize o download da planlha de exemplo de criar automaticamente hiperlinks no Excel com VBA.

Conclusão

Neste artigo vimos como a utilização de hiperlink no Excel é uma valiosa ferramenta para navegação.

Além disso aprendeu as diferentes formas de trabalhar com hiperlinks e como criar automaticamente hiperlinks utilizando VBA no Excel e também como os remover.