COPIARE COLLEGAMENTI IPERTESTUALI

[anchife]

Buongiorno, sono nuovo e vi ringrazio anticipatamente del vostro aiuto.
Ho la necessità fi creare circa 1000 collegamenti ipertestuali in un file
mi spiego
Ho bisogno di creare un collegamento ipertestuale tra una cella nel foglio2 ad una cella nel foglio1 (es. cliccando sul collegamento in a10 del foglio 2 mi deve portare alla cella a10 del foglio 1) e questo deve essere ripetuto fino alla cella a1000 del foglio1 con le corrispondenze mantenute( a11 foglio2 porta ad a11 foglio1, a12 foglio1 porta ad a12 foglio1 etc.) vorrei sapere se c'è un mos
do per fare cio' senza dover andare ad ogni cella e fare il collegamento.
Spero di aver spiegato bene il mio problema...
Grazie a tutti coloro che mi aiuteranno

[Anthony47]

Se la necessita' e' quella delineata, allora forse piu' che una miriade di collegamenti ipertextuali ti potrebbe servire ad esempio il "dopioclick". Ad esempio:
1) metti questo codice nel "modulo vba" di Foglio2 (il foglio da cui vuoi poter saltare su Foglio1)

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim CkArea As String
CkArea = "B2:C10"           '<<< L'area del foglio da cui vuoi poter SALTARE a Foglio1
If Not Application.Intersect(Range(CkArea), Target) Is Nothing Then
    Application.Goto Sheets("Foglio1").Range(Target.Address)
End If
End Sub


A questo scopo, fai tasto dx sul tab col nome Foglio2, scegli Visualizza codice; poi copia il codice e incollalo nel frame vuoto di destra dell'editor delle macro che si e' aperto.
La riga marcata <<< va personalizzata come da commento

2) A questo punto vai su Foglio2 e fai "doppioclick" su una cella compresa nell'area dichiarata sulla riga marcata <<<.

Fai sapere se e' Ok cosi'...

[anchife]

Grazie mille è perfetto ......anzi rende ancora più efficace l'azione che mi serve
Il codice è assolutamente funzionante.
Grazie mille