Apertura casella combinata con macro

Hai un problema con Excel?

Nuova discussione

Apertura casella combinata con macro
di marc21 data: 28/03/2015 15:52:58
Buongiorno,
ho inserito una Casella Combinata direttamente in un foglio e non in una userform.
Avrei bisogno di "aprirla" tramite una macro.
Pensavo ad un comando Combox1.show, ma non funziona, penso perchè non è nella userform.
Come posso fare?
Grazie
di alfrimpa data: 28/03/2015 16:50:01
Ciao Marc

Prova con la macro qui sotto (io non l'ho testata).

Alfredo
Sub ApriComBo() With Me.ComboBox1 .SetFocus .DropDown End With End Sub
di marc21 data: 28/03/2015 17:16:30
E' probabile che sbaglio qualcosa, ma non mi funziona.
Allego un file di prova dove ho inserito il codice nel Foglio1 collegato al pulsante.
Grazie
di alfrimpa data: 28/03/2015 18:01:15
Ciao Marc

Con la macro qui sotto funziona.

Ma mi spieghi una cosa: che bisogno c'è di una macro quando per aprire una combo basta semplicemente cliccare sulla tendina?

Tu preferisci cliccare sul pulsante?

Alfredo
Sub PROVA() Sheets("foglio1").ComboBox1.DropDown End Sub
di alfrimpa data: 28/03/2015 18:02:53
Scusa dimenticavo di dirti che la ComboBox deve essere un ActiveX e non un controllo modulo.

Alfredo
di marc21 data: 28/03/2015 20:05:12
Perdona la mia incompetenza, ma come faccio ad inserire un Activex con Excel 2003 ?
Per quanto riguarda la necessità di gestirlo con un pulsante, è perchè vorrei "nascondere" (sotto il pulsante) la combobox quando è chiusa.
Grazie
di alfrimpa data: 29/03/2015 10:50:16
Ciao Marc

Io ho il 2007 ma non credo che con il 2003 la situazione cambi.

Vai sulla scheda/menù Sviluppo (se non la vedi devi attivarla nelle impostazioni generali di Excel) clicca su Inserisci; il riquadro che ti appare è suddiviso in due parti quella superiore raggruppa i controlli modulo in quella inferiore, invece, trovi gli ActiveX.

Scegli la casella combinata e disegnala sul foglio.

Alfredo
di marc21 data: 29/03/2015 13:20:11
Ciao Alfredo,
purtroppo la versione 2003 è molto diversa dalla 2007.
Ho cercato nei vari menù ma non ho trovato i comandi activex.
Mi sa che devo trovare un'altra soluzione.
Grazie e buona giornata.
di Lucas87 data: 29/03/2015 15:46:57
Ciao
Se non ricordo male: click con il dx sulla barra degli strumenti-->seleziona "Visual Basic" (compare la barra con "registra", "play", "stop")-->trovi il pulsante con martello e chiave inglese-->compare la barra con i coltrolli ActiveX
di marc21 data: 29/03/2015 19:13:09
Ciao Luca,
ho trovato il pulsante, ma quando cerco di creare la casella combinata mi dice Impossibile inserire oggetto.
Dipenderà da qualche protezione?
Grazie
di marc21 data: 30/03/2015 17:08:55
Ho provato su un altro pc (sempre con Excel 2003) quanto suggerito da Luca e da Alfredo e non ho avuto problemi (forse un'impostazione diversa delle protezioni).
Ora però mi si presenta un altro problema.
Aprendo la ComboBox con il codice Sheets("foglio1").ComboBox1.DropDown mi rimane aperto fino a quando non effettuo una scelta.
A differenza dell'apertura "normale" se mi sposto su qualche cella, la combobox rimane aperta.
Esiste un sistema per chiuderla se mi sposto su una cella qualsiasi anzichè effettuare una scelta?
Grazie

Vuoi Approfondire?