Apri una nuova cartella con 3 fogli (foglio1, foglio2, foglio3)
in un modulo inserisci questa macro (intera, con dichiarazione Public)
- Codice: Seleziona tutto
Public NomeF As String
Sub AttivaF()
Sheets(NomeF).Select
End Sub
Nel foglio1 inserisci in
A2 "Foglio2"
A3 "Foglio3"
ora nel Vba del foglio1 inserisci questo codice
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
CheckAreaA = "A2:A" & UR
If Not Application.Intersect(ActiveCell, Range(CheckAreaA)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
NomeF = Target
AttivaF
End If
End Sub
In questa maniera non occorrono gli Iperlink ma ogni volta che selezioni una cella in colonna "A" che riporta un nome foglio
verrà attivato il foglio corrispondente
Scarica questo File-Testpoi lo adatti
ciao