link entre abas

Question

Pessoal,

Tenho uma aba ("Resumo") que é alimetada com informações contidas em outras abas criadas a partir de um modelo. Na aba Resumo tenho um botão chamado novo, que faz nada mais que uma cópia da aba Modelo, e altera o nome para o solicitado, e insere na aba Resumo o nome e as demais informações contidas na nova aba.

O Problema, é que terei muitas abas criadas com base na modelo, o que torna inviável a navegação manual.

Preciso de alguma forma, fazer com que ao clicar no nome, na aba Resumo, ele abra automaticamente a sua referida aba.

Tentei de várias maneiras, e até o momento nã consegui criar esse link.

 

Answer 1

Option Explicit

Sub GeraÍndice()
  Dim ws As Worksheet
  Dim wsResumo As Worksheet
  Dim n As Long
  
  Set wsResumo = Sheets("Resumo")
  With wsResumo
    .Cells.Delete
    For Each ws In Sheets
      If ws.Name <> wsResumo.Name Then
        n = n + 1
        .Cells(n, "A") = n
        .Hyperlinks.Add Anchor:=.Cells(n, "B"), Address:="", SubAddress:=ws.Name & "!A1", TextToDisplay:=ws.Name
      End If
    Next ws
  End With
  
End Sub

---

http://www.ambienteoffice.com.br