È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Collegamento ipertestuale al Foglio da cui la cella copia il contenuto

  • Messaggi
  • OFFLINE
    alessia.tafani
    Post: 18
    Registrato il: 09/02/2012
    Età: 53
    Utente Junior
    2013
    00 16/08/2018 18:52
    ciao a tutti
    Quando collego 2 celle di fogli diversi copiando il contenuto della prima nella seconda, vorrei cliccare sul contenuto copiato nella seconda cella per essere indirizzata al Foglio della prima cella da cui il contenuto viene copiato
    Esempio
    nella cella B2 del Foglio2 ho "Casa"
    nella cella A1 del Foglio1 ho la formula ='Foglio2'!B2 che mi restituisce "Casa"; vorrei che automaticamente si creasse anche il collegamento ipertestuale in modo che se clicco su "Casa" nella cella A1 del Foglio1 vado al Foglio2
    Questo lo devo fare per molte celle, è possibile evitare di farlo manualmente?
    (Per tornare al Foglio1 sono già organizzata perchè su tutti gli altri fogli c'è un pulsante che reindirizza al Foglio1)
    Grazie come sempre
    [SM=x423026]
    saluti
    Alessia
    Excel 2007
  • OFFLINE
    raffaele1953
    Post: 3.654
    Registrato il: 28/06/2011
    Città: AGORDO
    Età: 70
    Utente Master
    2013
    00 16/08/2018 20:19
    >>>Quando collego 2 celle di fogli diversi
    >>>nella cella B2 del Foglio2 ho "Casa
    >>>='Foglio2'!B2 che mi restituisce "Casa"
    Puoi allegare un piccolo allegato di 3/4 fogli. Penso che hai idee confuse in base al Tuo post. Iperlink ed formule

    Ps. Meglio il VBA
    [Modificato da raffaele1953 16/08/2018 20:20]
    Excel 2013
  • ONLINE
    Marius44
    Post: 593
    Registrato il: 24/06/2015
    Città: CATANIA
    Età: 80
    Utente Senior
    Excel2019
    00 16/08/2018 20:33
    Ciao
    Come dice Raffaele (un caro saluto) è meglio il VBA.
    Prova questa macro (adattala alle tue esigenze di riga e colonna)
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim aa As String, dove
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
      If Target.Count > 1 Then Exit Sub
      If Target.Value = "" Then Exit Sub
      aa = Target.Formula
      dove = Split(aa, "!")
      dove(0) = Mid(dove(0), 2)
      Sheets(dove(0)).Select
      Sheets(dove(0)).Range(dove(1)).Select
    End If
    End Sub
    

    Se selezioni una cella dell'intervallo A1:A10 del Foglio e questa cella contiene una formula di collegamento ad altro Foglio, ti seleziona la cella dell'altro Foglio.

    Ciao,
    Mario
  • OFFLINE
    alessia.tafani
    Post: 18
    Registrato il: 09/02/2012
    Età: 53
    Utente Junior
    2013
    00 20/08/2018 15:36
    Cari Mario e Raffaele,
    grazie per la risposta
    Come suggerito, invio un file con pochi fogli.
    Nella colonna A del Foglio "FABB U" ogni cella contiene formula di collegamento a cella di altro Foglio. Da FABB U vorrei poter andare al foglio collegato cliccando sulle celle della colonna A.
    Per la macro di Mario, non sono riuscita ad usarla, sicuramente perchè son una pera cotta!!!
    Di solito faccio Alt+F11, inserisci modulo, incollo la macro (la adatto alle celle che mi sevono) e con F5 la lancio. In questo caso con F5 non l'ha eseguita, bensì mi ha aperto l'elenco delle macro già presenti nel foglio di lavoro e tra quelle non c'era quella appena creata. Che ho sbagliato? [SM=x423057]
    Grazie
    saluti
    alessia
    Excel 2007
  • ONLINE
    Marius44
    Post: 600
    Registrato il: 24/06/2015
    Città: CATANIA
    Età: 80
    Utente Senior
    Excel2019
    00 20/08/2018 16:28
    Ciao
    Se guardi con attenzione la macro che ti ho suggerito vedrai che comincia con

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Ciò significa che quando fai ALT+F11 NON DEVI INSERIRE un modulo standard ma devi fare DOPPIOCLICK sul nome del Foglio che ti interessa e che appare sulla parte sinistra.
    Nel Modulo che appare inserisci la macro. Tieni presente che è programmata per l'intervallo "A1:A10"

    Fai sapere. Ciao,
    Mario
  • OFFLINE
    alessia.tafani
    Post: 19
    Registrato il: 09/02/2012
    Età: 53
    Utente Junior
    2013
    00 21/08/2018 10:30
    Grazie Mario.
    ho fatto come mi hai suggerito, proprio nel file di prova che avevo allegato, ma quando clicco su una cella nell'intervallo A1:A10 mi da il seguente errore:

    errore di run-time'9':
    Indice non incluso nell'intervallo

    con il debug mi evidenzia la stringa
    Sheets(dove(0)).Select

    Grazie
    alessia
    Excel 2007
  • OFFLINE
    raffaele1953
    Post: 3.659
    Registrato il: 28/06/2011
    Città: AGORDO
    Età: 70
    Utente Master
    2013
    00 21/08/2018 11:12
    Per alleggare, leggi qui http://www.freeforumzone.com/d/11202105/-COLORE-BLUE-FONT-BOLD-ATTENZIONE-SCARICARE-o-INSERIRE-un-FILE-ed-ALTRO-VEDI-QUI-/discussione.aspx

    Comunque un EX di VBA (colonna B = formule,colonna C = testo)
    Sub nomi_fogli() Crea elenco nomi ed Worksheet_SelectionChange nel foglio MENU
    Excel 2013