EXCEL ComboBox lancia macro

[Francesco53]

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

[Anthony47]

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

[Flash30005]

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

[Francesco53]

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