locked
link entre abas RRS feed

  • Discussão Geral

  • 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.

     

    segunda-feira, 30 de agosto de 2010 16:13

Todas as Respostas

  • 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
    quarta-feira, 1 de setembro de 2010 01:23