Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Collegamento ipertestuale al Foglio da cui la cella copia il contenuto

Ultimo Aggiornamento: 21/08/2018 11:12
Post: 18
Registrato il: 09/02/2012
Età: 53
Utente Junior
2013
OFFLINE
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
Post: 3.654
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
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
Post: 593
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Senior
Excel2019
OFFLINE
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
Post: 18
Registrato il: 09/02/2012
Età: 53
Utente Junior
2013
OFFLINE
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
Post: 600
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Senior
Excel2019
OFFLINE
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
Post: 19
Registrato il: 09/02/2012
Età: 53
Utente Junior
2013
OFFLINE
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
Post: 3.659
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
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
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 13:07. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com