MENU A TENDINA CON COLLEGAMENTO

[zem]

Ciao a tutti..
Vorrei creare un menu a tendina che mi elenchi i 12 mesi con la possibiltà di cliccarci sopra e mandarmi ad un'altro foglio lavoro che io definirò.

Ho excel 2007

Grazie a voi

[Anthony47]

Lo puoi fare.
-Crea il tuo elenco, e usalo per impostare una convalida "da elenco" su una cella del tuo foglio corrente.
-Nella cella con convalida inserisci un hyperlink allo stesso foglio, cella A1.
-Poi tasto dx sul tab del nome foglio, scegli Visualizza codice; inserisci queste istruzioni nel frame di dx:

Codice: Seleziona tutto

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets(Range("C16").value).Select
End Sub


In questo caso ho assunto che la cella con l' elenco sia in C16, e che l' elenco contenga direttamente il nome del foglio su cui vuoi saltare; in generale, nella Sub metterai il codice che decide dove saltare in funzione del valore che hai inserito in cella. Il salto avverra' quando clicchi sull' hyperlink.

Oppure puoi usare una macro di Worksheet_Change, e in questo caso salterai appena hai modificato il contenuto della tua cella con convalida.

Se per "un'altro foglio lavoro che io definirò" intendevi una "cartella di lavoro" (=file), allora il cuore della macro sara' un Workbooks.Open Filename:="xxxx.xls"

Ciao.

[zem]

Ok, Allora io ho creato un foglio "LISTA" con i 12 mesi che vanno da A1:A12 a questo punto nell foglio "Dip" ho convalidato nella cella G10 con origine nel foglio "LISTA" e celle da A1:A12 e fino a qui funziona, mi appare la lista.
Ma non capisco come devo fare per l'Hypelink.
Ho inserito nel foglio "Dip" con pulsante dx "visualizza codice " questa funzione:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets(Range("g10").value).Select
End Sub
Ma ora che devo fare?
Se clicco su es: nella lista il mese di marzo non mi porta nel foglio Marzo nella stessa cartella.
Che faccio?

[zem]

Sono riuscito...
Ma ora sorge un'altra domanda...
Se in una cella qualsiasi metto un collegamento mi funziona con la lista ma se creo un bottone con un collegamento mi porta ad un'altro foglio.
Perche'?

[Anthony47]

Ogni problema ha la sua soluzione; ora che cosa intendi per " se creo un bottone con un collegamento mi porta ad un'altro foglio."??
Un aiutino, please...

ciao

[zem]

Hai ragione, mi sono spiegato male... forse la stanchezza.

Allora ricapitoliamo:
ho creato il menu a tendina in una cella "G10", ci clikko sopra e mi appare la freccettina a dx dellla cella, clikko sopra la frecettina e mi appare la lista nella cella "G10" e fino a qui tutto bene. Quando seleziono un mese nella lista dopo che devo fare?
Io ho creato vicino in "G12" un descrizione "OK"" con collegamento ad un "foglio1" dove risiedono le 12 celle della lista menu.
A questo punto se io ho bisogno di un bottone al posto della descrizione "OK" con il collegamento, non mi funziona.

Se creo 2 o piu' collegamenti mi mandano tutti allo stesso posto e cioè al mese che mi trovo evidenziato in quel momento nella lista.

Spero di essere stato piu' chiaro.

Un'altra cosa... La freccia del menu' può essere sempre visibile?

[ricky53]

Ciao,
la "freccia" diventa visibile quando selezioni la cella con la convalida impostata.

Mi sono un po' perso: puoi chiarire

A questo punto se io ho bisogno di un bottone al posto della descrizione "OK" con il collegamento, non mi funziona.

Se creo 2 o piu' collegamenti mi mandano tutti allo stesso posto e cioè al mese che mi trovo evidenziato in quel momento nella lista

Ciao da Rciky53

[Anthony47]

In aggiunta la messaggio di Ricky....
Stai forse dicendo che se nel tuo foglio ci sono due hyperlink, cliccando su qualsiasi del due vai sempre al foglio selezionato nella cella ?
Se e' cosi', allora come hyperlink nella cella "pivot" (quella in cui metti i mesi) imposta un collegamento a Foglio1 cella AZ23 (o un' cella non usata!), poi modifica la macro che ti diedi in

Codice: Seleziona tutto

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.SubAddress <> "Foglio1!AZ23" Then Exit Sub      '<<<< Aggiunta
Sheets(Range("G10").Value).Select
End Sub


Se non e' cosi', allora prova a descrivere ancora, saremo piu' fortunati.

Ciao.

[save87]

Salve,
io ho lo stesso problema,
in pratica devo creare un menu a tendina con una serie di anni (dal 2015 al 2063) e associare ad ogni anno del menu a tendina un collegamento al foglio Excel di quell'anno (2015.xls, 2016.xls.. ecc.).
ho seguito questa procedura:
- ho due fogli nella cartella di lavoro foglio 1 e foglio 2
- in foglio 2 ho creato l'elenco degli anni da 2015 a 2063 con i rispettivi collegamenti ai file anno per anno
- in foglio 1 alla cella n29 ho creato un menu a tendina con "convalida dati", e mi appare l'elenco degli anni
- ora però se seleziono nel menu a tendina l'anno 2018 non mi porta sul file 2018.xls ..., perché? , non mi da i collegamenti fatti sul foglio 2, ma solo il testo...

ho provato anche a seguire la procedura descritta sotto da Antony47 e purtroppo mi da questo errore "errore di run-time ''9'" indice non incluso nell'intervallo..

Spero ci sia una soluzione a questo problema...

[alfrimpa]

@ Save87

Ti ho dato una prima risposta qui

viewtopic.php?f=26&t=106608

e ti ho inserito questa macro

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim file As String
file = Range("n29").Value
If Not Intersect(Target, Range("n29")) Is Nothing Then
    Workbooks.Open (file)
End If
End Sub

Provala un po' e vedi se funziona.

[alfrimpa]

Dimenticavo di dirti che sul foglio2 non deve esserci solo l'anno ma il percorso completo

Es. C:\TuaDirectory\2016.xlsx

e questo per tutti i file che hai.

Comunque se vuoi visualizzare solo l'anno c'è il modo di aprire il file ugualmente.

[alfrimpa]

Ciao Save87

Ti allego altro file dove ho cercato di riprodurre la tua situazione

http://www.filedropper.com/save871

Nella macro allegata

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPath As String
Dim est As String
Dim file As String
myPath = "C:\TuaDirectory\"    ' <===== Da modificare
est = ".xlsx" ' <===== 'da modificare
file = myPath & Range("n29").Value & est
If Not Intersect(Target, Range("n29")) Is Nothing Then
    Workbooks.Open (file)
End If
End Sub

devi modificare le istruzione indicate.

Prova e fai sapere.

[save87]

Grazie mille Alfredo e perdonami se non ti ho risposto all'altro post,
avevo provato e non mi funzionava,
ora riprovo con questo e ti faccio sapere...

Grazie ancora