Collegamento a un riferimento

uso la seguente formula per la ricerca di dati un altri fogli componenti la cartella:

=SE(CONTA.SE('foglio1'!A:B;B1)>0;CERCA.VERT(B1;'foglio1'!A:B;2;0);SE(CONTA.SE('foglio2'!A:B;B1)>0;CERCA.VERT(B1;'foglio2'!A:B;2;0);SE(CONTA.SE('foglio3'!A:B;B1)>0;CERCA.VERT(B1;'foglio3'!A:B;2;0);SE(CONTA.SE('foglio4'!A:B;B1)>0;CERCA.VERT(B1;'foglio4'!A:B;2;0);"Non trovato"))))

E' possibile che il risultato ottenuto dalla formula faccia in modo di effettuare un collegamento, tipo quello ipertestuale, che apra il foglio ed evidenziare la riga ove si trova il dato?

Non so se sono stato abbastanza chiaro.... Cmq ringrazio per le risposte!

 

 

Informazioni domanda


Ultimo aggiornamento febbraio 22, 2018 Visualizzazioni 196 Si applica a:
Risposta

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.

 

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Risposta

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.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.