Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro legate a voci di un menu a tendina dinamico

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

Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 05/12/13 14:25

Sono nuovissimo del forum e un molto più che principiante di excel.
Sto cercando la soluzione ad un problema.
Devo legare delle macro alle voci di un elenco a tendina (cella B2) che dipende da un altro elenco a tendina (cella A2) (credo si chiami elenco dinamico, spero di non dire cavolate!).
Ovvero nel primo menù selezionando la voce B mi fa aprire nel secondo menù le voci correlate a B, per esempio: Ba, Bb, Bc.
Arriviamo al mio problema: Quando selezione, per esempio, nel secondo menù Bb vorrei far partire una macro che prende 2 dati da un altro foglio (Foglio2) per riportarli nel foglio corrente (Foglio1) rispettivamente alle celle, per esempio, B6 e C6.
Come faccio? C'è un video, una spiegazione grafica??? Cioè avrei bisogno di una spiegazione "terra terra" per non perdermi!!!!
Ringrazio chiunque abbia il buon cuore di aiutarmi.
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Sponsor
 

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 05/12/13 14:50

La creazione dei 2 elenchi "dinamici" l'ho eseguita seguendo questo video: http://www.youtube.com/watch?v=sheb4dtQNHE
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi wallace&gromit » 05/12/13 15:44

se nel foglio 2 i valori che ti servono si trovano sulla stessa riga in cui si trova il risultato della tua seconda selezione (per intenderci se tu hai selzionato "Frutta" in A2 e "arance" in B2 e in foglio 2 hai colonna A: lista della frutta colonna B: prezzo), allora ti basta la formula =cerca.vert(B2;Foglio2!A:B;2;0), che si aggiornerà di volta in volta a seconda della tua selezione.

Se invece i tuoi dati sono organizzati in modo più complesso dovrai spiegarti meglio
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1421
Iscritto il: 16/01/12 14:21

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 05/12/13 22:14

Allora ho creato 2 menu a tendina seguendo secondo quanto descritto nella seconda parte del video youtube postato sopra.
Così facendo nella seconda tendina (Foglio1, cella B2) posso visualizzare diverse voci come: Cane, Gatto, Canarino, Tartaruga, ....
Voglio assegnare ad ogni nome che compare una macro: Cane --> Macro1, Gatto--> Macro2, Canarino --> Macro3, Tartaruga --> Macro4, ecc. Come faccio?
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Flash30005 » 06/12/13 00:54

Ciao Fabrx e benvenuto nel Forum

inserisci questo codice nel Vba del foglio interessato alla cella B2 (il codice non deve andare nel modulo)
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Select Case Target
Case "Cane"
macro1
Case "Gatto"
Macro2
Case "Canarino"
Macro3
Case "Tartaruga"
Macro4
End Select
End Sub



Per inserire il codice nel Vba devi copiare l'intero codice qui presente con apposito comando del Forum "Seleziona tutto"
Tasto Dx del mouse selezioni la voce "Copia"
apri il tuo file di Excel e premi i tasti Alt+F11
clicchi sugli oggetti (frame a sinistra) e precisamente sul nome del foglio di tuo interesse (dove hai le tendine)
posizioni il mouse sul frame di destra e con il tasto destro del mouse selezioni la voce "Incolla"
chiudi il Vba con la "X" in alto a destra
e ora prova a cambiare il valore della cella in "B2"


Ricorda che le macro devono esistere altrimenti andrà in errore

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 06/12/13 16:19

GRazie mille Flash30005 era proprio quello che cercavo! Funziona! Grazie davvero!!!!!!!!!!

Vista la tua competenza vorrei sottoporti una nuova questione:

Ho creato un nuovo menù indipendente dagli altri 2 sopra esposti e vorrei che alla parola "animali" scelta in tale menù (Foglio1, cella A9) mi facesse visualizzare su altri 2 menù (già creati) 2 voci (in essi contenuti) in contemporarea: nel primo la voce "mammiferi" (Foglio1, cella A2) e nel secondo la voce "rettili" (Foglio1, cella A5). Come faccio?
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 08/12/13 16:47

Flash30005 ha scritto:Ciao Fabrx e benvenuto nel Forum

inserisci questo codice nel Vba del foglio interessato alla cella B2 (il codice non deve andare nel modulo)
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Select Case Target
Case "Cane"
macro1
Case "Gatto"
Macro2
Case "Canarino"
Macro3
Case "Tartaruga"
Macro4
End Select
End Sub



Per inserire il codice nel Vba devi copiare l'intero codice qui presente con apposito comando del Forum "Seleziona tutto"
Tasto Dx del mouse selezioni la voce "Copia"
apri il tuo file di Excel e premi i tasti Alt+F11
clicchi sugli oggetti (frame a sinistra) e precisamente sul nome del foglio di tuo interesse (dove hai le tendine)
posizioni il mouse sul frame di destra e con il tasto destro del mouse selezioni la voce "Incolla"
chiudi il Vba con la "X" in alto a destra
e ora prova a cambiare il valore della cella in "B2"


Ricorda che le macro devono esistere altrimenti andrà in errore

ciao



GRazie mille Flash30005 era proprio quello che cercavo! Funziona! Grazie davvero!!!!!!!!!!
Però ho provato a mettere 2 codici insieme e mi segnala errore. Ho scritto così:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$5" Then Exit Sub
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
End Sub


Mi segnala la seconda riga :Private Sub Worksheet_Change(ByVal Target As Range) come errore! What's happened?????? Help
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Flash30005 » 08/12/13 17:59

Ma non capisco se hai inserito due volte
Private Sub Worksheet_Change(ByVal Target As Range)
se così va sicuramente in errore perché non ce ne possono essere due
quindi per avere una seconda possibilità dovrai modificare il precedente codice
Codice: Seleziona tutto
If Target.Address <> "$C$2" Then goto saltaC2
segue la select
...
End Select
End Sub

SaltaC2:  'inserisci questa label in questo punto

If Target.Address <> "$C$5" Then Exit Sub
segue la seconda select
...



ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 08/12/13 18:37

Flash30005 ha scritto:Ma non capisco se hai inserito due volte
Private Sub Worksheet_Change(ByVal Target As Range)
se così va sicuramente in errore perché non ce ne possono essere due
quindi per avere una seconda possibilità dovrai modificare il precedente codice
Codice: Seleziona tutto
If Target.Address <> "$C$2" Then goto saltaC2
segue la select
...
End Select
End Sub

SaltaC2:  'inserisci questa label in questo punto

If Target.Address <> "$C$5" Then Exit Sub
segue la seconda select
...



ciao



Cioè così?
Codice: Seleziona tutto
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then goto SaltaC2
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
End Sub

SaltaC2: If Target.Address <> "$C$5" Then Exit Sub
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
End Sub
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 09/12/13 16:40

Fabrx ha scritto:
Flash30005 ha scritto:Ma non capisco se hai inserito due volte
Private Sub Worksheet_Change(ByVal Target As Range)
se così va sicuramente in errore perché non ce ne possono essere due
quindi per avere una seconda possibilità dovrai modificare il precedente codice
Codice: Seleziona tutto
If Target.Address <> "$C$2" Then goto saltaC2
segue la select
...
End Select
End Sub

SaltaC2:  'inserisci questa label in questo punto

If Target.Address <> "$C$5" Then Exit Sub
segue la seconda select
...



ciao



Cioè così?
Codice: Seleziona tutto
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then goto SaltaC2
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
End Sub

SaltaC2: If Target.Address <> "$C$5" Then Exit Sub
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
End Sub



Non funziona. Mi segnala errore. Mi evidenzia goTo SaltaC2 !!! Cosa non funziona?
Ti immetto tutto il codice scritto:
Codice: Seleziona tutto
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then goto SaltaC2
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
End Sub

SaltaC2: If Target.Address <> "$C$5" Then goto SaltaC5
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
End Sub

SaltaC5: If Target.Address <> "$D$2" Then goto SaltaD2
Select Case Target
Case "Atalanta"
Macro1ca
Case "Bologna"
Macro1cb
Case "Cagliari"
Macro1cc
Case "Catania"
Macro1cd
Case "Chievo"
Macro1ce
Case "Fiorentina"
Macro1cf
Case "Genoa"
Macro1cg
Case "Inter"
Macro1ch
Case "Juventus"
Macro1ci
Case "Lazio"
Macro1cl
Case "Livorno"
Macro1cm
Case "Milan"
Macro1cn
Case "Napoli"
Macro1co
Case "Parma"
Macro1cp
Case "Roma"
Macro1cq
Case "Sampdoria"
Macro1cr
Case "Sassuolo"
Macro1cs
Case "Torino"
Macro1ct
Case "Udinese"
Macro1cu
Case "Verona"
Macro1cv
Case "Arsenal"
Macro2ca
Case "Aston"
Macro2cb
Case "Cardiff"
Macro2cc
Case "Chelsea"
Macro2cd
Case "Crystal"
Macro2ce
Case "Everton"
Macro2cf
Case "Fulham"
Macro2cg
Case "Hull"
Macro2ch
Case "Liverpool"
Macro2ci
Case "M City"
Macro2cl
Case "M UTD"
Macro2cm
Case "Newcastle"
Macro2cn
Case "Norwich"
Macro2co
Case "Southampton"
Macro2cp
Case "Stoke"
Macro2cq
Case "Sunderland"
Macro2cr
Case "Swansea"
Macro2cs
Case "Tottenham"
Macro2ct
Case "WestBrom"
Macro2cu
Case "WestHam"
Macro2cv
Case "Ajaccio"
Macro3ca
Case "Bastia"
Macro3cb
Case "Bordeaux"
Macro3cc
Case "EvianTG"
Macro3cd
Case "Giungamp"
Macro3ce
Case "Lille"
Macro3cf
Case "Lione"
Macro3cg
Case "Lorient"
Macro3ch
Case "Marsiglia"
Macro3ci
Case "Monaco"
Macro3cl
Case "Montpellier"
Macro3cm
Case "Nantes"
Macro3cn
Case "Nizza"
Macro3co
Case "PSG"
Macro3cp
Case "Reims"
Macro3cq
Case "Rennes"
Macro3cr
Case "StEtienne"
Macro3cs
Case "Sochaux"
Macro3ct
Case "Tolosa"
Macro3cu
Case "Valenciennes"
Macro3cv
Case "Amburgo"
Macro4ca
Case "Augsburg"
Macro4cb
Case "B Leverkusen"
Macro4cc
Case "B Monaco"
Macro4cd
Case "B Dortmund"
Macro4ce
Case "B Mgladbach"
Macro4cf
Case "Braunschweig"
Macro4cg
Case "Francoforte"
Macro4ch
Case "Friburgo"
Macro4ci
Case "Hannover"
Macro4cl
Case "Hertha"
Macro4cm
Case "Hoffenheim"
Macro4cn
Case "Mainz"
Macro4co
Case "Norimberga"
Macro4cp
Case "Schalke"
Macro4cq
Case "Stoccarda"
Macro4cr
Case "W Brema"
Macro4cs
Case "Wolfsburg"
Macro4ct
Case "Almeria"
Macro5ca
Case "At Bilbao"
Macro5cb
Case "At Madrid"
Macro5cc
Case "Barcellona"
Macro5cd
Case "Betis"
Macro5ce
Case "Celta Vigo"
Macro5cf
Case "Elche"
Macro5cg
Case "Espanyol"
Macro5ch
Case "Getafe"
Macro5ci
Case "Granada"
Macro5cl
Case "Levante"
Macro5cm
Case "Malaga"
Macro5cn
Case "Osasuna"
Macro5co
Case "Rayo Vallecano"
Macro5cp
Case "R Madrid"
Macro5cq
Case "R Sociedad"
Macro5cr
Case "Siviglia"
Macro5cs
Case "Valensia"
Macro5ct
Case "Valladolid"
Macro5cu
Case "Villareal"
Macro5cv
Case "Academica"
Macro6ca
Case "Arouca"
Macro6cb
Case "Belenenses"
Macro6cc
Case "Benfica"
Macro6cd
Case "Estoril"
Macro6ce
Case "Gil Vicente"
Macro6cf
Case "Maritimo"
Macro6cg
Case "Nacional"
Macro6ch
Case "Olhanense"
Macro6ci
Case "Pacos Ferreira"
Macro6cl
Case "Porto"
Macro6cm
Case "Rio Ave"
Macro6cn
Case "Braga"
Macro6co
Case "Sporting Lisbona"
Macro6cp
Case "Vitoria Guimaraes"
Macro6cq
Case "Vitoria Setubal"
Macro6cr
Case "Ajax"
Macro7ca
Case "Alkmaar"
Macro7cb
Case "Cambuur"
Macro7cc
Case "Den Haag"
Macro7cd
Case "Feyenoord"
Macro7ce
Case "GAE"
Macro7cf
Case "Groningen"
Macro7cg
Case "Heerenveen"
Macro7ch
Case "Heracles"
Macro7ci
Case "NAC"
Macro7cl
Case "NEC"
Macro7cm
Case "PSV Eindhoven"
Macro7cn
Case "Roda"
Macro7co
Case "Twente"
Macro7cp
Case "Utrecht"
Macro7cq
Case "Vitesse"
Macro7cr
Case "Waalwijk"
Macro7cs
Case "Zwolle"
Macro7ct
Case "Amira"
Macro8ca
Case "Austria Vienna"
Macro8cb
Case "Grodig"
Macro8cc
Case "Rapid Vienna"
Macro8cd
Case "Ried"
Macro8ce
Case "Red Bull Salisburgo"
Macro8cf
Case "Innsbruck"
Macro8cg
Case "Neustadt"
Macro8ch
Case "WAC"
Macro8ci
Case "Sturm Graz"
Macro8cl
Case "Anderlecht"
Macro9ca
Case "Cercle Brugge"
Macro9cb
Case "Charleroi"
Macro9cc
Case "Club Brugge"
Macro9cd
Case "Genk"
Macro9ce
Case "Gent"
Macro9cf
Case "Kortrijk"
Macro9cg
Case "OH Leuven"
Macro9ch
Case "Lierse"
Macro9ci
Case "Lokeren"
Macro9cl
Case "Malines"
Macro9cm
Case "RAEC Mons"
Macro9cn
Case "Oostende"
Macro9co
Case "Standard Liegi"
Macro9cp
Case "Waasland"
Macro9cq
Case "Zulte Waregem"
Macro9cr
Case "Apollon"
Macro10ca
Case "ARIS"
Macro10cb
Case "Asteras Tripolis"
Macro10cc
Case "Atromitos"
Macro10cd
Case "Ergotelis"
Macro10ce
Case "Kalloni"
Macro10cf
Case "Levadiakos"
Macro10cg
Case "OFI Creta"
Macro10ch
Case "Olympiakos"
Macro10ci
Case "Panaitolikos"
Macro10cl
Case "Panathinaikos"
Macro10cm
Case "Panionios"
Macro10cn
Case "Panthrakikos"
Macro10co
Case "PAOK"
Macro10cp
Case "PAS Giannina"
Macro10cq
Case "Platanias"
Macro10cr
Case "Veria"
Macro10cs
Case "Xanthi"
Macro10ct
Case "Amkar"
Macro11ca
Case "Anzhi"
Macro11cb
Case "CSKA Mosca"
Macro11cc
Case "Dinamo Mosca"
Macro11cd
Case "Krasnodar"
Macro11ce
Case "Kryliya"
Macro11cf
Case "Kuban Krasnodar"
Macro11cg
Case "Lokomotiv Mosca"
Macro11ch
Case "Rostov"
Macro11ci
Case "Rubin Kazan"
Macro11cl
Case "Spartak Mosca"
Macro11cm
Case "Terek Grozny"
Macro11cn
Case "Tom Tomsk"
Macro11co
Case "Ural"
Macro11cp
Case "Volga"
Macro11cq
Case "Zenit"
Macro11cr
Case "Akhisar"
Macro12ca
Case "Antalyaspor"
Macro12cb
Case "Besiktas"
Macro12cc
Case "Bursaspor"
Macro12cd
Case "Caykur Rizespor"
Macro12ce
Case "Elazigspor"
Macro12cf
Case "Eskisehirspor"
Macro12cg
Case "Fenerbahce"
Macro12ch
Case "Galatasaray"
Macro12ci
Case "Gazientespor"
Macro12cl
Case "Genclerbirligi"
Macro12cm
Case "Karabukspor"
Macro12cn
Case "Kasimpasa"
Macro12co
Case "Kayseri Erciyesspor"
Macro12cp
Case "Kayserispor"
Macro12cq
Case "Konyaspor"
Macro12cr
Case "Sivasspor"
Macro12cs
Case "Trabzonspor"
Macro12ct
Case "Znojmo"
Macro13ca
Case "Banik Ostrava"
Macro13cb
Case "Bohemians"
Macro13cc
Case "Dukla Praga"
Macro13cd
Case "Jablonec"
Macro13ce
Case "Jihlava"
Macro13cf
Case "Mlada"
Macro13cg
Case "Pribram"
Macro13ch
Case "Sigma Olomouc"
Macro13ci
Case "Slavia Praga"
Macro13cl
Case "Slovacko"
Macro13cm
Case "Slovan Liberec"
Macro13cn
Case "Sparta Praga"
Macro13co
Case "Teplice"
Macro13cp
Case "Viktoria Plzen"
Macro13cq
Case "Brno"
Macro13cr
End Select
End Sub

SaltaD2: If Target.Address <> "$D$5" Then Exit Sub
Select Case Target
Case "Atalanta"
Macro1oa
Case "Bologna"
Macro1ob
Case "Cagliari"
Macro1oc
Case "Catania"
Macro1od
Case "Chievo"
Macro1oe
Case "Fiorentina"
Macro1of
Case "Genoa"
Macro1og
Case "Inter"
Macro1oh
Case "Juventus"
Macro1oi
Case "Lazio"
Macro1ol
Case "Livorno"
Macro1om
Case "Milan"
Macro1on
Case "Napoli"
Macro1oo
Case "Parma"
Macro1op
Case "Roma"
Macro1oq
Case "Sampdoria"
Macro1or
Case "Sassuolo"
Macro1os
Case "Torino"
Macro1ot
Case "Udinese"
Macro1ou
Case "Verona"
Macro1ov
Case "Arsenal"
Macro2oa
Case "Aston"
Macro2ob
Case "Cardiff"
Macro2oc
Case "Chelsea"
Macro2od
Case "Crystal"
Macro2oe
Case "Everton"
Macro2of
Case "Fulham"
Macro2og
Case "Hull"
Macro2oh
Case "Liverpool"
Macro2oi
Case "M City"
Macro2ol
Case "M UTD"
Macro2om
Case "Newcastle"
Macro2on
Case "Norwich"
Macro2oo
Case "Southampton"
Macro2op
Case "Stoke"
Macro2oq
Case "Sunderland"
Macro2or
Case "Swansea"
Macro2os
Case "Tottenham"
Macro2ot
Case "WestBrom"
Macro2ou
Case "WestHam"
Macro2ov
Case "Ajaccio"
Macro3oa
Case "Bastia"
Macro3ob
Case "Bordeaux"
Macro3oc
Case "EvianTG"
Macro3od
Case "Giungamp"
Macro3oe
Case "Lille"
Macro3of
Case "Lione"
Macro3og
Case "Lorient"
Macro3oh
Case "Marsiglia"
Macro3oi
Case "Monaco"
Macro3ol
Case "Montpellier"
Macro3om
Case "Nantes"
Macro3on
Case "Nizza"
Macro3oo
Case "PSG"
Macro3op
Case "Reims"
Macro3oq
Case "Rennes"
Macro3or
Case "StEtienne"
Macro3os
Case "Sochaux"
Macro3ot
Case "Tolosa"
Macro3ou
Case "Valenciennes"
Macro3ov
Case "Amburgo"
Macro4oa
Case "Augsburg"
Macro4ob
Case "B Leverkusen"
Macro4oc
Case "B Monaco"
Macro4od
Case "B Dortmund"
Macro4oe
Case "B Mgladbach"
Macro4of
Case "Braunschweig"
Macro4og
Case "Francoforte"
Macro4oh
Case "Friburgo"
Macro4oi
Case "Hannover"
Macro4ol
Case "Hertha"
Macro4om
Case "Hoffenheim"
Macro4on
Case "Mainz"
Macro4oo
Case "Norimberga"
Macro4op
Case "Schalke"
Macro4oq
Case "Stoccarda"
Macro4or
Case "W Brema"
Macro4os
Case "Wolfsburg"
Macro4ot
Case "Almeria"
Macro5oa
Case "At Bilbao"
Macro5ob
Case "At Madrid"
Macro5oc
Case "Barcellona"
Macro5od
Case "Betis"
Macro5oe
Case "Celta Vigo"
Macro5of
Case "Elche"
Macro5og
Case "Espanyol"
Macro5oh
Case "Getafe"
Macro5oi
Case "Granada"
Macro5ol
Case "Levante"
Macro5om
Case "Malaga"
Macro5on
Case "Osasuna"
Macro5oo
Case "Rayo Vallecano"
Macro5op
Case "R Madrid"
Macro5oq
Case "R Sociedad"
Macro5or
Case "Siviglia"
Macro5os
Case "Valensia"
Macro5ot
Case "Valladolid"
Macro5ou
Case "Villareal"
Macro5ov
Case "Academica"
Macro6oa
Case "Arouca"
Macro6ob
Case "Belenenses"
Macro6oc
Case "Benfica"
Macro6od
Case "Estoril"
Macro6oe
Case "Gil Vicente"
Macro6of
Case "Maritimo"
Macro6og
Case "Nacional"
Macro6oh
Case "Olhanense"
Macro6oi
Case "Pacos Ferreira"
Macro6ol
Case "Porto"
Macro6om
Case "Rio Ave"
Macro6on
Case "Braga"
Macro6oo
Case "Sporting Lisbona"
Macro6op
Case "Vitoria Guimaraes"
Macro6oq
Case "Vitoria Setubal"
Macro6or
Case "Ajax"
Macro7oa
Case "Alkmaar"
Macro7ob
Case "Cambuur"
Macro7oc
Case "Den Haag"
Macro7od
Case "Feyenoord"
Macro7oe
Case "GAE"
Macro7of
Case "Groningen"
Macro7og
Case "Heerenveen"
Macro7oh
Case "Heracles"
Macro7oi
Case "NAC"
Macro7ol
Case "NEC"
Macro7om
Case "PSV Eindhoven"
Macro7on
Case "Roda"
Macro7oo
Case "Twente"
Macro7op
Case "Utrecht"
Macro7oq
Case "Vitesse"
Macro7or
Case "Waalwijk"
Macro7os
Case "Zwolle"
Macro7ot
Case "Amira"
Macro8oa
Case "Austria Vienna"
Macro8ob
Case "Grodig"
Macro8oc
Case "Rapid Vienna"
Macro8od
Case "Ried"
Macro8oe
Case "Red Bull Salisburgo"
Macro8of
Case "Innsbruck"
Macro8og
Case "Neustadt"
Macro8oh
Case "WAC"
Macro8oi
Case "Sturm Graz"
Macro8ol
Case "Anderlecht"
Macro9oa
Case "Cercle Brugge"
Macro9ob
Case "Charleroi"
Macro9oc
Case "Club Brugge"
Macro9od
Case "Genk"
Macro9oe
Case "Gent"
Macro9of
Case "Kortrijk"
Macro9og
Case "OH Leuven"
Macro9oh
Case "Lierse"
Macro9oi
Case "Lokeren"
Macro9ol
Case "Malines"
Macro9om
Case "RAEC Mons"
Macro9on
Case "Oostende"
Macro9oo
Case "Standard Liegi"
Macro9op
Case "Waasland"
Macro9oq
Case "Zulte Waregem"
Macro9or
Case "Apollon"
Macro10oa
Case "ARIS"
Macro10ob
Case "Asteras Tripolis"
Macro10oc
Case "Atromitos"
Macro10od
Case "Ergotelis"
Macro10oe
Case "Kalloni"
Macro10of
Case "Levadiakos"
Macro10og
Case "OFI Creta"
Macro10oh
Case "Olympiakos"
Macro10oi
Case "Panaitolikos"
Macro10ol
Case "Panathinaikos"
Macro10om
Case "Panionios"
Macro10on
Case "Panthrakikos"
Macro10oo
Case "PAOK"
Macro10op
Case "PAS Giannina"
Macro10oq
Case "Platanias"
Macro10or
Case "Veria"
Macro10os
Case "Xanthi"
Macro10ot
Case "Amkar"
Macro11oa
Case "Anzhi"
Macro11ob
Case "CSKA Mosca"
Macro11oc
Case "Dinamo Mosca"
Macro11od
Case "Krasnodar"
Macro11oe
Case "Kryliya"
Macro11of
Case "Kuban Krasnodar"
Macro11og
Case "Lokomotiv Mosca"
Macro11oh
Case "Rostov"
Macro11oi
Case "Rubin Kazan"
Macro11ol
Case "Spartak Mosca"
Macro11om
Case "Terek Grozny"
Macro11on
Case "Tom Tomsk"
Macro11oo
Case "Ural"
Macro11op
Case "Volga"
Macro11oq
Case "Zenit"
Macro11or
Case "Akhisar"
Macro12oa
Case "Antalyaspor"
Macro12ob
Case "Besiktas"
Macro12oc
Case "Bursaspor"
Macro12od
Case "Caykur Rizespor"
Macro12oe
Case "Elazigspor"
Macro12of
Case "Eskisehirspor"
Macro12og
Case "Fenerbahce"
Macro12oh
Case "Galatasaray"
Macro12oi
Case "Gazientespor"
Macro12ol
Case "Genclerbirligi"
Macro12om
Case "Karabukspor"
Macro12on
Case "Kasimpasa"
Macro12oo
Case "Kayseri Erciyesspor"
Macro12op
Case "Kayserispor"
Macro12oq
Case "Konyaspor"
Macro12or
Case "Sivasspor"
Macro12os
Case "Trabzonspor"
Macro12ot
Case "Znojmo"
Macro13oa
Case "Banik Ostrava"
Macro13ob
Case "Bohemians"
Macro13oc
Case "Dukla Praga"
Macro13od
Case "Jablonec"
Macro13oe
Case "Jihlava"
Macro13of
Case "Mlada"
Macro13og
Case "Pribram"
Macro13oh
Case "Sigma Olomouc"
Macro13oi
Case "Slavia Praga"
Macro13ol
Case "Slovacko"
Macro13om
Case "Slovan Liberec"
Macro13on
Case "Sparta Praga"
Macro13oo
Case "Teplice"
Macro13op
Case "Viktoria Plzen"
Macro13oq
Case "Brno"
Macro13or
End Select
End Sub


????????
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Fabrx » 09/12/13 21:48

Fabrx ha scritto:
Fabrx ha scritto:
Flash30005 ha scritto:Ma non capisco se hai inserito due volte
Private Sub Worksheet_Change(ByVal Target As Range)
se così va sicuramente in errore perché non ce ne possono essere due
quindi per avere una seconda possibilità dovrai modificare il precedente codice
Codice: Seleziona tutto
If Target.Address <> "$C$2" Then goto saltaC2
segue la select
...
End Select
End Sub

SaltaC2:  'inserisci questa label in questo punto

If Target.Address <> "$C$5" Then Exit Sub
segue la seconda select
...



ciao



Cioè così?
Codice: Seleziona tutto
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then goto SaltaC2
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
End Sub

SaltaC2: If Target.Address <> "$C$5" Then Exit Sub
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
End Sub



Non funziona. Mi segnala errore. Mi evidenzia goTo SaltaC2 !!! Cosa non funziona?
Ti immetto tutto il codice scritto:
Codice: Seleziona tutto
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then goto SaltaC2
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
End Sub

SaltaC2: If Target.Address <> "$C$5" Then goto SaltaC5
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
End Sub

SaltaC5: If Target.Address <> "$D$2" Then goto SaltaD2
Select Case Target
Case "Atalanta"
Macro1ca
Case "Bologna"
Macro1cb
Case "Cagliari"
Macro1cc
Case "Catania"
Macro1cd
Case "Chievo"
Macro1ce
Case "Fiorentina"
Macro1cf
Case "Genoa"
Macro1cg
Case "Inter"
Macro1ch
Case "Juventus"
Macro1ci
Case "Lazio"
Macro1cl
Case "Livorno"
Macro1cm
Case "Milan"
Macro1cn
Case "Napoli"
Macro1co
Case "Parma"
Macro1cp
Case "Roma"
Macro1cq
Case "Sampdoria"
Macro1cr
Case "Sassuolo"
Macro1cs
Case "Torino"
Macro1ct
Case "Udinese"
Macro1cu
Case "Verona"
Macro1cv
Case "Arsenal"
Macro2ca
Case "Aston"
Macro2cb
Case "Cardiff"
Macro2cc
Case "Chelsea"
Macro2cd
Case "Crystal"
Macro2ce
Case "Everton"
Macro2cf
Case "Fulham"
Macro2cg
Case "Hull"
Macro2ch
Case "Liverpool"
Macro2ci
Case "M City"
Macro2cl
Case "M UTD"
Macro2cm
Case "Newcastle"
Macro2cn
Case "Norwich"
Macro2co
Case "Southampton"
Macro2cp
Case "Stoke"
Macro2cq
Case "Sunderland"
Macro2cr
Case "Swansea"
Macro2cs
Case "Tottenham"
Macro2ct
Case "WestBrom"
Macro2cu
Case "WestHam"
Macro2cv
Case "Ajaccio"
Macro3ca
Case "Bastia"
Macro3cb
Case "Bordeaux"
Macro3cc
Case "EvianTG"
Macro3cd
Case "Giungamp"
Macro3ce
Case "Lille"
Macro3cf
Case "Lione"
Macro3cg
Case "Lorient"
Macro3ch
Case "Marsiglia"
Macro3ci
Case "Monaco"
Macro3cl
Case "Montpellier"
Macro3cm
Case "Nantes"
Macro3cn
Case "Nizza"
Macro3co
Case "PSG"
Macro3cp
Case "Reims"
Macro3cq
Case "Rennes"
Macro3cr
Case "StEtienne"
Macro3cs
Case "Sochaux"
Macro3ct
Case "Tolosa"
Macro3cu
Case "Valenciennes"
Macro3cv
Case "Amburgo"
Macro4ca
Case "Augsburg"
Macro4cb
Case "B Leverkusen"
Macro4cc
Case "B Monaco"
Macro4cd
Case "B Dortmund"
Macro4ce
Case "B Mgladbach"
Macro4cf
Case "Braunschweig"
Macro4cg
Case "Francoforte"
Macro4ch
Case "Friburgo"
Macro4ci
Case "Hannover"
Macro4cl
Case "Hertha"
Macro4cm
Case "Hoffenheim"
Macro4cn
Case "Mainz"
Macro4co
Case "Norimberga"
Macro4cp
Case "Schalke"
Macro4cq
Case "Stoccarda"
Macro4cr
Case "W Brema"
Macro4cs
Case "Wolfsburg"
Macro4ct
Case "Almeria"
Macro5ca
Case "At Bilbao"
Macro5cb
Case "At Madrid"
Macro5cc
Case "Barcellona"
Macro5cd
Case "Betis"
Macro5ce
Case "Celta Vigo"
Macro5cf
Case "Elche"
Macro5cg
Case "Espanyol"
Macro5ch
Case "Getafe"
Macro5ci
Case "Granada"
Macro5cl
Case "Levante"
Macro5cm
Case "Malaga"
Macro5cn
Case "Osasuna"
Macro5co
Case "Rayo Vallecano"
Macro5cp
Case "R Madrid"
Macro5cq
Case "R Sociedad"
Macro5cr
Case "Siviglia"
Macro5cs
Case "Valensia"
Macro5ct
Case "Valladolid"
Macro5cu
Case "Villareal"
Macro5cv
Case "Academica"
Macro6ca
Case "Arouca"
Macro6cb
Case "Belenenses"
Macro6cc
Case "Benfica"
Macro6cd
Case "Estoril"
Macro6ce
Case "Gil Vicente"
Macro6cf
Case "Maritimo"
Macro6cg
Case "Nacional"
Macro6ch
Case "Olhanense"
Macro6ci
Case "Pacos Ferreira"
Macro6cl
Case "Porto"
Macro6cm
Case "Rio Ave"
Macro6cn
Case "Braga"
Macro6co
Case "Sporting Lisbona"
Macro6cp
Case "Vitoria Guimaraes"
Macro6cq
Case "Vitoria Setubal"
Macro6cr
Case "Ajax"
Macro7ca
Case "Alkmaar"
Macro7cb
Case "Cambuur"
Macro7cc
Case "Den Haag"
Macro7cd
Case "Feyenoord"
Macro7ce
Case "GAE"
Macro7cf
Case "Groningen"
Macro7cg
Case "Heerenveen"
Macro7ch
Case "Heracles"
Macro7ci
Case "NAC"
Macro7cl
Case "NEC"
Macro7cm
Case "PSV Eindhoven"
Macro7cn
Case "Roda"
Macro7co
Case "Twente"
Macro7cp
Case "Utrecht"
Macro7cq
Case "Vitesse"
Macro7cr
Case "Waalwijk"
Macro7cs
Case "Zwolle"
Macro7ct
Case "Amira"
Macro8ca
Case "Austria Vienna"
Macro8cb
Case "Grodig"
Macro8cc
Case "Rapid Vienna"
Macro8cd
Case "Ried"
Macro8ce
Case "Red Bull Salisburgo"
Macro8cf
Case "Innsbruck"
Macro8cg
Case "Neustadt"
Macro8ch
Case "WAC"
Macro8ci
Case "Sturm Graz"
Macro8cl
Case "Anderlecht"
Macro9ca
Case "Cercle Brugge"
Macro9cb
Case "Charleroi"
Macro9cc
Case "Club Brugge"
Macro9cd
Case "Genk"
Macro9ce
Case "Gent"
Macro9cf
Case "Kortrijk"
Macro9cg
Case "OH Leuven"
Macro9ch
Case "Lierse"
Macro9ci
Case "Lokeren"
Macro9cl
Case "Malines"
Macro9cm
Case "RAEC Mons"
Macro9cn
Case "Oostende"
Macro9co
Case "Standard Liegi"
Macro9cp
Case "Waasland"
Macro9cq
Case "Zulte Waregem"
Macro9cr
Case "Apollon"
Macro10ca
Case "ARIS"
Macro10cb
Case "Asteras Tripolis"
Macro10cc
Case "Atromitos"
Macro10cd
Case "Ergotelis"
Macro10ce
Case "Kalloni"
Macro10cf
Case "Levadiakos"
Macro10cg
Case "OFI Creta"
Macro10ch
Case "Olympiakos"
Macro10ci
Case "Panaitolikos"
Macro10cl
Case "Panathinaikos"
Macro10cm
Case "Panionios"
Macro10cn
Case "Panthrakikos"
Macro10co
Case "PAOK"
Macro10cp
Case "PAS Giannina"
Macro10cq
Case "Platanias"
Macro10cr
Case "Veria"
Macro10cs
Case "Xanthi"
Macro10ct
Case "Amkar"
Macro11ca
Case "Anzhi"
Macro11cb
Case "CSKA Mosca"
Macro11cc
Case "Dinamo Mosca"
Macro11cd
Case "Krasnodar"
Macro11ce
Case "Kryliya"
Macro11cf
Case "Kuban Krasnodar"
Macro11cg
Case "Lokomotiv Mosca"
Macro11ch
Case "Rostov"
Macro11ci
Case "Rubin Kazan"
Macro11cl
Case "Spartak Mosca"
Macro11cm
Case "Terek Grozny"
Macro11cn
Case "Tom Tomsk"
Macro11co
Case "Ural"
Macro11cp
Case "Volga"
Macro11cq
Case "Zenit"
Macro11cr
Case "Akhisar"
Macro12ca
Case "Antalyaspor"
Macro12cb
Case "Besiktas"
Macro12cc
Case "Bursaspor"
Macro12cd
Case "Caykur Rizespor"
Macro12ce
Case "Elazigspor"
Macro12cf
Case "Eskisehirspor"
Macro12cg
Case "Fenerbahce"
Macro12ch
Case "Galatasaray"
Macro12ci
Case "Gazientespor"
Macro12cl
Case "Genclerbirligi"
Macro12cm
Case "Karabukspor"
Macro12cn
Case "Kasimpasa"
Macro12co
Case "Kayseri Erciyesspor"
Macro12cp
Case "Kayserispor"
Macro12cq
Case "Konyaspor"
Macro12cr
Case "Sivasspor"
Macro12cs
Case "Trabzonspor"
Macro12ct
Case "Znojmo"
Macro13ca
Case "Banik Ostrava"
Macro13cb
Case "Bohemians"
Macro13cc
Case "Dukla Praga"
Macro13cd
Case "Jablonec"
Macro13ce
Case "Jihlava"
Macro13cf
Case "Mlada"
Macro13cg
Case "Pribram"
Macro13ch
Case "Sigma Olomouc"
Macro13ci
Case "Slavia Praga"
Macro13cl
Case "Slovacko"
Macro13cm
Case "Slovan Liberec"
Macro13cn
Case "Sparta Praga"
Macro13co
Case "Teplice"
Macro13cp
Case "Viktoria Plzen"
Macro13cq
Case "Brno"
Macro13cr
End Select
End Sub

SaltaD2: If Target.Address <> "$D$5" Then Exit Sub
Select Case Target
Case "Atalanta"
Macro1oa
Case "Bologna"
Macro1ob
Case "Cagliari"
Macro1oc
Case "Catania"
Macro1od
Case "Chievo"
Macro1oe
Case "Fiorentina"
Macro1of
Case "Genoa"
Macro1og
Case "Inter"
Macro1oh
Case "Juventus"
Macro1oi
Case "Lazio"
Macro1ol
Case "Livorno"
Macro1om
Case "Milan"
Macro1on
Case "Napoli"
Macro1oo
Case "Parma"
Macro1op
Case "Roma"
Macro1oq
Case "Sampdoria"
Macro1or
Case "Sassuolo"
Macro1os
Case "Torino"
Macro1ot
Case "Udinese"
Macro1ou
Case "Verona"
Macro1ov
Case "Arsenal"
Macro2oa
Case "Aston"
Macro2ob
Case "Cardiff"
Macro2oc
Case "Chelsea"
Macro2od
Case "Crystal"
Macro2oe
Case "Everton"
Macro2of
Case "Fulham"
Macro2og
Case "Hull"
Macro2oh
Case "Liverpool"
Macro2oi
Case "M City"
Macro2ol
Case "M UTD"
Macro2om
Case "Newcastle"
Macro2on
Case "Norwich"
Macro2oo
Case "Southampton"
Macro2op
Case "Stoke"
Macro2oq
Case "Sunderland"
Macro2or
Case "Swansea"
Macro2os
Case "Tottenham"
Macro2ot
Case "WestBrom"
Macro2ou
Case "WestHam"
Macro2ov
Case "Ajaccio"
Macro3oa
Case "Bastia"
Macro3ob
Case "Bordeaux"
Macro3oc
Case "EvianTG"
Macro3od
Case "Giungamp"
Macro3oe
Case "Lille"
Macro3of
Case "Lione"
Macro3og
Case "Lorient"
Macro3oh
Case "Marsiglia"
Macro3oi
Case "Monaco"
Macro3ol
Case "Montpellier"
Macro3om
Case "Nantes"
Macro3on
Case "Nizza"
Macro3oo
Case "PSG"
Macro3op
Case "Reims"
Macro3oq
Case "Rennes"
Macro3or
Case "StEtienne"
Macro3os
Case "Sochaux"
Macro3ot
Case "Tolosa"
Macro3ou
Case "Valenciennes"
Macro3ov
Case "Amburgo"
Macro4oa
Case "Augsburg"
Macro4ob
Case "B Leverkusen"
Macro4oc
Case "B Monaco"
Macro4od
Case "B Dortmund"
Macro4oe
Case "B Mgladbach"
Macro4of
Case "Braunschweig"
Macro4og
Case "Francoforte"
Macro4oh
Case "Friburgo"
Macro4oi
Case "Hannover"
Macro4ol
Case "Hertha"
Macro4om
Case "Hoffenheim"
Macro4on
Case "Mainz"
Macro4oo
Case "Norimberga"
Macro4op
Case "Schalke"
Macro4oq
Case "Stoccarda"
Macro4or
Case "W Brema"
Macro4os
Case "Wolfsburg"
Macro4ot
Case "Almeria"
Macro5oa
Case "At Bilbao"
Macro5ob
Case "At Madrid"
Macro5oc
Case "Barcellona"
Macro5od
Case "Betis"
Macro5oe
Case "Celta Vigo"
Macro5of
Case "Elche"
Macro5og
Case "Espanyol"
Macro5oh
Case "Getafe"
Macro5oi
Case "Granada"
Macro5ol
Case "Levante"
Macro5om
Case "Malaga"
Macro5on
Case "Osasuna"
Macro5oo
Case "Rayo Vallecano"
Macro5op
Case "R Madrid"
Macro5oq
Case "R Sociedad"
Macro5or
Case "Siviglia"
Macro5os
Case "Valensia"
Macro5ot
Case "Valladolid"
Macro5ou
Case "Villareal"
Macro5ov
Case "Academica"
Macro6oa
Case "Arouca"
Macro6ob
Case "Belenenses"
Macro6oc
Case "Benfica"
Macro6od
Case "Estoril"
Macro6oe
Case "Gil Vicente"
Macro6of
Case "Maritimo"
Macro6og
Case "Nacional"
Macro6oh
Case "Olhanense"
Macro6oi
Case "Pacos Ferreira"
Macro6ol
Case "Porto"
Macro6om
Case "Rio Ave"
Macro6on
Case "Braga"
Macro6oo
Case "Sporting Lisbona"
Macro6op
Case "Vitoria Guimaraes"
Macro6oq
Case "Vitoria Setubal"
Macro6or
Case "Ajax"
Macro7oa
Case "Alkmaar"
Macro7ob
Case "Cambuur"
Macro7oc
Case "Den Haag"
Macro7od
Case "Feyenoord"
Macro7oe
Case "GAE"
Macro7of
Case "Groningen"
Macro7og
Case "Heerenveen"
Macro7oh
Case "Heracles"
Macro7oi
Case "NAC"
Macro7ol
Case "NEC"
Macro7om
Case "PSV Eindhoven"
Macro7on
Case "Roda"
Macro7oo
Case "Twente"
Macro7op
Case "Utrecht"
Macro7oq
Case "Vitesse"
Macro7or
Case "Waalwijk"
Macro7os
Case "Zwolle"
Macro7ot
Case "Amira"
Macro8oa
Case "Austria Vienna"
Macro8ob
Case "Grodig"
Macro8oc
Case "Rapid Vienna"
Macro8od
Case "Ried"
Macro8oe
Case "Red Bull Salisburgo"
Macro8of
Case "Innsbruck"
Macro8og
Case "Neustadt"
Macro8oh
Case "WAC"
Macro8oi
Case "Sturm Graz"
Macro8ol
Case "Anderlecht"
Macro9oa
Case "Cercle Brugge"
Macro9ob
Case "Charleroi"
Macro9oc
Case "Club Brugge"
Macro9od
Case "Genk"
Macro9oe
Case "Gent"
Macro9of
Case "Kortrijk"
Macro9og
Case "OH Leuven"
Macro9oh
Case "Lierse"
Macro9oi
Case "Lokeren"
Macro9ol
Case "Malines"
Macro9om
Case "RAEC Mons"
Macro9on
Case "Oostende"
Macro9oo
Case "Standard Liegi"
Macro9op
Case "Waasland"
Macro9oq
Case "Zulte Waregem"
Macro9or
Case "Apollon"
Macro10oa
Case "ARIS"
Macro10ob
Case "Asteras Tripolis"
Macro10oc
Case "Atromitos"
Macro10od
Case "Ergotelis"
Macro10oe
Case "Kalloni"
Macro10of
Case "Levadiakos"
Macro10og
Case "OFI Creta"
Macro10oh
Case "Olympiakos"
Macro10oi
Case "Panaitolikos"
Macro10ol
Case "Panathinaikos"
Macro10om
Case "Panionios"
Macro10on
Case "Panthrakikos"
Macro10oo
Case "PAOK"
Macro10op
Case "PAS Giannina"
Macro10oq
Case "Platanias"
Macro10or
Case "Veria"
Macro10os
Case "Xanthi"
Macro10ot
Case "Amkar"
Macro11oa
Case "Anzhi"
Macro11ob
Case "CSKA Mosca"
Macro11oc
Case "Dinamo Mosca"
Macro11od
Case "Krasnodar"
Macro11oe
Case "Kryliya"
Macro11of
Case "Kuban Krasnodar"
Macro11og
Case "Lokomotiv Mosca"
Macro11oh
Case "Rostov"
Macro11oi
Case "Rubin Kazan"
Macro11ol
Case "Spartak Mosca"
Macro11om
Case "Terek Grozny"
Macro11on
Case "Tom Tomsk"
Macro11oo
Case "Ural"
Macro11op
Case "Volga"
Macro11oq
Case "Zenit"
Macro11or
Case "Akhisar"
Macro12oa
Case "Antalyaspor"
Macro12ob
Case "Besiktas"
Macro12oc
Case "Bursaspor"
Macro12od
Case "Caykur Rizespor"
Macro12oe
Case "Elazigspor"
Macro12of
Case "Eskisehirspor"
Macro12og
Case "Fenerbahce"
Macro12oh
Case "Galatasaray"
Macro12oi
Case "Gazientespor"
Macro12ol
Case "Genclerbirligi"
Macro12om
Case "Karabukspor"
Macro12on
Case "Kasimpasa"
Macro12oo
Case "Kayseri Erciyesspor"
Macro12op
Case "Kayserispor"
Macro12oq
Case "Konyaspor"
Macro12or
Case "Sivasspor"
Macro12os
Case "Trabzonspor"
Macro12ot
Case "Znojmo"
Macro13oa
Case "Banik Ostrava"
Macro13ob
Case "Bohemians"
Macro13oc
Case "Dukla Praga"
Macro13od
Case "Jablonec"
Macro13oe
Case "Jihlava"
Macro13of
Case "Mlada"
Macro13og
Case "Pribram"
Macro13oh
Case "Sigma Olomouc"
Macro13oi
Case "Slavia Praga"
Macro13ol
Case "Slovacko"
Macro13om
Case "Slovan Liberec"
Macro13on
Case "Sparta Praga"
Macro13oo
Case "Teplice"
Macro13op
Case "Viktoria Plzen"
Macro13oq
Case "Brno"
Macro13or
End Select
End Sub


????????



HO RISOLTO! Ho sostituito le END SUB (tranne l'ultima) con EXIT SUB e va tutto ok!
Fabrx
Utente Junior
 
Post: 22
Iscritto il: 05/12/13 14:14

Re: Macro legate a voci di un menu a tendina dinamico

Postdi Flash30005 » 10/12/13 02:13

In realtà dovrebbe essere così
Codice: Seleziona tutto
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then GoTo SaltaC2
Select Case Target
Case "ITAc"
Macro1c0
Case "ENGc"
Macro2c0
Case "FRAc"
Macro3c0
Case "GERc"
Macro4c0
Case "SPAc"
Macro5c0
Case "PORc"
Macro6c0
Case "OLAc"
Macro7c0
Case "AUSc"
Macro8c0
Case "BELc"
Macro9c0
Case "GREc"
Macro10c0
Case "RUSc"
Macro11c0
Case "TURc"
Macro12c0
Case "CECc"
Macro13c0
End Select
SaltaC2:

If Target.Address <> "$C$5" Then GoTo SaltaC5
Select Case Target
Case "ITAo"
Macro1o0
Case "ENGo"
Macro2o0
Case "FRAo"
Macro3o0
Case "GERo"
Macro4o0
Case "SPAo"
Macro5o0
Case "PORo"
Macro6o0
Case "OLAo"
Macro7o0
Case "AUSo"
Macro8o0
Case "BELo"
Macro9o0
Case "GREo"
Macro10o0
Case "RUSo"
Macro11o0
Case "TURo"
Macro12o0
Case "CECo"
Macro13o0
End Select
SaltaC5:

If Target.Address <> "$D$2" Then GoTo SaltaD2
Select Case Target
Case "Atalanta"
Macro1ca
Case "Bologna"
Macro1cb
Case "Cagliari"
Macro1cc
Case "Catania"
Macro1cd
Case "Chievo"
Macro1ce
Case "Fiorentina"
Macro1cf
Case "Genoa"
Macro1cg
Case "Inter"
Macro1ch
Case "Juventus"
Macro1ci
Case "Lazio"
Macro1cl
Case "Livorno"
Macro1cm
Case "Milan"
Macro1cn
Case "Napoli"
Macro1co
Case "Parma"
Macro1cp
Case "Roma"
Macro1cq
Case "Sampdoria"
Macro1cr
Case "Sassuolo"
Macro1cs
Case "Torino"
Macro1ct
Case "Udinese"
Macro1cu
Case "Verona"
Macro1cv
Case "Arsenal"
Macro2ca
Case "Aston"
Macro2cb
Case "Cardiff"
Macro2cc
Case "Chelsea"
Macro2cd
Case "Crystal"
Macro2ce
Case "Everton"
Macro2cf
Case "Fulham"
Macro2cg
Case "Hull"
Macro2ch
Case "Liverpool"
Macro2ci
Case "M City"
Macro2cl
Case "M UTD"
Macro2cm
Case "Newcastle"
Macro2cn
Case "Norwich"
Macro2co
Case "Southampton"
Macro2cp
Case "Stoke"
Macro2cq
Case "Sunderland"
Macro2cr
Case "Swansea"
Macro2cs
Case "Tottenham"
Macro2ct
Case "WestBrom"
Macro2cu
Case "WestHam"
Macro2cv
Case "Ajaccio"
Macro3ca
Case "Bastia"
Macro3cb
Case "Bordeaux"
Macro3cc
Case "EvianTG"
Macro3cd
Case "Giungamp"
Macro3ce
Case "Lille"
Macro3cf
Case "Lione"
Macro3cg
Case "Lorient"
Macro3ch
Case "Marsiglia"
Macro3ci
Case "Monaco"
Macro3cl
Case "Montpellier"
Macro3cm
Case "Nantes"
Macro3cn
Case "Nizza"
Macro3co
Case "PSG"
Macro3cp
Case "Reims"
Macro3cq
Case "Rennes"
Macro3cr
Case "StEtienne"
Macro3cs
Case "Sochaux"
Macro3ct
Case "Tolosa"
Macro3cu
Case "Valenciennes"
Macro3cv
Case "Amburgo"
Macro4ca
Case "Augsburg"
Macro4cb
Case "B Leverkusen"
Macro4cc
Case "B Monaco"
Macro4cd
Case "B Dortmund"
Macro4ce
Case "B Mgladbach"
Macro4cf
Case "Braunschweig"
Macro4cg
Case "Francoforte"
Macro4ch
Case "Friburgo"
Macro4ci
Case "Hannover"
Macro4cl
Case "Hertha"
Macro4cm
Case "Hoffenheim"
Macro4cn
Case "Mainz"
Macro4co
Case "Norimberga"
Macro4cp
Case "Schalke"
Macro4cq
Case "Stoccarda"
Macro4cr
Case "W Brema"
Macro4cs
Case "Wolfsburg"
Macro4ct
Case "Almeria"
Macro5ca
Case "At Bilbao"
Macro5cb
Case "At Madrid"
Macro5cc
Case "Barcellona"
Macro5cd
Case "Betis"
Macro5ce
Case "Celta Vigo"
Macro5cf
Case "Elche"
Macro5cg
Case "Espanyol"
Macro5ch
Case "Getafe"
Macro5ci
Case "Granada"
Macro5cl
Case "Levante"
Macro5cm
Case "Malaga"
Macro5cn
Case "Osasuna"
Macro5co
Case "Rayo Vallecano"
Macro5cp
Case "R Madrid"
Macro5cq
Case "R Sociedad"
Macro5cr
Case "Siviglia"
Macro5cs
Case "Valensia"
Macro5ct
Case "Valladolid"
Macro5cu
Case "Villareal"
Macro5cv
Case "Academica"
Macro6ca
Case "Arouca"
Macro6cb
Case "Belenenses"
Macro6cc
Case "Benfica"
Macro6cd
Case "Estoril"
Macro6ce
Case "Gil Vicente"
Macro6cf
Case "Maritimo"
Macro6cg
Case "Nacional"
Macro6ch
Case "Olhanense"
Macro6ci
Case "Pacos Ferreira"
Macro6cl
Case "Porto"
Macro6cm
Case "Rio Ave"
Macro6cn
Case "Braga"
Macro6co
Case "Sporting Lisbona"
Macro6cp
Case "Vitoria Guimaraes"
Macro6cq
Case "Vitoria Setubal"
Macro6cr
Case "Ajax"
Macro7ca
Case "Alkmaar"
Macro7cb
Case "Cambuur"
Macro7cc
Case "Den Haag"
Macro7cd
Case "Feyenoord"
Macro7ce
Case "GAE"
Macro7cf
Case "Groningen"
Macro7cg
Case "Heerenveen"
Macro7ch
Case "Heracles"
Macro7ci
Case "NAC"
Macro7cl
Case "NEC"
Macro7cm
Case "PSV Eindhoven"
Macro7cn
Case "Roda"
Macro7co
Case "Twente"
Macro7cp
Case "Utrecht"
Macro7cq
Case "Vitesse"
Macro7cr
Case "Waalwijk"
Macro7cs
Case "Zwolle"
Macro7ct
Case "Amira"
Macro8ca
Case "Austria Vienna"
Macro8cb
Case "Grodig"
Macro8cc
Case "Rapid Vienna"
Macro8cd
Case "Ried"
Macro8ce
Case "Red Bull Salisburgo"
Macro8cf
Case "Innsbruck"
Macro8cg
Case "Neustadt"
Macro8ch
Case "WAC"
Macro8ci
Case "Sturm Graz"
Macro8cl
Case "Anderlecht"
Macro9ca
Case "Cercle Brugge"
Macro9cb
Case "Charleroi"
Macro9cc
Case "Club Brugge"
Macro9cd
Case "Genk"
Macro9ce
Case "Gent"
Macro9cf
Case "Kortrijk"
Macro9cg
Case "OH Leuven"
Macro9ch
Case "Lierse"
Macro9ci
Case "Lokeren"
Macro9cl
Case "Malines"
Macro9cm
Case "RAEC Mons"
Macro9cn
Case "Oostende"
Macro9co
Case "Standard Liegi"
Macro9cp
Case "Waasland"
Macro9cq
Case "Zulte Waregem"
Macro9cr
Case "Apollon"
Macro10ca
Case "ARIS"
Macro10cb
Case "Asteras Tripolis"
Macro10cc
Case "Atromitos"
Macro10cd
Case "Ergotelis"
Macro10ce
Case "Kalloni"
Macro10cf
Case "Levadiakos"
Macro10cg
Case "OFI Creta"
Macro10ch
Case "Olympiakos"
Macro10ci
Case "Panaitolikos"
Macro10cl
Case "Panathinaikos"
Macro10cm
Case "Panionios"
Macro10cn
Case "Panthrakikos"
Macro10co
Case "PAOK"
Macro10cp
Case "PAS Giannina"
Macro10cq
Case "Platanias"
Macro10cr
Case "Veria"
Macro10cs
Case "Xanthi"
Macro10ct
Case "Amkar"
Macro11ca
Case "Anzhi"
Macro11cb
Case "CSKA Mosca"
Macro11cc
Case "Dinamo Mosca"
Macro11cd
Case "Krasnodar"
Macro11ce
Case "Kryliya"
Macro11cf
Case "Kuban Krasnodar"
Macro11cg
Case "Lokomotiv Mosca"
Macro11ch
Case "Rostov"
Macro11ci
Case "Rubin Kazan"
Macro11cl
Case "Spartak Mosca"
Macro11cm
Case "Terek Grozny"
Macro11cn
Case "Tom Tomsk"
Macro11co
Case "Ural"
Macro11cp
Case "Volga"
Macro11cq
Case "Zenit"
Macro11cr
Case "Akhisar"
Macro12ca
Case "Antalyaspor"
Macro12cb
Case "Besiktas"
Macro12cc
Case "Bursaspor"
Macro12cd
Case "Caykur Rizespor"
Macro12ce
Case "Elazigspor"
Macro12cf
Case "Eskisehirspor"
Macro12cg
Case "Fenerbahce"
Macro12ch
Case "Galatasaray"
Macro12ci
Case "Gazientespor"
Macro12cl
Case "Genclerbirligi"
Macro12cm
Case "Karabukspor"
Macro12cn
Case "Kasimpasa"
Macro12co
Case "Kayseri Erciyesspor"
Macro12cp
Case "Kayserispor"
Macro12cq
Case "Konyaspor"
Macro12cr
Case "Sivasspor"
Macro12cs
Case "Trabzonspor"
Macro12ct
Case "Znojmo"
Macro13ca
Case "Banik Ostrava"
Macro13cb
Case "Bohemians"
Macro13cc
Case "Dukla Praga"
Macro13cd
Case "Jablonec"
Macro13ce
Case "Jihlava"
Macro13cf
Case "Mlada"
Macro13cg
Case "Pribram"
Macro13ch
Case "Sigma Olomouc"
Macro13ci
Case "Slavia Praga"
Macro13cl
Case "Slovacko"
Macro13cm
Case "Slovan Liberec"
Macro13cn
Case "Sparta Praga"
Macro13co
Case "Teplice"
Macro13cp
Case "Viktoria Plzen"
Macro13cq
Case "Brno"
Macro13cr
End Select

SaltaD2:
If Target.Address <> "$D$5" Then Exit Sub
Select Case Target
Case "Atalanta"
Macro1oa
Case "Bologna"
Macro1ob
Case "Cagliari"
Macro1oc
Case "Catania"
Macro1od
Case "Chievo"
Macro1oe
Case "Fiorentina"
Macro1of
Case "Genoa"
Macro1og
Case "Inter"
Macro1oh
Case "Juventus"
Macro1oi
Case "Lazio"
Macro1ol
Case "Livorno"
Macro1om
Case "Milan"
Macro1on
Case "Napoli"
Macro1oo
Case "Parma"
Macro1op
Case "Roma"
Macro1oq
Case "Sampdoria"
Macro1or
Case "Sassuolo"
Macro1os
Case "Torino"
Macro1ot
Case "Udinese"
Macro1ou
Case "Verona"
Macro1ov
Case "Arsenal"
Macro2oa
Case "Aston"
Macro2ob
Case "Cardiff"
Macro2oc
Case "Chelsea"
Macro2od
Case "Crystal"
Macro2oe
Case "Everton"
Macro2of
Case "Fulham"
Macro2og
Case "Hull"
Macro2oh
Case "Liverpool"
Macro2oi
Case "M City"
Macro2ol
Case "M UTD"
Macro2om
Case "Newcastle"
Macro2on
Case "Norwich"
Macro2oo
Case "Southampton"
Macro2op
Case "Stoke"
Macro2oq
Case "Sunderland"
Macro2or
Case "Swansea"
Macro2os
Case "Tottenham"
Macro2ot
Case "WestBrom"
Macro2ou
Case "WestHam"
Macro2ov
Case "Ajaccio"
Macro3oa
Case "Bastia"
Macro3ob
Case "Bordeaux"
Macro3oc
Case "EvianTG"
Macro3od
Case "Giungamp"
Macro3oe
Case "Lille"
Macro3of
Case "Lione"
Macro3og
Case "Lorient"
Macro3oh
Case "Marsiglia"
Macro3oi
Case "Monaco"
Macro3ol
Case "Montpellier"
Macro3om
Case "Nantes"
Macro3on
Case "Nizza"
Macro3oo
Case "PSG"
Macro3op
Case "Reims"
Macro3oq
Case "Rennes"
Macro3or
Case "StEtienne"
Macro3os
Case "Sochaux"
Macro3ot
Case "Tolosa"
Macro3ou
Case "Valenciennes"
Macro3ov
Case "Amburgo"
Macro4oa
Case "Augsburg"
Macro4ob
Case "B Leverkusen"
Macro4oc
Case "B Monaco"
Macro4od
Case "B Dortmund"
Macro4oe
Case "B Mgladbach"
Macro4of
Case "Braunschweig"
Macro4og
Case "Francoforte"
Macro4oh
Case "Friburgo"
Macro4oi
Case "Hannover"
Macro4ol
Case "Hertha"
Macro4om
Case "Hoffenheim"
Macro4on
Case "Mainz"
Macro4oo
Case "Norimberga"
Macro4op
Case "Schalke"
Macro4oq
Case "Stoccarda"
Macro4or
Case "W Brema"
Macro4os
Case "Wolfsburg"
Macro4ot
Case "Almeria"
Macro5oa
Case "At Bilbao"
Macro5ob
Case "At Madrid"
Macro5oc
Case "Barcellona"
Macro5od
Case "Betis"
Macro5oe
Case "Celta Vigo"
Macro5of
Case "Elche"
Macro5og
Case "Espanyol"
Macro5oh
Case "Getafe"
Macro5oi
Case "Granada"
Macro5ol
Case "Levante"
Macro5om
Case "Malaga"
Macro5on
Case "Osasuna"
Macro5oo
Case "Rayo Vallecano"
Macro5op
Case "R Madrid"
Macro5oq
Case "R Sociedad"
Macro5or
Case "Siviglia"
Macro5os
Case "Valensia"
Macro5ot
Case "Valladolid"
Macro5ou
Case "Villareal"
Macro5ov
Case "Academica"
Macro6oa
Case "Arouca"
Macro6ob
Case "Belenenses"
Macro6oc
Case "Benfica"
Macro6od
Case "Estoril"
Macro6oe
Case "Gil Vicente"
Macro6of
Case "Maritimo"
Macro6og
Case "Nacional"
Macro6oh
Case "Olhanense"
Macro6oi
Case "Pacos Ferreira"
Macro6ol
Case "Porto"
Macro6om
Case "Rio Ave"
Macro6on
Case "Braga"
Macro6oo
Case "Sporting Lisbona"
Macro6op
Case "Vitoria Guimaraes"
Macro6oq
Case "Vitoria Setubal"
Macro6or
Case "Ajax"
Macro7oa
Case "Alkmaar"
Macro7ob
Case "Cambuur"
Macro7oc
Case "Den Haag"
Macro7od
Case "Feyenoord"
Macro7oe
Case "GAE"
Macro7of
Case "Groningen"
Macro7og
Case "Heerenveen"
Macro7oh
Case "Heracles"
Macro7oi
Case "NAC"
Macro7ol
Case "NEC"
Macro7om
Case "PSV Eindhoven"
Macro7on
Case "Roda"
Macro7oo
Case "Twente"
Macro7op
Case "Utrecht"
Macro7oq
Case "Vitesse"
Macro7or
Case "Waalwijk"
Macro7os
Case "Zwolle"
Macro7ot
Case "Amira"
Macro8oa
Case "Austria Vienna"
Macro8ob
Case "Grodig"
Macro8oc
Case "Rapid Vienna"
Macro8od
Case "Ried"
Macro8oe
Case "Red Bull Salisburgo"
Macro8of
Case "Innsbruck"
Macro8og
Case "Neustadt"
Macro8oh
Case "WAC"
Macro8oi
Case "Sturm Graz"
Macro8ol
Case "Anderlecht"
Macro9oa
Case "Cercle Brugge"
Macro9ob
Case "Charleroi"
Macro9oc
Case "Club Brugge"
Macro9od
Case "Genk"
Macro9oe
Case "Gent"
Macro9of
Case "Kortrijk"
Macro9og
Case "OH Leuven"
Macro9oh
Case "Lierse"
Macro9oi
Case "Lokeren"
Macro9ol
Case "Malines"
Macro9om
Case "RAEC Mons"
Macro9on
Case "Oostende"
Macro9oo
Case "Standard Liegi"
Macro9op
Case "Waasland"
Macro9oq
Case "Zulte Waregem"
Macro9or
Case "Apollon"
Macro10oa
Case "ARIS"
Macro10ob
Case "Asteras Tripolis"
Macro10oc
Case "Atromitos"
Macro10od
Case "Ergotelis"
Macro10oe
Case "Kalloni"
Macro10of
Case "Levadiakos"
Macro10og
Case "OFI Creta"
Macro10oh
Case "Olympiakos"
Macro10oi
Case "Panaitolikos"
Macro10ol
Case "Panathinaikos"
Macro10om
Case "Panionios"
Macro10on
Case "Panthrakikos"
Macro10oo
Case "PAOK"
Macro10op
Case "PAS Giannina"
Macro10oq
Case "Platanias"
Macro10or
Case "Veria"
Macro10os
Case "Xanthi"
Macro10ot
Case "Amkar"
Macro11oa
Case "Anzhi"
Macro11ob
Case "CSKA Mosca"
Macro11oc
Case "Dinamo Mosca"
Macro11od
Case "Krasnodar"
Macro11oe
Case "Kryliya"
Macro11of
Case "Kuban Krasnodar"
Macro11og
Case "Lokomotiv Mosca"
Macro11oh
Case "Rostov"
Macro11oi
Case "Rubin Kazan"
Macro11ol
Case "Spartak Mosca"
Macro11om
Case "Terek Grozny"
Macro11on
Case "Tom Tomsk"
Macro11oo
Case "Ural"
Macro11op
Case "Volga"
Macro11oq
Case "Zenit"
Macro11or
Case "Akhisar"
Macro12oa
Case "Antalyaspor"
Macro12ob
Case "Besiktas"
Macro12oc
Case "Bursaspor"
Macro12od
Case "Caykur Rizespor"
Macro12oe
Case "Elazigspor"
Macro12of
Case "Eskisehirspor"
Macro12og
Case "Fenerbahce"
Macro12oh
Case "Galatasaray"
Macro12oi
Case "Gazientespor"
Macro12ol
Case "Genclerbirligi"
Macro12om
Case "Karabukspor"
Macro12on
Case "Kasimpasa"
Macro12oo
Case "Kayseri Erciyesspor"
Macro12op
Case "Kayserispor"
Macro12oq
Case "Konyaspor"
Macro12or
Case "Sivasspor"
Macro12os
Case "Trabzonspor"
Macro12ot
Case "Znojmo"
Macro13oa
Case "Banik Ostrava"
Macro13ob
Case "Bohemians"
Macro13oc
Case "Dukla Praga"
Macro13od
Case "Jablonec"
Macro13oe
Case "Jihlava"
Macro13of
Case "Mlada"
Macro13og
Case "Pribram"
Macro13oh
Case "Sigma Olomouc"
Macro13oi
Case "Slavia Praga"
Macro13ol
Case "Slovacko"
Macro13om
Case "Slovan Liberec"
Macro13on
Case "Sparta Praga"
Macro13oo
Case "Teplice"
Macro13op
Case "Viktoria Plzen"
Macro13oq
Case "Brno"
Macro13or
End Select
End Sub

L'End sub va inserito solo a fine macro
l'Exit sub inserito ad ogni fine condizione è opzionale e può essere anche corretto ma inutile
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Macro legate a voci di un menu a tendina dinamico":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti