Casella combinata o ComboBox

[Gianluca2183]

Buongiorno a tutti!

Qualcuno sa' indicarmi qualche sito dove reperire informazioni sulla suddetta casella combinata,pero' nell'mbiente di sviluppo VBA.

Non riesco a trovare le righe di programmazione per fare riferimento a questa casella.

Nel mio form vorrei mettere questa casella combinata,che mi prende un elenco di nomi da un archivio excel,
non solo,ma vorrei pure che aggiornando il mio archivio,l'intervallo di input della casella si aggiorni automaticamente.

Consigli ??

Grazie a tutti!

[Flash30005]

La casella combinata nel Vba di excel si rende disponibile se inserisci un UserForm
selezioni la casella combinata e la disegni nell'UserForm
poi in un modulo inserirai un codice di questo tipo

Codice: Seleziona tutto

Sub CompilaCBox()
UserForm1.ComboBox1.RowSource = "Foglio1!J2:J8"
UserForm1.Show
End Sub

dove Foglio1 è il foglio dell'archivio
e i dati da inserire sono dalla cella J2 alla cella J8 (da adattare in funzione del tuo elenco)

Fai sapere
ciao

[Gianluca2183]

Ciao grazie per la risposta intanto,ma quello che mi serve in particolare è questo :

Io ho gia' uno userform con una "ComboBox1".
Ho gia' una macro che mi crea una selezione chiamata "selezione" contenente i dati da visualizzare.
questa selezione di una sola colonna si aggiorna in automatico.

Ora come faccio a fare visualizzare questo range "selezione" nella comboBox1 ?

Specifico che "selezione" si la creo attraverso il menu' "Formule" - > crea da nome .


grazie mille!
Ciao!

[Flash30005]

I dati nella combox1 vengono inseriti prima della visualizzazione dell'userform
e la riga che inserisce i dati nel combox1 è appunto quella postata

Codice: Seleziona tutto

UserForm1.ComboBox1.RowSource = "Foglio1!J2:J8"

Inserisci il nome del tuo foglio al posto di Foglio1 e
Inserisci ii riferimenti di colonna e riga al posto di J2:J8

poi rendi visibile l'UserForm con il comando

Codice: Seleziona tutto

UserForm1.Show

Fai sapere
Ciao

[Gianluca2183]

Flash,grazie per la pronta risposta,il codice funziona perfettamente, ma non è cio' che mi serve :

Sub cancella_selezione()
Sheets("archivio").Select
ActiveWorkbook.Names("cliente").Delete
Call selezione_clienti
End Sub
Sub selezione_clienti()
Sheets("archivio").Select
Range("b1").Select
Range(Selection, Selection.End(xlDown)).Select
Call crea_selezione
End Sub
Sub crea_selezione()
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
False
End Sub

dopo queste righe io avro' un mio range chiamato "selezione" che si aggiorna di volta in volta.
come faccio apparire la mia "selezione" nella combobox del mio form ?

il problema della tua riga è che nella combobox mi spuntano oltre i miei dati altre 65000 righe bianche che sono prese dalla selezione,inquanto il miorange è dinamico e non si limita a un tot di voci specifiche,ma si aggiorna.

Hai suggerimenti ?

saluti e grazie ancora !

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub selezione_clienti()
Sheets("archivio").Select
UR = Range("B" & Rows.Count).End(xlUp).Row
UserForm1.ComboBox1.RowSource = "Archivio!B1:B" & UR
UserForm1.Show
End Sub

L'UserForm va disattivata dopo l'utilizzo
con
UserForm1.Hide

La macro la puoi avviare ad ogni variazione dle foglio o variazione di selezione
(esempio da valutare bene per evitare dei loop)

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Call selezione_clienti
End Sub

Fai sapere
Ciao

[ricky53]

Ciao,
oppure puoi utilizzare il tuo "nome elenco" ("SELEZIONE") che hai creato con la ua macro in questo modo:

Codice: Seleziona tutto

Sub Emetti()
    UserForm1.ComboBox1.RowSource = "Archivio!Selezione"
    UserForm1.Show
End Sub

[Gianluca2183]

Grazie mille!

L'ultima macro era cio' che mi serviva!
Due sole righe,e non riuscivo a scriverle...

scusa per la seccatura e grazie mille!

SAluti!

[ricky53]

Ciao,
nessuna seccatura, anzi ...

Solo per dovere di cronaca anche la soluzione di Flash era impostata sullo stesso concetto.

[Gianluca2183]

Ovviamente i ringraziamenti sono per tutti!Ci mancherebbe altro!

Saluti,alla prossima!