Collegamento automatico fogli da indice

Question

Ciao a tutti,

La mia richiesta è aggiornare questa macro per poter inserire un’ulteriore colonna nell’indice che mi riporti automaticamente i collegamenti ipertestuali ai rispettivi fogli.

Spero possiate aiutarmi

Stefania

Private Sub Worksheet_Activate()

Dim sh As Worksheet

Dim lRiga As Long

lRiga = 1

With Me

.Cells.Clear

For Each sh In ThisWorkbook.Worksheets

If sh.Name <> .Name Then

.Range("a" & lRiga).Value = sh.Range("c1").Value

.Range("b" & lRiga).Value = sh.Range("f8").Value

.Range("c" & lRiga).Value = sh.Range("i8").Value

.Range("d" & lRiga).Value = sh.Range("a14").Value

.Range("e" & lRiga).Value = sh.Range("d4").Value

lRiga = lRiga + 1

End If

Next

End With

Set sh = Nothing

End Sub

---

Answer 1

Ciao a tutti,

La mia richiesta è aggiornare questa macro per poter inserire un’ulteriore colonna nell’indice che mi riporti automaticamente i collegamenti ipertestuali ai rispettivi fogli.

 

---

Se(se) ho capito, prova di aggiungere questo codice prima di lRiga = lRiga + 1:

                .Range("F" & lRiga).Hyperlinks.Add _

                    Anchor:=.Range("F" & lRiga), _

                    Address:="", _

                    SubAddress:=sh.Name & "!A1", _

                    TextToDisplay:=sh.Name

Answer 2

Funziona!grazie mille davvero!

E ci mancherebbe! ;-)

Grazie per il cortese riscontro, buon lavoro.

Answer 3

Funziona!grazie mille davvero!