Macro para inserir Hiperlink (Excel - VBA)

[sammuel]

Olá,

Gostaria de saber como criar uma macro para inserir um hiperlink em uma celula. A situação é o seguinte:

Tenho uma lista contendo a matrícula e nome dos colaboradores, para cada um deve ser inserido um hiperlink para outra planilha onde o nome da mesma é o número da matrícula.

A matrícula fica na coluna A e o nome na coluna B, e quero que o hiperlink seja na célula que tem o nome.

estou tentando usar a seguinte macro:

Sub Hiperlink()

Dim hyper As Integer

Dim texto As String

hyper = Range("A5").Value

texto = Range("B5").Value

Range("B5").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

hyper!A1, TextToDisplay:=texto

End Sub

Porém, quando executo esta macro aparece a seguinte mensagem para o comando que está na cor vermelha:

Erro de Compilaçã: Qualificador deve ser uma coleção.

[Ripacea]

Fala Sammuel, tudo bom!?

O seu código ficaria assim:

Dim texto As String
Dim hyper As String

Private Sub CommandButton1_Click()
'Compor o valor de hyper para ser o valor de A1 mais "!A1"
hyper = Range("A1").Value & "!A1"
'Defini o texto como sendo o valor de B1
texto = Range("B1").Value
'Mostra como exemplo como ficou o valor composto de hyper
Range("B3").Value = hyper
'Aplicar a Hyperlink a célula B1
Range("B1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        hyper, TextToDisplay:="texto"

End Sub

Neste caso eu inseri o código para ser ativado ao click de um commandbutton, mas funcionaria normalmente como uma macro.

O porque de definir as duas variáveis como String nem eu sei. rsrsrs Só sei que foi assim que deu certo.

Não entendo muito de VBA, tudo que aprendi foi fuçando, então perdoe-me não saber explicar exatamente o porque de Dim as String. hehehehe

Abração e boa sorte com seus projetos.

[Visitante]

Olá Amigo,

Através desse código é possivel eu linkar com uma sheet da mesma planilha? Se for possivel, como é realizado esse enderessamento?

Obrigado pela ajuda.

Att