Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL ComboBox lancia macro

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

EXCEL ComboBox lancia macro

Postdi Francesco53 » 16/11/11 23:26

Buonasera a tutto il Forum,
in un foglio ho inserito una ComboBox o Casella Combinata, in cui dall'elenco di voci scelgo una voce e
nella cella AG19 mi assegna il numero relativo alla scelta.
Alla combobox ho assegnato la macro che posto, e che in base al numero della cella AG19 dovrebbe lanciare
la macro abbinata, ma mi da sempre il seguente errore
Errore di compilazione:
Prevista variabile o routine e non modulo

Codice: Seleziona tutto
Sub Lancia()
nx = Worksheets("Menu").Range("AG19").Value
If nx = 1 Then
Call Ricerca
End If
If nx = 2 Then
Call Inserisci
End If
If nx = 3 Then
Call Stampa
End If
End Sub

Ringrazio chi può aiutarmi a capire dove sbaglio.
Francesc
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL ComboBox lancia macro

Postdi Anthony47 » 17/11/11 00:07

Non mi e' chiaro se hai usato il combobox degli strumenti Moduli o Strumenti di controllo; come pure come si attiva la macro Lancia.
Poi vorrei sapere in quale modulo si trova Lancia (lo leggi nell' intestazione della finestra vba) e se quando compare l' errore c' e' qualche elemento evidenziato.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL ComboBox lancia macro

Postdi Flash30005 » 17/11/11 06:56

Vedi quanto scritto da Anthony qui sopra.

Perché non usare la Convalida Dati in AG19 inserendo Elenco e nell'apposito box 1;2;3 (o tuoi numeri)?
Potresti, anche, richiamare la macro Lancia al variare della cella AG19
inserendo nel Vba del foglio il relativo codice:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AG$19" Then Exit Sub
Call Lancia
End Sub


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: EXCEL ComboBox lancia macro

Postdi Francesco53 » 17/11/11 10:21

Buongiorno,
ringrazio entrambi per l'aiuto dato, ho trovato l'errore che commettevo, è dipendeva dall'aver nominato
un modulo con lo stesso nome della macro richiamata, quindi anzichè Modulo1, avevo nominato Ricerca,
e così' anche per gli altri, per cui rinominati i moduli in Modulo1, Modulo2 etc. ora funziona.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL ComboBox lancia macro":


Chi c’è in linea

Visitano il forum: Marius44 e 6 ospiti