MACRO OU HIPERLINK - tem como ser automático com base em coluna

Lamcarter · 11 de dezembro de 2013

Pessoal, nos tópicos encontrado não consegui visualizar um contexto para meu caso.

Estou tentando fazer o seguinte:

Em uma Planilha do Excell possuo uma Plen denominada NOMES (com os nomes dos clientes todos em ordem alfabética na coluna A - iniciando no A1) e possuo várias planilhas, uma com cada nome dos clientes.

Gostaria de saber se tem como automatizar ou criar uma macro para que quando eu clicar no nome do cliente ir direto na Planilha com seu nome.

Sei que tem como gravar uma a uma e ir vinculando-as, porém são inúmeros nomes, gostaria de saber se tem como fazer isso.

Obrigado pela atenção.

zinhovba · 11 de dezembro de 2013

Boa noite!!

Tente algo assim..

Sub ZinhoVBA_1164446()
    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