combobox

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

marcorossini

00lunedì 21 marzo 2016 12:15

salve a tutti
è possibile in una usereform inserire una combobox che prenda i valori da una colonna A di un foglio chiamato "Indirizzi" e che il valore scelto venga inserito nella cella A1 di un foglio chiamato "DB".

vi ringrazio sin da ora per la vostra collaborazione.

alfrimpa

00lunedì 21 marzo 2016 12:25

Ciao Marco

Certo che è possibile.

Ti allego un file di esempio dove ho inserito una userform con combobox che viene alimentata con i dati presenti in colonna A del foglio1

Questo è il codice associato alla userform

Private Sub UserForm_Initialize()
Dim i As Long
Dim ur As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ur
    Me.ComboBox1.AddItem Range("a" & i).Value
Next i
End Sub

Spero che tu riesca ad applicare il tutto al tuo file e qualora non riuscissi allegalo (senza dati sensibili) che adattiamo il tutto.

patel45

00lunedì 21 marzo 2016 12:38

dovrebbe essere chi chiede aiuto ad allegare il file per agevolare le risposte

marcorossini

00lunedì 21 marzo 2016 12:39

risposta

ciao grazie mille ci do subito una occhiata

grazie di cuore

alfrimpa

00lunedì 21 marzo 2016 12:51

Ciao Patel

Quello che dici è assolutamente vero ma se l'utente riesce a capire la risposta e ad adattarla al suo caso sicuramente questa sarà stata maggiormente efficace rispetto ad una soluzione data "chiavi in mano" sul suo file.

Almeno io la vedo così.

marcorossini

00lunedì 21 marzo 2016 14:27

risposta

avete ragione vi allego il file

e come potete vedere i dati che devo vedere nella combo sono sul foglio "indirizzi"

e il valore scelto deve essere inserito nel foglio "db" cella "B2"

attendo un vostro aiuto grazie

marcorossini

00lunedì 21 marzo 2016 14:28

risposta

ecco il file

alfrimpa

00lunedì 21 marzo 2016 14:55

Ciao Marco

Ma perché hai previsto due userform? Io credo che ne basti una sola con all'interno la combobox ed il pulsante.

Ti allego file e questo è il codice.

Private Sub CommandButton1_Click()
Worksheets("db").Range("b1").Value = Me.ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
Dim ur As Long
ur = Worksheets("indirizzi").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ur
    Me.ComboBox1.AddItem Worksheets("indirizzi").Range("a" & i)
Next i
End Sub

marcorossini

00lunedì 21 marzo 2016 15:14

RISPOSTA

MILLE GRAZIE PROBLEMA RISOLTO EGREGGIAMENTE
MI FUNZIONA BENISSIMO MI HAI RISOLTO UN BEL PROBLEMA GRAZIE

[SM=x423028]

marcorossini

00lunedì 21 marzo 2016 16:24

risposta

se aVESSSI NECESSITA' DI AVERE UNO SPECIFICO RANGE DI VOCI DA VISUALIZZARE NELLA COMBOBOX AD ESEMPIO DA A1:A12, CHE MODIFICA DEVO INSERIRE NEL CODICE CHE MI HAI INVIATO????

alfrimpa

00lunedì 21 marzo 2016 16:31

Ciao Marco

Se aggiungi altri indirizzi in colonna A (senza lasciare righe vuote) non devi far nulla perché l'intervallo si adegua automaticamente.

Se invece devi cambiare colonna devi modificare questa istruzione

ur = Worksheets("indirizzi").Cells(Rows.Count, 1).End(xlUp).Row

sostituendo il n. 1 con il numero della nuova colonna es.

Se la nuova colonna fosse la D devi scrivere

ur = Worksheets("indirizzi").Cells(Rows.Count, 4).End(xlUp).Row

perché la D è la quarta colonna.

Spero sia chiaro.

marcorossini

00lunedì 21 marzo 2016 17:05

risposta

ma se volessi usare 4 combobox per compilare 4 celle diverse
ovvero:
combobox1 compila il campo indirizzo
combobox2 compila il campo nome
combobox3 compila il campo città
combobox4 compila il campo titolo

e sono indipendenti tra loro

e prendono i valori da fogli diversi
foglio 1 = combo1
foglio 2 = combo2
foglio 3 = combo3
foglio 4 = combo4
come posso fare ???

alfrimpa

00lunedì 21 marzo 2016 18:26

Ciao Marco

Con il codice che ti ho postato in precedenza hai tutti gli elementi per replicare il tutto anche su altre combobox.

Devi solo cambiare i riferimenti di dove devono essere presi i dati che alimentano le combo e gli indirizzi delle celle che devono accogliere questi i dati.

Provaci un po' e vedrai che le cose che si apprendono da soli non si dimenticano facilmente.

marcorossini

00martedì 22 marzo 2016 09:09

risposta

certo che ci provo,
grazzie mille anche per l'incoraggiamento
grazie ciaoooo [SM=x423025]

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 06:49.