Collegamento a un riferimento

Grazie per l'ineressamento, Mauro... ma non funziona.

Vedo se riesco a spiegare meglio!!

la cartella è composta da 5 fogli, tutti rinominati.

il 1° foglio, in colonna B, contiene dei numeri, per i quali nella colonna C, con la formula sopra citata, trascrive il nominativo trovato nei restanti 4 fogli: tali nominativi sono tutti posizionati nella colonna B.

La mia necessità sarebbe quella che il nominativo avuto con la formula avesse anche il collegamento (tipo ipertestuale) che una volta cliccatoci sopra, mi evide4nzi il nominativo che nel rispettivo foglio è comprensivo di tutte le sue generalità.

Sono a tua disposizione per altri chiarimenti.

Funzionare funziona per il contesto illustrato nel post, altrimenti non l'avrei postata.

I nomi dei fogli sono ininfluenti. Basta mettere il nome corretto nell'Array. Nel mio esempio sono Foglio2/3/4/5.

Inoltre, il tutto viene eseguito quando inserisci un valore in colonna A. Io non vedo il tuo file e non so come è strutturato...

Tu hai già dei valori in colonna B del Foglio1?  Se sì, prova questa:

Public Sub m()
 
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rng As Range
    Dim s As String
    Dim lRiga As Long
    Dim lng As Long
   
    Set sh1 = ThisWorkbook.Worksheets("Foglio1")
    
    With sh1
        lRiga = .Range("B" & .Rows.Count).End(xlUp).Row
        For lng = 2 To lRiga
            For Each sh In ThisWorkbook.Worksheets(Array("Foglio2", "Foglio3", "Foglio4", "Foglio5"))
                Set rng = sh.Range("A:A").Find( _
                            What:=.Range("B" & lng).Value, _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=True)
                If Not rng Is Nothing Then
                    .Range("C" & lng).Hyperlinks.Add _
                        Anchor:=.Range("C" & lng), _
                        Address:="", _
                        SubAddress:=sh.Name & "!" & rng.Offset(0, 1).Address, _
                        TextToDisplay:=rng.Offset(0, 1).Value
                 End If
                 Set rng = Nothing
             Next
        Next
     End With
    
    Set rng = Nothing
    Set sh1 = Nothing
    Set sh = Nothing
        
End Sub

La macro va messa in un modulo standard. Modifica i nomi dei fogli con i tuoi.

Provala e fai sapere, grazie.

Ho riprovato, ma da lo stesso errore.

nella cella d81 ho un dato numerico, come nelle precedenti e successive celle. nella cella e81 vi è il risultato della formula che da questo punto in poi non viene collegato ipertestualmente

Grazie

Non riesco a riprodurre l'errore.

Puoi, per favore, postare il file in Skydrive o, se contiene dati sensibili, postarlo qui:

maurogsc

chiocciola

alice.it

Qui trovi il file utilizzato per l'esempio:

http://www.maurogsc.eu/esempiforum12/trovacollega.zip

Se non viene trovato il valore, non c'è nessun errore.

Grazie.