Condividi:        

MENU A TENDINA CON COLLEGAMENTO

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

MENU A TENDINA CON COLLEGAMENTO

Postdi zem » 17/05/09 16:14

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
Avatar utente
zem
Utente Junior
 
Post: 45
Iscritto il: 11/02/09 00:02

Sponsor
 

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi Anthony47 » 17/05/09 18:52

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi zem » 19/05/09 20:08

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?
Avatar utente
zem
Utente Junior
 
Post: 45
Iscritto il: 11/02/09 00:02

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi zem » 19/05/09 20:30

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'?
Avatar utente
zem
Utente Junior
 
Post: 45
Iscritto il: 11/02/09 00:02

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi Anthony47 » 19/05/09 21:55

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi zem » 20/05/09 13:48

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?
Avatar utente
zem
Utente Junior
 
Post: 45
Iscritto il: 11/02/09 00:02

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi ricky53 » 21/05/09 13:49

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi Anthony47 » 21/05/09 15:32

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi save87 » 22/03/16 09:23

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...
save87
Newbie
 
Post: 3
Iscritto il: 21/03/16 14:36

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi alfrimpa » 22/03/16 11:25

@ 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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi alfrimpa » 22/03/16 12:39

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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi alfrimpa » 22/03/16 14:01

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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MENU A TENDINA CON COLLEGAMENTO

Postdi save87 » 22/03/16 15:52

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
save87
Newbie
 
Post: 3
Iscritto il: 21/03/16 14:36


Torna a Applicazioni Office Windows


Topic correlati a "MENU A TENDINA CON COLLEGAMENTO":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti