Criar_Hiperlilnk baseado no nome das guias

Ir em baixo

Criar_Hiperlilnk baseado no nome das guias

Mensagem por alexandrevba em Qua Dez 11, 2013 6:47 pm

Boa noite!!

Criar hiperlinks baseado em uma coluna onde em cada célula dessa coluna tem o nome da guia que deseja criar o hipoerlink

Não testado!
Código:
Sub Criar_Hiperlilnk()
    Dim cell As Range, ws As Worksheet
    With Sheets("Plan1") 'Guia com os nomes que setornaram Hiperlink
        On Error Resume Next
        For Each cell In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
            If cell.Value <> "" Then
                Set ws = Nothing
                Set ws = Sheets(cell.Value)
                If Not ws Is Nothing Then
                    .Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:=("'" & cell.Value & "'!A1")
                End If
            End If
        Next cell
        On Error GoTo 0
    End With
End Sub
Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum